如何获取数据透视表中某列手动修改值的列表？

一、用Excel内置修订功能追踪修改记录 #

如果修改前已经开启了修订功能，直接查看：

• 切换到「审阅」选项卡 → 点击「修订」→ 选择「突出显示修订」
• 勾选「在屏幕上突出显示更改」，设置好范围（比如整个工作表），点击确定
• 被手动修改的单元格会出现蓝色标记，鼠标悬停就能看到修改时间、旧值、新值等信息

注意：如果修改前没开修订功能，这个方法看不到历史记录，得用下面的VBA方法。

二、用VBA脚本找出所有被修改的透视表单元格 #

数据透视表的默认数值单元格是GETPIVOTDATA公式，手动修改后会变成常量。用以下脚本可以批量找出这些修改过的单元格，同时算出原值：

Sub FindModifiedPivotCells()
    Dim pvt As PivotTable
    Dim cell As Range
    Dim ws As Worksheet
    Dim resultWs As Worksheet
    
    ' 替换成你的透视表所在工作表名称
    Set ws = ThisWorkbook.Worksheets("透视表工作表")
    ' 替换成你的透视表名称，比如"数据透视表1"
    Set pvt = ws.PivotTables("数据透视表1")
    
    ' 创建新工作表存放结果
    Set resultWs = ThisWorkbook.Worksheets.Add
    resultWs.Range("A1:C1").Value = Array("单元格位置", "原值", "修改后值")
    
    ' 遍历透视表数据区域
    For Each cell In pvt.DataBodyRange
        ' 判断是否为手动修改的常量单元格
        If Not cell.HasFormula Then
            ' 通过GETPIVOTDATA获取原值（根据你的透视表字段调整）
            Dim originalVal As Variant
            On Error Resume Next
            originalVal = Evaluate("GETPIVOTDATA(""" & pvt.DataFields(1).Name & """,""" & pvt.Name & """,""" & _
                pvt.RowFields(1).Name & """,""" & cell.RowItems(1).Value & """,""" & _
                pvt.ColumnFields(1).Name & """,""" & cell.ColumnItems(1).Value & """)")
            On Error GoTo 0
            
            ' 写入结果到新表
            With resultWs.Range("A" & resultWs.Cells(Rows.Count, "A").End(xlUp).Row + 1)
                .Value = cell.Address
                .Offset(0, 1).Value = originalVal
                .Offset(0, 2).Value = cell.Value
            End With
        End If
    Next cell
    
    MsgBox "已完成，结果在新工作表中"
End Sub

使用说明：

1. 按Alt+F11打开VBA编辑器
2. 插入模块，粘贴上述代码
3. 修改代码中的工作表名称、透视表名称，以及行/列字段的序号（如果你的透视表有多个行/列字段，需要调整RowFields(1)、ColumnFields(1)的数字）
4. 运行脚本，会生成新工作表，列出所有被修改的单元格位置、原值和修改后的值

三、防止误修改的预防措施 #

• 禁止修改透视表单元格：右键数据透视表 → 「数据透视表选项」→ 「保护」→ 勾选「禁止修改单元格」，这样就无法手动编辑透视表的数值单元格
• 保护工作表：切换到「审阅」选项卡 → 「保护工作表」，设置密码后，可限制仅允许编辑特定区域，避免误操作

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