这个问题我之前也帮同事处理过——当Sheet2的数据源更新后，Sheet1里用了旧值的单元格会因为不在新验证列表里触发无效警告，要批量把这些旧值换成新值，有两种实用方法：

方法1：手动查找替换（适合少量旧值替换） #

如果需要更新的旧值不多，用Excel自带的查找替换功能最直接：

• 先在Sheet2里整理好旧值→新值的对应关系，比如旧值是「2023版产品」，新值是「2024版产品」
• 切换到Sheet1，按下Ctrl+H打开「查找和替换」对话框
• 在「查找内容」输入旧值，「替换为」输入对应的新值
• 点击「选项」，勾选单元格匹配（避免把包含旧值的其他内容误替换），然后点击「全部替换」
• 重复上述步骤，把所有需要更新的旧值逐一替换完成

方法2：VBA批量替换（适合大量旧值更新） #

如果有几十上百组新旧值要替换，用VBA脚本效率会高很多：

1. 先在Sheet2里整理好对应表：比如A列放旧值，B列放对应的新值（第一行可以留作表头，从第二行开始填数据）
2. 按下Alt+F11打开VBA编辑器
3. 右键点击左侧的当前工作簿名称 → 「插入」→ 「模块」
4. 把下面的代码粘贴进去，根据你的实际情况修改工作表名称和区域范围：

Sub UpdateOldValidationValues()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim replaceRange As Range
    Dim oldNewPairs As Range
    Dim i As Integer
    
    ' 替换成你的实际工作表名称
    Set wsSource = ThisWorkbook.Worksheets("Sheet2")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet1")
    
    ' 替换成Sheet2里新旧值对应的区域（A列旧值，B列新值）
    Set oldNewPairs = wsSource.Range("A2:B100")
    
    ' 替换成Sheet1里需要更新的数据验证列（比如A列就写"A:A"）
    Set replaceRange = wsTarget.Range("A:A")
    
    ' 遍历所有新旧值对，批量替换
    For i = 1 To oldNewPairs.Rows.Count
        ' 跳过空行
        If oldNewPairs.Cells(i, 1).Value <> "" And oldNewPairs.Cells(i, 2).Value <> "" Then
            replaceRange.Replace _
                What:=oldNewPairs.Cells(i, 1).Value, _
                Replacement:=oldNewPairs.Cells(i, 2).Value, _
                LookAt:=xlWhole, ' 只匹配完全相同的单元格
                MatchCase:=False
        End If
    Next i
    
    MsgBox "旧值批量更新完成！", vbInformation
End Sub

5. 修改代码里的工作表名称、新旧值区域、目标列后，按下F5运行宏，或者回到Excel界面按Alt+F8选择这个宏执行

注意事项 #

• 操作前一定要备份工作簿，避免误操作导致数据丢失
• 如果你的数据验证源用了动态范围（比如Excel表或者OFFSET函数），先确认Sheet2的源范围已经正确更新为新值
• 运行VBA宏时，如果弹出宏禁用提示，点击「启用内容」即可

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