Код VBA для сбора данных со всех листов на мастер-лист

Question

Мне нужен макрос, чтобы объединить мои данные в диапазоне (от V2 до AE2) с каждого листа и поместить их в диапазон (от A2 до J2) на мастер-листе. Я новичок и у меня нет опыта программирования. Может кто-нибудь, пожалуйста, помогите мне?

Answer 1

Sub I_Voted_To_Close ()

Dim ms As Worksheet: Set ms = ThisWorkbook.Sheets("Master Sheet")
Dim ws As Worksheet

Dim mLR As Long, wLR As Long

For Each ws In ThisWorkbook.Sheets
    If ws.Name <> ms.Name Then

        mLR = ms.Range("A" & ms.Rows.Count).End(xlUp).Offset(1).Row
        wLR = ws.Range("V" & ws.Rows.Count).End(xlUp).Row

        ws.Range("V2:AE" & wLR).Copy
        ms.Range("A" & mLR).PasteSpecial xlPasteValues

    End If
Next ws

End Sub