用vba实现excel多个sheet分别生成数据透视表，并将数据透视表汇总到一个表中

可以通过以下步骤实现：

1. 在一个新的Sheet中创建汇总数据透视表，并设置好数据透视表的格式。
2. 编写一个VBA宏，遍历所有需要生成数据透视表的Sheet。
3. 在遍历过程中，对每个Sheet进行以下操作：
- 选中需要生成数据透视表的数据区域。
- 创建数据透视表，并设置好数据透视表的格式。
- 将数据透视表的数据复制到汇总数据透视表的下方。
4. 运行VBA宏，生成所有数据透视表，并将它们汇总到汇总数据透视表中。

以下是一个示例VBA宏：

Sub GeneratePivotTables()
    Dim summarySheet As Worksheet
    Dim dataSheet As Worksheet
    Dim lastRow As Long
    Dim pivotTable As PivotTable
    Dim pivotCache As PivotCache
    
    '获取汇总数据透视表所在Sheet
    Set summarySheet = ThisWorkbook.Sheets("Summary")
    
    '清空汇总数据透视表下方的所有数据
    summarySheet.Range("A2:Z1000").ClearContents
    
    '遍历所有需要生成数据透视表的Sheet
    For Each dataSheet In ThisWorkbook.Sheets
        If dataSheet.Name <> summarySheet.Name Then
            '选中需要生成数据透视表的数据区域
            lastRow = dataSheet.Cells(Rows.Count, 1).End(xlUp).Row
            dataSheet.Range("A1:B" & lastRow).Select
            
            '创建数据透视表
            Set pivotCache = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Selection)
            Set pivotTable = pivotCache.CreatePivotTable(TableDestination:=summarySheet.Range("A" & Rows.Count).End(xlUp).Offset(1), TableName:="PivotTable" & dataSheet.Name)
            
            '设置数据透视表的格式
            With pivotTable
                .PivotFields("Column1").Orientation = xlRowField
                .PivotFields("Column2").Orientation = xlColumnField
                .AddDataField .PivotFields("Data"), "Sum of Data", xlSum
            End With
            
            '复制数据透视表的数据到汇总数据透视表下方
            pivotTable.TableRange2.Copy summarySheet.Range("A" & Rows.Count).End(xlUp).Offset(1)
        End If
    Next
    
    '自动调整汇总数据透视表的列宽和行高
    summarySheet.Cells.EntireColumn.AutoFit
    summarySheet.Cells.EntireRow.AutoFit
End Sub

注意：在运行该宏前，需要先在工作簿中创建一个名为"Summary"的Sheet，并在该Sheet中创建好汇总数据透视表的格式。同时，该示例宏假设每个需要生成数据透视表的Sheet中的数据区域为A1:Bn，其中第一列为"Column1"，第二列为"Column2"，第三列为"Data"。你需要根据你的实际情况进行修改。