Excel 2016编写的数据透视表宏在Excel 2013中运行报错求助

核心结论 #

Excel 2016编写的VBA代码大部分可在Excel 2013中运行，只要未使用2016新增的专属API、对象或功能（数据透视表基础创建逻辑属于跨版本兼容范畴）。你遇到的报错，大概率是代码写法不严谨导致，而非版本核心兼容性问题。

具体修复步骤 #

1. 替换依赖活动对象的模糊引用 #

原代码使用ActiveWorkbook、未明确工作表归属的Cells.Find，这类写法依赖当前活动状态，不同版本下可能出现上下文偏差。改用明确的工作簿和工作表引用：

Dim wb As Workbook
Dim wsSource As Worksheet
Dim lastRow As Long

Set wb = ThisWorkbook ' 明确指向当前宏所在工作簿
Set wsSource = wb.Worksheets("Sheet1")
lastRow = wsSource.Cells.Find("*", wsSource.Range("A1"), , , xlByRows, xlPrevious).Row

2. 避免数据透视表名称重复 #

如果Sheet3中已存在名为PivotTable2的数据透视表，Excel 2013会直接报错。建议先检查并处理重复情况：

' 检查目标表是否存在同名透视表，存在则删除
On Error Resume Next
wb.Worksheets("Sheet3").PivotTables("PivotTable2").TableRange2.Clear
On Error GoTo 0

3. 拆分链式调用，改用分步创建逻辑 #

原代码将PivotCaches.Create和CreatePivotTable链式调用，老版本Excel对这种写法的支持稳定性较差，拆分后更可靠：

Dim pvtCache As PivotCache
Dim pvtTable As PivotTable

' 创建透视缓存
Set pvtCache = wb.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=wsSource.Range("A1:AB" & lastRow))

' 创建透视表
Set pvtTable = pvtCache.CreatePivotTable( _
    TableDestination:=wb.Worksheets("Sheet3").Range("A1"), _
    TableName:="PivotTable2")

4. 确保目标工作表存在 #

如果同事的工作簿中没有Sheet3，代码会直接报错，可提前添加检查：

' 检查Sheet3是否存在，不存在则新建
On Error Resume Next
Set wsDest = wb.Worksheets("Sheet3")
If Err.Number <> 0 Then
    Set wsDest = wb.Worksheets.Add(After:=wb.Worksheets(wb.Worksheets.Count))
    wsDest.Name = "Sheet3"
End If
On Error GoTo 0

完整修改后的代码 #

Sub CreatePivotTable()
    Dim wb As Workbook
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim lastRow As Long
    Dim pvtCache As PivotCache
    Dim pvtTable As PivotTable

    ' 绑定当前工作簿及源工作表
    Set wb = ThisWorkbook
    Set wsSource = wb.Worksheets("Sheet1")

    ' 检查并创建目标工作表
    On Error Resume Next
    Set wsDest = wb.Worksheets("Sheet3")
    If Err.Number <> 0 Then
        Set wsDest = wb.Worksheets.Add(After:=wb.Worksheets(wb.Worksheets.Count))
        wsDest.Name = "Sheet3"
    End If
    On Error GoTo 0

    ' 获取数据源最后一行
    lastRow = wsSource.Cells.Find("*", wsSource.Range("A1"), , , xlByRows, xlPrevious).Row

    ' 清理同名透视表（如果存在）
    On Error Resume Next
    wsDest.PivotTables("PivotTable2").TableRange2.Clear
    On Error GoTo 0

    ' 创建透视缓存
    Set pvtCache = wb.PivotCaches.Create( _
        SourceType:=xlDatabase, _
        SourceData:=wsSource.Range("A1:AB" & lastRow))

    ' 创建透视表
    Set pvtTable = pvtCache.CreatePivotTable( _
        TableDestination:=wsDest.Range("A1"), _
        TableName:="PivotTable2")
End Sub

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