我仔细看了你的VBA代码，发现几个关键问题导致第二个透视表的页字段设置没生效，下面帮你拆解并修正：

核心问题分析 #

• 透视表对象引用错误：你创建透视表前切换到了Data Set2工作表，然后执行Set PvtTbl = ActiveSheet.PivotTables(1)，但透视表实际是建在Pivot Table工作表里的！这会导致后续的格式设置可能误操作到了Data Set2里已有的透视表，而非你新建的那个，逻辑完全混乱了。
• 复制粘贴后透视表引用不可靠：直接用ActiveSheet.PivotTables(2)获取第二个透视表不够稳妥，粘贴完成后Excel需要一点时间注册新对象，而且用索引可能因为意外情况出错。
• 不必要的工作表切换：创建透视表根本不需要切换到Data Set2，PivotTableWizard可以通过参数直接指定数据源和目标位置，切换工作表只会增加出错概率。

修正后的完整代码 #

Sub CreatingPivotTable()
    Dim DataRange As String
    Dim DestiRange As String
    Dim pivotSheet As Worksheet
    Dim PvtTbl As PivotTable
    Dim PvtTb2 As PivotTable
    
    ' 获取选中的数据源范围
    DataRange = ActiveSheet.Name & "!" & Selection.Address(, , xlR1C1)
    
    ' 新建并命名透视表专用工作表
    Set pivotSheet = Worksheets.Add(After:=Worksheets(ActiveSheet.Name))
    pivotSheet.Name = "Pivot Table"
    
    ' 设置第一个透视表的起始位置
    pivotSheet.Range("A3").Select
    DestiRange = "'" & pivotSheet.Name & "'!" & ActiveCell.Address(, , xlR1C1)
    
    ' 直接在目标工作表创建透视表，无需切换工作表
    Set PvtTbl = pivotSheet.PivotTableWizard( _
        SourceType:=xlDatabase, _
        SourceData:=DataRange, _
        TableDestination:=DestiRange)
    
    ' 配置第一个透视表的字段与格式
    With PvtTbl
        ' 设置行字段层级
        With .PivotFields("Region")
            .Orientation = xlRowField
            .Position = 1
        End With
        With .PivotFields("Department")
            .Orientation = xlRowField
            .Position = 2
        End With
        
        ' 添加销售额汇总字段并设置数字格式
        .AddDataField .PivotFields("Sales"), "Sum of Sales", xlSum
        .PivotFields("Sales").NumberFormat = "#,##.00000"
        
        ' 禁用所有字段的自动小计
        For Each pvtFld In .PivotFields
            pvtFld.Subtotals(1) = False
        Next pvtFld
        
        ' 设置透视表样式并自动调整列宽
        .TableStyle2 = "PivotStyleMedium17"
        .PivotSelect "", xlDataAndLabel
        Selection.EntireColumn.AutoFit
    End With
    
    ' 复制第一个透视表到F3位置
    PvtTbl.TableRange1.Copy
    pivotSheet.Range("F3").PasteSpecial xlPasteAll
    
    ' 通过粘贴位置可靠获取第二个透视表对象
    Set PvtTb2 = pivotSheet.PivotTables(pivotSheet.Range("F3").PivotTable.Name)
    
    ' 为第二个透视表添加页字段
    With PvtTb2
        .PivotFields("Employee Name").Orientation = xlPageField
    End With
    
    ' 清理对象释放内存
    Set PvtTbl = Nothing
    Set PvtTb2 = Nothing
    Set pivotSheet = Nothing
End Sub

关键修正说明 #

1. 杜绝无效工作表切换：直接通过pivotSheet.PivotTableWizard创建透视表，确保所有操作都在目标工作表上进行，彻底避免对象引用错误。
2. 可靠获取第二个透视表：通过粘贴位置Range("F3")的PivotTable属性来获取对象，比用索引2稳妥得多，哪怕工作表里有其他透视表也不会出错。
3. 简化小计设置：原代码里先设True再改False完全多余，直接设False就能禁用自动小计。
4. 明确对象变量：用pivotSheet变量固定指向透视表工作表，不再依赖ActiveSheet这种容易出问题的动态引用。

这样修改后，第二个透视表就能正确添加Employee Name作为页字段了。

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