Код находит ячейку с балансом в ней и сохраняет ячейку в переменную foundcell
, чтобы найти столбец баланса в электронной таблице. Есть несколько столбцов баланса. Я проверил это с помощью только что, FIND
и это сработало, найдя первый столбец с «Баланс» в D8.
Как только я добавил цикл для findnext
, он возвращает D8, G8, H8, I8 и A9, а затем вылетает, потому что A9 не так. FINDNEXT
должен только вернуть I8 и остановиться, так как в диапазоне поиска есть 2 ячейки со словом «баланс. G8, H8 и A9 не содержат слова« баланс ».
Sub ReFill_Credit()
' Macro - ReFill formula columns for Credit sheet
'https://www.thespreadsheetguru.com/the-code-vault/2014/4/21/find-all-instances-with-vba
Dim StartRow As Integer
Dim FindString As String
Dim foundcell As Range
Dim LastRow As Integer
Dim LastRow1 As Integer
Dim CopyCell As Range
Dim endcell As Range
Dim firstaddress As String
Dim SrchRng As Range
Dim Lastcell As Range
Dim coloffset As Integer
Dim cellofffset As Range
Dim colbal As Integer
With Sheets("Credit")
'citi = 4 '"d"
'chase = 9 '"i"
'colbal = citi
FindString = "Balance"
Set SrchRng = .Range("a1:k15")
Set Lastcell = SrchRng.Cells(SrchRng.Cells.Count)
'Find the Balance cell
Set foundcell = SrchRng.Find(What:=FindString, _
LookAt:=xlWhole, _
LookIn:=xlValues, _
SearchOrder:=xlByRows, _
MatchCase:=False)
Debug.Print ""
'Test to see if anything was found
If Not foundcell Is Nothing Then
firstaddress = foundcell.Address
'end If
Debug.Print "firstaddress = " & firstaddress
'Loop to next "balance" column ***************************************************
Do
Debug.Print ""
Debug.Print "**********starting 'do until'*********"
Debug.Print "foundcell (1st search) is: " & foundcell.Address
'Test if cycled thru back to the first cell
StartRow = foundcell.Row + 1
Debug.Print "startrow is " & StartRow
colbal = foundcell.Column
FirstCell = Cells(StartRow, colbal)
'Finds the last non-blank cell on a sheet/range.
coloffset = colbal - 1
'Debug.Print "colbal is: " & colbal
Debug.Print "coloffset is: " & coloffset
LastRow = .Columns(coloffset).Find(What:="*", _
LookAt:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
Debug.Print "last row is " & LastRow
LastRow1 = LastRow + 1
'Fill formula down COL D
Set CopyCell = .Cells(StartRow, colbal)
Set endcell = .Cells(LastRow1, colbal)
Debug.Print "copycell = " & CopyCell
Debug.Print "copycell.add = " & CopyCell.Address
Debug.Print "endcell is " & endcell.Address
'=IF(ISTEXT(D8),D$7,D8)+C9 / starting at d9
CopyCell.Select
Selection.AutoFill Destination:=.Range(CopyCell, endcell), Type:=xlFillValues
Debug.Print "findstring is " & FindString
'Find next *********************************************************
Set foundcell = SrchRng.FindNext(foundcell)
' If foundcell.Address = firstfound Then Exit Do
Loop While Not foundcell Is Nothing And foundcell.Address <> firstaddress
End If
End With
End Sub
microsoft-excel
vba
find
mechengr02
источник
источник
.FindNext
используете критерии из вашего последнего.Find
. В частности,What:="*"
.Find
вместо.FindNext
.Ответы:
Я поменял блок, который рассчитал LastRow, используя
FIND
:с этим вместо этого:
Надеемся, что этот метод идентичен предыдущему и не имеет непредвиденных проблем.
источник