我的excel表格里有多个sheet表，现在要用vba批量对每个sheet做数据透视图，应该如何实现

你可以编写一个 VBA 宏，使用 `For Each` 循环遍历每个 Sheet，然后在每个 Sheet 上创建数据透视表。

以下是一个示例宏：

Sub CreatePivotTables()
    Dim ws As Worksheet
    Dim pc As PivotCache
    Dim pt As PivotTable
    Dim lastRow As Long
    Dim lastCol As Long
    Dim dataRange As Range
    
    '遍历每个 Sheet
    For Each ws In ThisWorkbook.Worksheets
        '跳过非数据 Sheet
        If ws.Name = "Summary" Then
            GoTo NextIteration
        End If
        
        '获取数据区域的范围
        lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
        lastCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column
        Set dataRange = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol))
        
        '创建 PivotCache
        Set pc = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=dataRange)
        
        '创建 PivotTable
        Set pt = ws.PivotTables.Add(PivotCache:=pc, TableDestination:=ws.Range("E1"), TableName:="PivotTable")
        
        '设置 PivotTable 的行、列、值
        pt.AddFields RowFields:="Column1", ColumnFields:="Column2", ValueFields:="Data"
        
NextIteration:
    Next ws
End Sub

这个示例宏假设每个数据 Sheet 中的数据区域为 A1:Bn，其中第一列为 "Column1"，第二列为 "Column2"，第三列为 "Data"。你需要根据你的实际情况进行修改。

在这个示例宏中，我们使用 `For Each` 循环遍历每个 Sheet，并且在每个 Sheet 上创建数据透视表。在每个循环中，我们首先获取数据区域的范围，然后使用 `PivotCaches.Create` 方法创建一个 PivotCache，使用 `PivotTables.Add` 方法创建一个 PivotTable，最后使用 `PivotTable.AddFields` 方法设置 PivotTable 的行、列、值。