VBA EXCEL创建包含所有已填充单元格的透视表

Sub CreatePivotTable()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim pc As PivotCache
    
    ' 设置要创建透视表的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置透视表缓存
    Set pc = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=ws.UsedRange)
    
    ' 在工作表上创建透视表
    Set pt = pc.CreatePivotTable(TableDestination:=ws.Range("F1"), TableName:="PivotTable1")
    
    ' 添加字段到透视表
    With pt
        .PivotFields("字段1").Orientation = xlRowField
        .PivotFields("字段2").Orientation = xlColumnField
        .PivotFields("字段3").Orientation = xlDataField
    End With
End Sub