如何实现Excel两列（A列、B列）禁止重复输入？现有VBA代码失效求助

原代码有两个关键问题导致失效：

• 监控范围写错了：你要限制A、B列，但代码里写的是Range("AA:BB")，完全不对。
• 重复判定逻辑不符合需求：原代码是统计整个范围内值的出现次数>1就判定重复，但你的需求是A列已有的值不能出现在B列，不是禁止同一列重复，所以逻辑要调整。

修正后的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim checkRange As Range
    ' 监控A、B列
    Set checkRange = Me.Range("A:B")
    
    ' 只处理单个单元格的修改，且修改的是A/B列，空值直接退出
    If Intersect(Target, checkRange) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    
    Application.EnableEvents = False
    On Error GoTo ResetEvents ' 防止出错后事件一直关闭
    
    Select Case Target.Column
        Case 1 ' 修改的是A列，检查B列有没有重复值
            If WorksheetFunction.CountIf(Me.Range("B:B"), Target.Value) > 0 Then
                MsgBox Target.Value & " 已在B列存在，禁止输入"
                Target.ClearContents
            End If
        Case 2 ' 修改的是B列，检查A列有没有重复值
            If WorksheetFunction.CountIf(Me.Range("A:A"), Target.Value) > 0 Then
                MsgBox Target.Value & " 已在A列存在，禁止输入"
                Target.ClearContents
            End If
    End Select
    
ResetEvents:
    Application.EnableEvents = True
    If Err.Number <> 0 Then Err.Clear
End Sub

改动说明 #

• 把监控范围改成Me.Range("A:B")，确保只监听A、B列的修改。
• 分列判断：根据修改的是A列还是B列，分别去另一列检查重复，完全匹配你的需求。
• 增加错误处理：防止操作过程中出错导致Application.EnableEvents一直处于关闭状态，避免后续事件失效。
• 用Target.ClearContents代替Application.Undo，更精准地清除当前输入的重复值，不会撤销之前的其他操作。

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