如何通过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是一个好主意，您可以在上面的代码中看到如何将这两行合并为一个。