Excel VBA问题：点击C3:C40区域仅保留单个“x”的代码修改方法

我来帮你搞定这个需求！要实现点击C3:C40区域内的单元格时，始终只保留当前点击单元格的"x"，核心逻辑就是：每次点击时先清空目标区域内所有已有的"x"，再给当前点击的单元格加上标记。下面是具体的修改方案：

方案一：单击单元格触发（SelectionChange事件） #

如果你的原代码是通过单击单元格触发的，用这个版本：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 定义我们要控制的区域：C3到C40
    Dim targetArea As Range
    Set targetArea = Me.Range("C3:C40")
    
    ' 只处理单个单元格被选中，且该单元格在目标区域内的情况
    If Target.Count = 1 And Not Intersect(Target, targetArea) Is Nothing Then
        ' 第一步：清空目标区域内所有的"x"
        targetArea.Replace What:="x", Replacement:="", LookAt:=xlWhole, MatchCase:=True
        ' 第二步：给当前点击的单元格添加"x"
        Target.Value = "x"
    End If
End Sub

代码说明： #

• 先划定了操作范围targetArea，避免误操作其他单元格；
• 加入判断条件，只有选中单个目标区域内的单元格才执行操作，排除多选或点击其他区域的情况；
• 用Replace方法一次性清空所有旧的"x"，再给当前单元格设置新标记，确保始终只有一个"x"存在。

方案二：双击单元格触发（BeforeDoubleClick事件） #

如果你的原代码是通过双击触发的（比如不想和正常单击选中单元格冲突），可以用这个版本：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim targetArea As Range
    Set targetArea = Me.Range("C3:C40")
    
    If Not Intersect(Target, targetArea) Is Nothing Then
        ' 取消双击默认的进入编辑模式，让操作更流畅
        Cancel = True
        ' 清空目标区域所有旧的"x"
        targetArea.Replace What:="x", Replacement:="", LookAt:=xlWhole, MatchCase:=True
        ' 给当前双击的单元格添加"x"
        Target.Value = "x"
    End If
End Sub

小提示： #

• 这段代码要放在对应的工作表模块里（右键工作表标签→查看代码，然后粘贴进去）；
• 如果需要区分大小写（比如不想把大写的"X"也清空），可以保留MatchCase:=True，如果不区分就改成False。

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