在VBA中创建具有特定条件的数据透视表

Sub CreatePivotTable()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim pf As PivotField
    
    ' 设置要创建数据透视表的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置数据透视表的位置
    Set pt = ws.PivotTableWizard(SourceType:=xlDatabase, SourceData:=ws.Range("A1:B10"), _
        TableDestination:=ws.Range("D1"), TableName:="PivotTable1")
    
    ' 设置数据透视表的字段
    Set pf = pt.PivotFields("字段1")
    pf.Orientation = xlRowField
    
    Set pf = pt.PivotFields("字段2")
    pf.Orientation = xlDataField
    pf.Function = xlSum
    
    ' 设置数据透视表的筛选条件
    pt.PivotFields("字段3").PivotFilters.Add Type:=xlCaptionEquals, Value1:="条件1"
    
    ' 刷新数据透视表
    pt.RefreshTable
End Sub