在下一個空行中復制並粘貼設置范圍_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