Sub CreatePivotTableWithVariables()
    Dim wsData As Worksheet
    Dim wsPivot As Worksheet
    Dim ptCache As PivotCache
    Dim ptTable As PivotTable
    Dim rngSource As Range
    Dim strPivotTableName As String
    
    ' 设置变量
    Set wsData = ThisWorkbook.Worksheets("数据源") ' 数据源工作表
    Set wsPivot = ThisWorkbook.Worksheets.Add ' 新建工作表放置透视表
    wsPivot.Name = "透视表结果"
    
    ' 定义数据源范围（假设数据从A1开始）
    Set rngSource = wsData.Range("A1").CurrentRegion
    
    ' 创建透视表缓存
    Set ptCache = ThisWorkbook.PivotCaches.Create( _
        SourceType:=xlDatabase, _
        SourceData:=rngSource)
    
    ' 创建透视表
    strPivotTableName = "销售分析透视表"
    Set ptTable = ptCache.CreatePivotTable( _
        TableDestination:=wsPivot.Range("A3"), _
        TableName:=strPivotTableName)
    
    ' 添加字段到透视表
    With ptTable
        ' 添加行字段
        .PivotFields("地区").Orientation = xlRowField
        .PivotFields("地区").Position = 1
        
        ' 添加列字段
        .PivotFields("季度").Orientation = xlColumnField
        .PivotFields("季度").Position = 1
        
        ' 添加值字段
        .PivotFields("销售额").Orientation = xlDataField
        .PivotFields("销售额").Function = xlSum
        .PivotFields("销售额").NumberFormat = "$#,##0"
    End With
    
    ' 应用样式
    ptTable.TableStyle2 = "PivotStyleMedium9"
    
    MsgBox "数据透视表创建完成!", vbInformation
End Sub

Sub DynamicPivotTableCreation()
    Dim ws As Worksheet
    Dim pc As PivotCache
    Dim pt As PivotTable
    Dim rng As Range
    Dim ptName As String
    Dim rowFields As Variant
    Dim colFields As Variant
    Dim dataFields As Variant
    Dim i As Integer
    
    ' 设置变量
    Set ws = Worksheets("销售数据")
    Set rng = ws.Range("A1").CurrentRegion
    ptName = "动态销售分析"
    
    ' 定义要添加的字段（可根据需要修改）
    rowFields = Array("地区", "销售代表")
    colFields = Array("年份", "季度")
    dataFields = Array("销售额", "利润")
    
    ' 创建透视表缓存和透视表
    Set pc = ThisWorkbook.PivotCaches.Create( _
        SourceType:=xlDatabase, _
        SourceData:=rng)
    
    ' 在工作表"分析结果"中创建透视表，如果没有则创建
    On Error Resume Next
    Set ws = Worksheets("分析结果")
    If ws Is Nothing Then
        Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
        ws.Name = "分析结果"
    End If
    On Error GoTo 0
    
    ' 删除已存在的同名透视表
    On Error Resume Next
    Worksheets("分析结果").PivotTables(ptName).TableRange2.Clear
    On Error GoTo 0
    
    ' 创建透视表
    Set pt = pc.CreatePivotTable( _
        TableDestination:=ws.Range("A3"), _
        TableName:=ptName)
    
    ' 添加行字段
    For i = LBound(rowFields) To UBound(rowFields)
        With pt.PivotFields(rowFields(i))
            .Orientation = xlRowField
            .Position = i + 1
        End With
    Next i
    
    ' 添加列字段
    For i = LBound(colFields) To UBound(colFields)
        With pt.PivotFields(colFields(i))
            .Orientation = xlColumnField
            .Position = i + 1
        End With
    Next i
    
    ' 添加值字段
    For i = LBound(dataFields) To UBound(dataFields)
        With pt.PivotFields(dataFields(i))
            .Orientation = xlDataField
            .Function = xlSum
            .NumberFormat = "$#,##0"
            If i > 0 Then .Name = "总和 " & dataFields(i)
        End With
    Next i
    
    ' 应用格式
    pt.ShowTableStyleRowStripes = True
    pt.TableStyle2 = "PivotStyleMedium12"
    
    ' 调整列宽
    ws.Columns("A:Z").AutoFit
End Sub

On Error Resume Next
If Not pt.PivotFields("字段名") Is Nothing Then
    ' 添加字段的代码
End If
On Error GoTo 0

wsPivot.Range("A3:Z100").Clear

Set rngSource = wsData.Range("A1:D100") ' 根据实际情况调整

Dim lastRow As Long
lastRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row
Set rngSource = wsData.Range("A1:D" & lastRow)

pt.CalculatedFields.Add "利润率", "=利润/销售额"
pt.PivotFields("利润率").Orientation = xlDataField
pt.PivotFields("利润率").NumberFormat = "0.00%"

Dim sl As Slicer
Set sl = wsPivot.Slicers.Add(pt, "地区", "地区筛选器", , , , True)