小编AIR*_*een的帖子

我正在处理工作簿中的多个工作表。每张纸都有相同的标题行。我想编写一个宏来复制每个工作表中的一系列数据（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