VBA循环未校验重复零件编号 如何添加重复检测及弹窗功能

• 代码执行顺序错误：进入过程后直接添加了新行Set newrow = tbl.ListRows.Add，不管零件号是否重复都会先插入空行
• 列匹配逻辑错误：使用未赋值的变量PartNum、拼写错误的变量MaterialDecription调用Match方法，无法正确定位零件号、物料描述所在列
• 循环逻辑完全错误：
  1. 只要当前行零件号和输入值不相等就直接插入数据，不会继续向后遍历校验所有行
  2. 行号递增逻辑X = X + 1放在永远触发不了的分支中，要么出现死循环要么直接终止遍历
• 大量拼写错误：MaterailDescription、DecriptionColumnIndex等变量名拼写错误，导致变量取值异常
• On Error Resume Next未做错误处理，列匹配失败后后续代码全部执行异常

Private Sub Add_Click()
    Dim ws As Worksheet
    Set ws = Sheet4
    Dim X As Integer
    Dim lastrow As Long
    Dim PartColumnIndex As Integer
    Dim DescriptionColumnIndex As Integer
    Dim isExist As Boolean ' 标记零件号是否存在
    
    ' 表头常量，用于匹配列
    Const Part = "CM ECP"
    Const Description = "Material Description"
    
    Dim tbl As ListObject
    Set tbl = ws.ListObjects("Master")
    
    With ws
        ' 匹配零件号、物料描述所在列，匹配失败直接退出
        On Error Resume Next
        PartColumnIndex = WorksheetFunction.Match(Part, .Rows(2), 0)
        DescriptionColumnIndex = WorksheetFunction.Match(Description, .Rows(2), 0)
        On Error GoTo 0
        If PartColumnIndex = 0 Or DescriptionColumnIndex = 0 Then
            MsgBox "未匹配到零件号或物料描述列，请检查表头配置"
            Exit Sub
        End If
        
        lastrow = .Cells(.Rows.Count, PartColumnIndex).End(xlUp).Row
        isExist = False
        
        ' 遍历所有现有零件号
        For X = 3 To lastrow
            If TextBox1.Value = .Cells(X, PartColumnIndex).Value Then
                isExist = True
                Exit For ' 找到重复直接退出循环
            End If
        Next X
        
        ' 根据是否重复执行对应逻辑
        If isExist Then
            MsgBox "Part Number " & TextBox1.Value & " already exists. Please try again or return to main screen."
        Else
            ' 无重复才添加新行
            Dim newrow As ListRow
            Set newrow = tbl.ListRows.Add
            With newrow
                .Range(1) = TextBox1.Value
                .Range(2) = TextBox2.Value
            End With
            ' 可选：添加成功后清空输入框
            TextBox1.Value = ""
            TextBox2.Value = ""
        End If
    End With
End Sub

• 新增isExist标记位，先遍历全表校验零件号是否存在，校验完成后再执行插入/弹窗逻辑
• 修正列匹配逻辑，使用定义好的表头常量匹配列，新增错误判断避免匹配失败后逻辑异常
• 替换循环逻辑为更简洁的For循环，避免死循环和遍历不完整的问题
• 调整新行插入时机：只有确认零件号不存在时才执行插入新行操作，避免生成无效空行
• 修复所有变量拼写错误，删除冗余无用变量

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