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

注意：了解如何avoid using .Select是一个好主意，您可以在上面的代码中看到如何将这两行合并为一个。

如何通过vba选择和复制数据范围

1 个答案: