首先确保数据结构清晰并启用VBA，通过编写代码定义数据源和目标位置，创建透视缓存并生成透视表，添加字段到行列及数值区，最后刷新更新数据以保持同步。
如果您希望在 Excel 中快速分析大量数据，使用 VBA 自动创建数据透视表可以显著提升效率。通过编写宏代码，您可以一键生成结构化的数据透视表，避免手动操作的繁琐步骤。
本文运行环境：Dell XPS 13，Windows 11
一、准备数据源并启用 VBA 编辑器
在使用 VBA 创建数据透视表之前，必须确保原始数据具有清晰的表格结构，并且已正确命名工作表和数据区域。这有助于后续代码准确引用数据范围。
1、打开 Excel 文件，将数据整理为连续的矩形区域，无空行或空列。
2、选中数据区域，按 Ctrl + T 将其转换为表格，并命名为“Table1”。
3、按下 Alt + F11 打开 VBA 编辑器，在左侧工程资源管理器中右键点击工作簿名称，选择“插入” -> “模块”。
二、编写 VBA 代码定义数据源和目标位置
此步骤的作用是让 VBA 明确从哪里读取数据以及将数据透视表放置在哪个工作表的什么位置。正确的范围引用是成功创建透视表的前提。
1、在新建的模块中输入以下声明变量代码：
Dim ws As Worksheet, ptWs As Worksheet
Dim pc As PivotCache, pt As PivotTable
Dim DataRange As String
2、设置数据源所在的工作表和目标工作表：
Set ws = ThisWorkbook.Sheets("Sheet1")
Set ptWs = ThisWorkbook.Sheets("Sheet2")
3、定义数据源范围字符串：
DataRange = ws.Range("Table1").Address(ReferenceStyle:=xlR1C1, external:=True)
三、创建数据透视缓存并生成透视表
数据透视缓存是数据透视表的基础，它存储了源数据的副本。创建缓存后，才能基于该缓存建立实际的数据透视表对象。
1、添加代码以创建新的透视缓存：
Set pc = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=DataRange)
2、使用该缓存创建新的数据透视表：
Set pt = pc.CreatePivotTable(TableDestination:=ptWs.Range("A1"), TableName:="PivotTable1")
四、添加字段到行、列和数值区域
字段配置决定了数据透视表的布局和统计方式。通过 VBA 可以精确控制每个字段的位置和聚合类型。
1、将某个字段（如“部门”）添加到行标签区：
With pt.PivotFields("部门")
.Orientation = xlRowField
End With
2、将“月份”字段添加到列标签区：
With pt.PivotFields("月份")
.Orientation = xlColumnField
End With
3、将“销售额”字段添加到数值汇总区：
pt.AddDataField pt.PivotFields("销售额"), "求和项: 销售额", xlSum
五、刷新和更新数据透视表
当源数据发生变化时，需要通过 VBA 刷新数据透视表以反映最新信息。自动刷新可确保报表始终与数据同步。
1、在代码中加入刷新命令：
pt.RefreshTable
2、若需强制清除缓存并重新加载数据，使用：
pc.Refresh
3、运行宏前，确认目标工作表无同名透视表冲突，否则添加删除语句：
On Error Resume Next
ThisWorkbook.Sheets("Sheet2").PivotTables("PivotTable1").TableRange2.Clear
