如何使用VBA申请循环创建多个数据透视表

Sub CreatePivotTables()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim rng As Range
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 设置数据透视表的源数据范围
        Set rng = ws.Range("A1").CurrentRegion
        
        ' 创建数据透视表
        Set pt = ws.PivotTableWizard(SourceType:=xlDatabase, SourceData:=rng, _
            TableDestination:=ws.Cells(10, 1), TableName:="PivotTable" & ws.Index)
        
        ' 设置数据透视表的字段和布局
        With pt
            .PivotFields("Category").Orientation = xlRowField
            .PivotFields("Sales").Orientation = xlDataField
        End With
    Next ws
End Sub