EXCEL表中多个sheet汇总到一个sheet 宏格式怎么写

可以使用 VBA 宏来实现将多个 sheet 汇总到一个 sheet 中。

下面是一个示例代码，假设我们要将所有工作簿中的第一个 sheet 汇总到一个新的工作簿中的 Sheet1：

Sub CombineSheets()
    Dim J As Integer
    On Error Resume Next
    Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Combined"
    Sheets(2).Activate
    Range("A1").EntireRow.Select
    Selection.Copy Destination:=Sheets(1).Range("A1")
    For J = 2 To Sheets.Count
        Sheets(J).Activate
        Range("A1").Select
        Selection.CurrentRegion.Select
        Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
        Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
    Next
End Sub

这段代码会将所有工作簿中的第一个 sheet 的数据复制到一个新的工作簿的 Sheet1 中。你可以根据自己的需求进行修改。