如何复制/粘贴到下一个空行？

Question

我有代码复制工作表 A，列 A：C（没有设置行数量，这将被重复使用并且数量会改变）并粘贴到同一工作簿、不同工作表、工作表中的第一个空白行B（这也没有设置行数量并且会改变）。

工作表 B 在我要粘贴到的相同列中有一个公式，如果没有数据，则返回“”。我认为 VBA 看到了“”并假设那里有数据；但是，即使没有上述公式，它也不会粘贴到行上。

Sub Copy_Created_Fringe_Accounts()
    Dim SourceRange As Range
    Dim DestRange As Range
    Dim DestSheet As Worksheet
    Dim LastRow As Long

'Source sheet and range
    Set SourceRange = Sheets("CREATED FRINGE ACCTS").Range("A2:C500")

'Destination sheet and range
    Set DestSheet = Sheets("99 BUDGET WORKSHEET")

'Last Row
    LastRow = DestSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

'Copy and paste to destination
    Set DestRange = DestSheet.Range("A" & LastRow + 1)
    SourceRange.Copy DestRange

End Sub

当我运行它时没有任何反应。我希望看到工作表 A 中的数据从第一个可用的空行开始复制到工作表 B。

我对 VBA 还很陌生，因此感谢任何帮助/理解。

Answer 1

查找最后一行

尝试使用UsedRange 查找最后使用的行，因为这比使用Find 更安全。

LastRow = DestSheet.UsedRange.Rows.Count

---

附注

如果您的代码与这些工作表位于同一位置，那么我建议您使用它们的code name。如果工作表不存在，这将防止您遇到错误。