在第一個空白行循環中復制和粘貼

Question

在工作表1中，我在列中有數據。 在工作表2中，我有專門用於復制和粘貼到工作表1的空白行中的數據。我試圖循環工作表2中的數據，並將其復制到工作表1的以下行中（24、25、26，等等。）粘貼部分出現問題。 我還需要代碼統一，以便我可以修改工作表2並運行宏而無需進行任何更改。 我正在使用下面的代碼。

Dim LastRow2 As Long
Dim BlankRow As Long
BlankRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row + 1
LastRow2 = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
For i = BlankRow To 50
    For j = 2 To LastRow2
        Sheets("Sheet2").Range("A" & j).Copy
        Sheets("Sheet1").Range("A" & i).PasteSpecial
    Next j
Next i

我在下面放置了一個非常簡化的示例，以幫助您了解我到底想做什么。 在電子表格中，工作表1中的行數為數千，工作表2中的行數大約為30。因此，對我來說很重要的一點是，我將工作表1中的第一個空白行作為起點進行循環。

Sheet 1
        A
1       x
2       x
3       x
4       x
5       x
6       x


Sheet 2
        A
1       Headings
2       Tyler
3       Bill
4       Rob
5       Dennis

Answer 1

您不需要嵌套循環。 您只需要1。類似：

Dim LastRow2 As Long, BlankRow As Long, j As Long
BlankRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row + 1
LastRow2 = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
For j = 2 To LastRow2
    Sheets("Sheet2").Range("A" & j).Copy
    Sheets("Sheet1").Range("A" & BlankRow).PasteSpecial xlPasteValues
    BlankRow = BlankRow + 1
Next j
Application.CutCopyMode = False

這是您要嘗試的嗎？ HTH。