在查找函数后创建循环以复制/粘贴 vba 循环答案

【问题标题】：Creating loop to copy/paste vba loop after find function在查找函数后创建循环以复制/粘贴 vba 循环
【发布时间】：2020-06-15 17:58:55
【问题描述】：

我试图在 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

这是我到目前为止所做的，但只会将“支付”一词复制并粘贴到另一个工作簿中，而不会继续在下面做其余的事情。任何帮助将不胜感激:)

【问题讨论】：

标签： excel vba

【解决方案1】：

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

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

进入循环

【讨论】：