透视表编程主要涉及使用VBA（Visual Basic for Applications）代码在Excel中创建和定制透视表。以下是一个基本的步骤和示例代码，帮助你理解如何编程创建透视表。
准备工作
打开Excel文件：
确保你的数据格式规范，表头清晰。
打开VBA编辑器：
按下快捷键 `Alt + F11`。
新建模块：
在VBA编辑器中新建一个模块，准备写入代码。
创建透视表的VBA代码示例
示例1：快速创建透视表
```vba
Sub 快速创建透视表（）
' 定义变量
Dim 数据范围 As Range
Dim 透视表缓存 As PivotCache
Dim 透视表 As PivotTable
Dim 最后一行 As Long
Dim 最后一列 As Long
Dim 数据表 As Worksheet
Dim 透视表工作表 As Worksheet
' 设置数据表
Set 数据表 = ActiveSheet
' 确定数据范围
最后一行 = 数据表.Cells（数据表.Rows.Count, 1）.End（xlUp）.Row
最后一列 = 数据表.Cells（1， 数据表.Columns.Count）.End（xlToLeft）.Column
' 创建透视表缓存
Set 透视表缓存 = ThisWorkbook.PivotCaches.Create（SourceType:=xlDatabase, SourceData:=数据表.Range（数据表.Cells（1, 1）， 数据表.Cells（最后一行的行号， 最后一列的列号）））
' 创建透视表
Set 透视表 = 透视表缓存.CreatePivotTable（TableDestination:=透视表工作表.Range（"A1"）, TableName:="透视表1"）
' 设置行字段、列字段和值字段
' 这里需要根据实际数据表结构进行调整
透视表.PivotFields（"产品名称"）.Orientation = xlRowField
透视表.PivotFields（"产品名称"）.Position = 1
透视表.PivotFields（"销售额"）.Orientation = xlDataField
透视表.PivotFields（"销售额"）.Function = xlSum
透视表.PivotFields（"销售额"）.Position = 1
End Sub
```
示例2：一键创建数据透视表
```vba
Sub CreatePivotTable（）
' 定义工作表和透视表对象
Dim ws As Worksheet
Dim ptCache As PivotCache
Dim pt As PivotTable
' 设置数据源
Set ws = ThisWorkbook.Sheets（1）
Dim dataRange As Range
Set dataRange = ws.UsedRange
' 创建透视表缓存
Set ptCache = ThisWorkbook.PivotCaches.Create（SourceType:=xlDatabase, SourceData:=dataRange）
' 创建透视表
Set pt = ptCache.CreatePivotTable（TableDestination:=ws.Range（"A1"）, TableName:="销售透视表"）
' 设置字段（这里只是示例，具体字段根据你的数据来调整）
With pt
.PivotFields（"日期"）.Orientation = xlRowField
.PivotFields（"日期"）.Position = 1
.PivotFields（"产品"）.Orientation = xlColumnField
.PivotFields（"产品"）.Position = 1
.PivotFields（"销售额"）.Orientation = xlDataField
.PivotFields（"销售额"）.Function = xlSum
.PivotFields（"销售额"）.Position = 1
End With
End Sub
```
示例3：动态创建数据透视表