获取Excel工作表中按物理顺序排列的数据透视表名称

Excel的PivotTables集合本身就是按透视表在工作表中的物理放置顺序（从上到下、从左到右）存储的，只需遍历该集合并筛选目标命名的透视表，即可得到按物理顺序排列的名称。以下是适配大型项目（支持数百个透视表）的VBA代码：

Sub GetPivotTablesByPhysicalOrder()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim outputSheet As Worksheet
    Dim rowNum As Integer
    Dim targetMin As Integer, targetMax As Integer
    
    ' 定义需要筛选的透视表编号范围（可根据项目需求修改）
    targetMin = 1
    targetMax = 11
    
    ' 指定目标工作表（此处为当前活动工作表，可替换为具体工作表名称，如Sheets("主工作表")）
    Set ws = ActiveSheet
    
    ' 创建新工作表存储结果，避免干扰原数据
    On Error Resume Next
    Set outputSheet = ThisWorkbook.Sheets("透视表物理顺序结果")
    If Err.Number <> 0 Then
        Set outputSheet = ThisWorkbook.Sheets.Add(After:=ws)
        outputSheet.Name = "透视表物理顺序结果"
    End If
    On Error GoTo 0
    
    ' 初始化表头
    rowNum = 1
    outputSheet.Cells(rowNum, 1).Value = "物理顺序序号"
    outputSheet.Cells(rowNum, 2).Value = "透视表名称"
    rowNum = rowNum + 1
    
    ' 遍历工作表中所有透视表（按物理顺序）
    For Each pt In ws.PivotTables
        ' 提取透视表名称中的数字部分
        Dim ptNumber As Integer
        ptNumber = Val(Mid(pt.Name, Len("PivotTable") + 1))
        
        ' 筛选指定编号范围内的透视表
        If ptNumber >= targetMin And ptNumber <= targetMax Then
            outputSheet.Cells(rowNum, 1).Value = rowNum - 1
            outputSheet.Cells(rowNum, 2).Value = pt.Name
            rowNum = rowNum + 1
        End If
    Next pt
    
    ' 自动调整列宽，优化显示
    outputSheet.Columns("A:B").AutoFit
    
    MsgBox "结果已生成，查看工作表「" & outputSheet.Name & "」", vbInformation
End Sub

代码说明 #

1. 顺序保障：遍历ws.PivotTables时，循环顺序完全匹配透视表在工作表中的物理位置顺序，无需额外排序操作。
2. 灵活适配：通过修改targetMin和targetMax的值，可轻松适配数百个透视表的筛选需求（如设置为1到500）。
3. 安全输出：自动检查是否存在结果工作表，避免重复创建；输出与原数据分离，防止误改主工作表内容。
4. 易用性：自动添加序号和表头，调整列宽，方便直接查看结果。

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