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

将设置的范围复制并粘贴到下一个空的row_LOOP中

1 个答案: