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

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

---

旁注

如果您的代码与这些工作表位于同一位置，那么我建议使用其代码名 。 如果工作表不存在，这可以防止您遇到错误。