如何通過VBA選擇和復制數據范圍

Question

我陷入了簡單的代碼行中。 對於本過程的這一部分，我只想將數據從一個選項卡合並到另一個選項卡。 下面是我必須復制“ Page1-2”中的信息並將其粘貼到“ Page1-1”的下一個空白行中的代碼：

Sheets("Page1-2").Activate
ActiveSheet.Range("A5:AJ66000").Copy
Sheets("Page1-1").Activate
Columns("A").Find("", Cells(Rows.Count, "A")).Select
ActiveCell.PasteSpecial

在這個問題上的任何幫助將不勝感激。

謝謝！

Answer 1

我將創建一個變量來保存您的Page1-1表的最后一行。

Sub test()
Dim k   As Integer

Sheets("Page1-2").Range("A5:AJ66000").Copy
With Sheets("Page1-1")
    k = .Cells(1048576, 1).End(xlUp).Row
    If k > 1 Then k = k + 1  ' this is so we don't overwrite the last row on previously copied data
    .Cells(k, 1).PasteSpecial
End With
End Sub
    End Sub

注意：學習如何避免使用.Select是一個好主意，您可以在上面的代碼中看到如何將這兩行合並為一個。