VBA创建PivotTable透视表无显示且无报错，求排查解决

问题排查与修复 #

核心错误点 #

• 未限定Union内部Range的父工作表：执行到Range定义代码时，当前活动工作表是刚新建的PivotTable工作表，Union里的裸Range调用默认指向活动工作表，实际取到的是空白区域，没有有效数据源。同时pvtData.Range(Union(...))的写法多余，Union返回的本身就是Range对象，不需要再套一层Range调用。
• 透视缓存与透视表创建逻辑混乱：原代码先调用PivotCaches.Create后直接链式调用CreatePivotTable，已经生成了一个透视表，后续又重复调用CreatePivotTable生成同名透视表，直接触发冲突报错，且PivotTable.PivotCaches是无效调用，正确的父对象是当前工作簿ThisWorkbook。
• On Error Resume Next未及时关闭，所有运行错误都被静默吞掉，所以看不到报错提示。
• 字段名拼写需注意：如果你的源表表头是「Category」而不是「Catagory」，后续字段绑定也会失败。

修正后完整代码 #

Sub Pvttble()
    Dim pvtData As Worksheet
    Dim pvtSheet As Worksheet
    Dim pvtCache As PivotCache
    Dim pvtTable As PivotTable
    Dim pvtRange As Range
    
    ' 处理旧透视表工作表
    On Error Resume Next
    Application.DisplayAlerts = False
    Worksheets("PivotTable").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0 ' 及时关闭错误忽略，后续报错正常提示
    
    ' 新建工作表
    Sheets.Add Before:=ActiveSheet
    ActiveSheet.Name = "PivotTable"
    Set pvtSheet = Worksheets("PivotTable")
    Set pvtData = Worksheets("Sheet1")
    
    ' 正确限定数据源范围，所有Range都绑定pvtData
    With pvtData
        Set pvtRange = Application.Union(.Range("B3:C1000"), .Range("E3:F1000"), _
        .Range("H3:I1000"), .Range("K3:L1000"), .Range("N3:O1000"), .Range("Q3:R1000"))
    End With
    
    ' 正确创建透视缓存
    Set pvtCache = ThisWorkbook.PivotCaches.Create( _
        SourceType:=xlDatabase, _
        SourceData:=pvtRange)
    
    ' 仅创建一次透视表
    Set pvtTable = pvtCache.CreatePivotTable( _
        TableDestination:=pvtSheet.Cells(1, 1), _
        TableName:="ExpensePivotTable")
    
    ' 绑定字段，直接用pvtTable对象避免调用出错
    With pvtTable.PivotFields("Catagory") ' 确认源表表头拼写和此处一致
        .Orientation = xlColumnField
        .Position = 1
    End With
    
    With pvtTable.PivotFields("Date")
        .Orientation = xlColumnField
        .Position = 2
    End With
    
    With pvtTable.PivotFields("Cost")
        .Orientation = xlRowField
        .Position = 1
    End With
End Sub

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