使用VBA防止多列重复录入求助：供应商与零件号组合校验异常

咱们来逐个拆解你遇到的三个问题，顺便给你修正后的可用代码：

1. 为什么代码放普通模块无效，移到Sheet1才生效？ #

Worksheet_Change是工作表专属的事件过程，它必须绑定在对应的工作表代码模块里（比如右键Sheet1标签→「查看代码」打开的窗口）才能响应单元格变化。普通模块里的代码没法触发工作表级别的事件，所以移到Sheet1模块后生效是正常的，这是VBA事件的机制特性~

2. 仅填B列未填E列就触发重复提示的原因 #

你原来的代码逻辑走偏了！原本的CountIf只检查了当前编辑列的单个值重复，完全没实现「B列供应商+E列零件号的组合不可重复」的需求。比如你在B列输入一个已存在的供应商，不管E列有没有内容，代码就会误判为重复，这就是问题根源。

3. 偶尔出现类型不匹配错误的原因 #

• 当你批量粘贴内容时，Target是多单元格区域，.Value会返回数组，CountIf没法处理数组就会报错；
• 如果单元格里是错误值（比如#N/A、#VALUE!），CountIf也会触发类型不匹配；
• 原代码里.Cells.Count = 1的判断写反了，应该是多单元格变化时直接退出，避免报错。

修正后的完整代码 #

把这段代码粘贴到Sheet1的代码模块里即可：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只监听B列(2)和E列(5)的单元格变化，其他列编辑直接跳过
    If Intersect(Target, Me.Range("B:B,E:E")) Is Nothing Then Exit Sub
    
    ' 关闭事件触发，避免清除内容时再次触发Change事件导致循环
    Application.EnableEvents = False
    
    ' 循环处理每个变化的单元格（兼容批量粘贴场景）
    Dim cell As Range
    For Each cell In Intersect(Target, Me.Range("B:B,E:E"))
        Dim rowNum As Long
        rowNum = cell.Row
        
        ' 获取当前行的供应商和零件号
        Dim vendor As Variant, partNum As Variant
        vendor = Me.Cells(rowNum, "B").Value
        partNum = Me.Cells(rowNum, "E").Value
        
        ' 跳过空值组合：只有B和E都有内容时才检查重复
        If IsEmpty(vendor) Or IsEmpty(partNum) Then GoTo NextCell
        
        ' 用CountIfs统计组合出现的次数，加入错误处理避免错误值报错
        Dim comboCount As Long
        On Error Resume Next
        comboCount = WorksheetFunction.CountIfs(Me.Range("B:B"), vendor, Me.Range("E:E"), partNum)
        On Error GoTo 0
        
        ' 如果组合重复，清除当前单元格并提示
        If comboCount > 1 Then
            Application.DisplayAlerts = False
            cell.ClearContents
            Application.DisplayAlerts = True
            MsgBox "供应商与零件号的组合已存在！", vbExclamation, "重复提示"
        End If
NextCell:
    Next cell
    
    ' 恢复事件触发，不影响后续其他操作
    Application.EnableEvents = True
End Sub

代码核心优化点 #

• 精准监听目标列：只对B、E列的编辑触发检查；
• 空值过滤：只有当B和E都填写内容时，才校验组合重复；
• 兼容批量操作：循环处理每个变化的单元格，避免批量粘贴报错；
• 错误防护：加入错误捕获，防止单元格错误值导致的类型不匹配；
• 避免循环触发：关闭事件后再清除内容，防止重复触发Change事件。

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