复制并粘贴下一个空行_LOOP中的集合范围

Question

我是宏的新手，我正在努力创建一个宏，该宏允许我从工作表中的所有工作表中复制和粘贴相同范围的单元格，并将它们粘贴到下一个可用单元格的第一个工作表中。我知道这必须通过循环和lastrow的组合来完成。不幸的是，我所有的尝试都失败了

这是我想在所有工作表中运行的宏，但工作表名称不同

Sub Macro10()
'
' Macro10 Macro
'
'
Sheets("1449GW.WLWaterLevel.0sec").Select
Range("H1:Y2").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A1").Select
ActiveSheet.Paste
End Sub

Answer 1

试试这个。两个版本不确定你在问什么。

如果要将同一范围从单张纸复制到多张纸

Sub Macro10()
Dim ws As Worksheet, ws1 As Worksheet
Set ws1 = Worksheets("1449GW.WLWaterLevel.0sec")
For Each ws In Worksheets
If ws.Name <> ws1.Name Then
ws1.Range("H1:Y2").Copy ws.Range("A" & Rows.Count).End(xlUp)(2)
End If
Next ws
End Sub

如果您要将同一范围从多张纸复制到一张纸

Sub Macro10()
Dim ws As Worksheet, ws1 As Worksheet
Set ws1 = Worksheets("Sheet1")
For Each ws In Worksheets
If ws.Name <> ws1.Name Then
ws.Range("H1:Y2").Copy ws1.Range("A" & Rows.Count).End(xlUp)(2)
End If
Next ws
End Sub