Excel 将多个 Sheet 合并到第一个 Sheet

Sub MergeSheets()
    Dim masterSheet As Worksheet
    Dim currentSheet As Worksheet

    ' 设置目标合并的 Sheet，这里假设是第一个 Sheet
    Set masterSheet = ThisWorkbook.Sheets(1)

    ' 循环遍历每个 Sheet
    For Each currentSheet In ThisWorkbook.Sheets
        If currentSheet.Index > 1 Then ' 跳过第一个 Sheet，因为已经是目标 Sheet
            ' 找到当前 Sheet 中最后一行的行号
            Dim lastRow As Long
            lastRow = currentSheet.Cells(currentSheet.Rows.Count, "A").End(xlUp).Row

            ' 将当前 Sheet 的数据复制到目标 Sheet 中
            currentSheet.Range("A2:Z" & lastRow).Copy masterSheet.Cells(masterSheet.Rows.Count, "A").End(xlUp).Offset(1)
        End If
    Next currentSheet
End Sub