如何获取VBA代码以基于现有手动创建的数据透视表重建同款透视表？

方法1：用VBA代码提取透视表参数生成重建代码 #

• 按Alt+F11打开VBA编辑器
• 在左侧“项目资源管理器”里找到带目标透视表的工作簿，展开对应的工作表
• 右键点击“模块”，选择“插入”→“模块”，粘贴以下代码：

Sub GetPivotTableCode()
    Dim pt As PivotTable
    Dim pf As PivotField
    Dim ws As Worksheet
    
    Set ws = ActiveSheet
    Set pt = ws.PivotTables(1) ' 取工作表中第一个透视表，多个的话修改序号
    
    ' 输出基础创建代码
    Debug.Print "Sub CreatePivotTable()"
    Debug.Print "    Dim wsSource As Worksheet, wsPivot As Worksheet"
    Debug.Print "    Dim pt As PivotTable, pc As PivotCache"
    Debug.Print "    Set wsSource = ThisWorkbook.Sheets(""" & Split(pt.PivotCache.SourceData, "!")(0) & """)"
    Debug.Print "    Set wsPivot = ThisWorkbook.Sheets.Add"
    Debug.Print "    wsPivot.Name = ""Pivot_New"""
    Debug.Print "    Set pc = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=wsSource.UsedRange.Address)"
    Debug.Print "    Set pt = pc.CreatePivotTable(TableDestination:=wsPivot.Range(""A1""), TableName:=""" & pt.Name & """)"
    
    ' 行字段设置
    Debug.Print vbCrLf & "    ' 行字段设置"
    For Each pf In pt.RowFields
        If pf.Name <> "数据" Then
            Debug.Print "    pt.PivotFields(""" & pf.Name & """).Orientation = xlRowField"
        End If
    Next pf
    
    ' 列字段设置
    Debug.Print vbCrLf & "    ' 列字段设置"
    For Each pf In pt.ColumnFields
        Debug.Print "    pt.PivotFields(""" & pf.Name & """).Orientation = xlColumnField"
    Next pf
    
    ' 值字段设置
    Debug.Print vbCrLf & "    ' 值字段设置"
    For Each pf In pt.DataFields
        Debug.Print "    pt.AddDataField pt.PivotFields(""" & pf.SourceName & """), """ & pf.Caption & """, " & pf.Function
    Next pf
    
    ' 透视表样式设置
    Debug.Print vbCrLf & "    ' 透视表样式"
    Debug.Print "    pt.TableStyle2 = """ & pt.TableStyle2 & """"
    Debug.Print "End Sub"
End Sub

• 按F5运行宏，再按Ctrl+G打开立即窗口，就能看到生成的重建代码。把这段代码复制到目标工作簿，修改数据源的工作表名称后运行，就能生成和原透视表外观一致的新表。

方法2：手动录制对比宏 #

• 打开一个空白工作簿，点击“开发工具”→“录制宏”
• 回到原工作簿，一步步复刻目标透视表的所有设置：行/列字段、值字段的汇总方式、筛选条件、样式、布局（比如是否显示总计、压缩行布局）等
• 操作完成后停止录制，打开VBA编辑器就能看到录制好的代码，直接拿去适配目标数据源即可

注意事项 #

• 生成的代码要调整数据源引用，确保目标工作簿的数据源范围正确
• 如果原透视表有复杂筛选、分组或计算字段，得额外补充对应的VBA代码（比如用pt.PivotFields("字段名").PivotItems("选项").Visible = False设置筛选）
• 不同Excel版本的透视表样式名称可能有差异，要根据实际情况修改

内容的提问来源于stack exchange，提问作者Phiplex