在找到 function 后创建循环以复制/粘贴 vba 循环

Question

我试图在 excel 中创建一个循环，它将找到一个单词，然后将单词下面的所有单元格复制并粘贴到另一个工作簿中，直到出现空白单元格。 我对 VBA 真的很陌生，所以请裸露

Sub CopyRows()

Dim Found As Range
Dim NextFreeCell As Range
Dim wkDest As Worksheet

Set wsDest = Workbooks("sample_bills (version 1).xlsx").Worksheets("sample_bills")
Set NextFreeCell = wsDest.Cells(Rows.Count, "C").End(xlUp).Offset(RowOffset:=1)
Set Found = Cells.Find(What:="Paid", LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
    If Found Is Nothing Then
    MsgBox "ERROR"
    Else
    i = Found.Row
    j = Found.Column

    End If

    Do
    NextFreeCell = Cells(i, j)
    i = i + 1
    Loop Until IsEmpty(Cells(i, j))

End Sub

这是我到目前为止所得到的，但只会将“支付”这个词复制并粘贴到另一个工作簿中，并且不会继续在下面做 rest。 任何帮助，将不胜感激：）

Answer 1

更新：设法通过移动线路来解决这个问题

Set NextFreeCell = wsDest.Cells(Rows.Count, "C").End(xlUp).Offset(RowOffset:=1)

进入循环