用于将数据从第 2 行复制到一张工作表上的最后一行数据并粘贴到另一张工作表的第一空行的 VBA 代码

Question

我正在处理一个工作簿中的多个工作表。 每个工作表都有一个相同的标题行。 我想编写一个宏来复制每个工作表中的一系列数据（A2：L2 到工作表上的最后一行数据）并将其粘贴到主表 A 列的第一个空单元格中。

我下面的内容似乎不起作用。 任何帮助表示赞赏。

Dim Lastrow As Integer
Lastrow = ActiveSheet.Cells(Rows.Count,1).End(xlUp).Row

Sheets("Master Sheet").Range("A2:L10000).Clear

Sheets("Sheet1").Activate
Range("A2:L" & Lastrow).Select
Selection.Copy
Sheets("Master Sheet").Select
Range("A30000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1,0).Range("A1").Select
ActiveSheet.Paste

Sheets("Sheet2").Activate
Range("A2:L" & Lastrow).Select
Selection.Copy
Sheets("Master Sheet").Select
Range("A30000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste

Answer 1

从它的外观来看，您几乎就在那里。 看起来您已经录制了一个宏，这是一个很好的起点。 您的特定代码可能不起作用的原因是因为Sheets("Master Sheet").Range("A2:L10000).Clear 。你错过了范围内的结束引号。无论如何，我选择了将其排除在外，这样您在移动数据时就不会意外清除工作表

所以通常避免使用select和activate是好的，但是对于记录器，您在这件事上没有太多发言权。 您可以在下面看到我如何直接对范围进行操作。

每次找到主表的最后一行以及当前表很重要，这样您就知道要复制的范围以及可以粘贴到的位置。 重要的是要记住，您总是会找到最后一个填充的单元格，因此在粘贴目标的情况下，您需要在行值中再添加一个，以免意外覆盖某些数据。

For 循环非常有用，我不确定您对其余工作表的名称，但幸运的是在 VBA 中您可以使用For each 。 所以它的作用是循环遍历您指定的每个项目。 在这种情况下，我指定了工作表。 但现在唯一的问题是，我们不想尝试复制和粘贴到同一个主表中，因此我们需要快速检查以确保我们不在主表上。 我只是通过将工作表的名称与您作为主表名称的名称进行比较来完成此操作的。

有趣的是，当你复制一些东西时，你只需要指定左上角的单元格，它就会填充其余的单元格。 它让生活变得更轻松，因为您不需要弄清楚要粘贴的数组的确切尺寸。 VBA 中的Copy函数有一个名为Destination的可选参数，您可以使用它来告诉它要立即将其粘贴到何处。

这也是不错的，当你使用它们所以不是完全指定范围的Range ，你可以看到我如何使用ThisWorkbook.Worksheets("Master Sheet").Range 。 这会告诉计算机您要引用的确切位置； 而Range使计算机进行某种猜测，因此它假定您指的是活动工作表，这可能不是您想要的。

Sub Paster()
    Dim LastRowCurr As Long
    Dim LastRowMaster As Long
    Dim wksht As Worksheet
    For Each wksht In ThisWorkbook.Worksheets
        If Not wksht.Name = "Master Sheet" Then
            LastRowCurr = wksht.Cells(wksht.Rows.Count, 1).End(xlUp).Row
            LastRowMaster = Worksheets("Master Sheet").Cells(Worksheets("Master Sheet").Rows.Count, 1).End(xlUp).Row + 1
            Range("A2:L" & LastRowCurr).Copy Destination:=ThisWorkbook.Worksheets("Master Sheet").Cells(LastRowMaster, "A")
        End If
    Next wksht
End Sub