excel - VBA 代码将数据从所有工作表收集到主工作表

Question

我需要一个宏来组合每张工作表中范围（V2 到 AE2）中的数据，并将其放入主工作表中的范围（A2 到 J2）中。我是新手，没有编码经验。有人可以帮帮我吗？

标签： excelvba

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