Скопируйте и вставьте заданный диапазон в следующую пустую строку.

Question

Я новичок в макросе, и я борюсь с созданием макроса, который позволит мне копировать и вставлять одинаковый диапазон ячеек со всех листов в листе и вставлять их на первый лист в следующую доступную ячейку. Я знаю, что это должно быть сделано с помощью комбинации цикла и последней строки. К сожалению, все мои попытки провалились

Это макрос, который я хотел бы пройти через все листы, но имя листов другое

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