Excel中修改单个单元格值时自动交换单元格数值的实现方法

需求场景 #

现有Excel表格包含值为1和3的单元格，当将任意值为3的单元格修改为1时，表格中所有原值为1的单元格自动变为3，最终实现1和3的全局互换效果。

实现方案（VBA宏） #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧「工程资源管理器」中，双击需要添加功能的工作表（如Sheet1）
3. 在右侧代码窗口粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理单个单元格修改
    If Target.Cells.Count > 1 Then Exit Sub
    
    Application.EnableEvents = False ' 禁用事件避免循环触发
    
    Dim oldValue As Variant, newValue As Variant
    ' 获取修改前后的值
    newValue = Target.Value
    Application.Undo
    oldValue = Target.Value
    Target.Value = newValue ' 恢复用户的修改操作
    
    ' 判断是否为将3修改为1的操作
    If oldValue = 3 And newValue = 1 Then
        ' 遍历工作表已使用区域，互换1和3
        Dim cell As Range
        For Each cell In Me.UsedRange
            Select Case cell.Value
                Case 1: cell.Value = 3
                Case 3: cell.Value = 1
            End Select
        Next cell
    End If
    
    Application.EnableEvents = True ' 重新启用事件
End Sub

4. 保存文件为**启用宏的工作簿（.xlsm）**格式，确保宏功能正常启用

代码说明 #

• 利用Worksheet_Change事件监听工作表的单元格修改操作
• 通过Application.Undo获取修改前的单元格值，精准判断触发条件
• 遍历工作表已使用区域，批量完成1与3的互换替换
• 操作过程中禁用事件，避免修改单元格时重复触发事件导致循环

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