如何復制/粘貼到下一個空行？

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

---

旁注

如果您的代碼與這些工作表位於同一位置，那么我建議使用其代碼名 。 如果工作表不存在，這可以防止您遇到錯誤。