请求协助：为现有VBA用户表单添加重复数据校验功能

首先新增一个重复检查函数，用来验证当前表单内容是否已存在于Data工作表中。这里默认以「仓库+机器+机器编号」的组合作为重复判定依据，你可根据实际需求调整校验字段：

Private Function CheckDuplicate() As Boolean
    Dim wsData As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set wsData = ThisWorkbook.Sheets("Data")
    lastRow = wsData.Range("A1048576").End(xlUp).Row
    
    ' 遍历现有数据检查重复
    For i = 2 To lastRow ' 假设第一行是表头，从第二行开始遍历
        ' 可按需调整校验的字段组合
        If wsData.Range("B" & i).Value = cmbWarehouse.Text _
           And wsData.Range("C" & i).Value = CmbMachine.Text _
           And wsData.Range("D" & i).Value = txtMachinenr.Text Then
            MsgBox "该仓库-机器-编号组合已存在，请勿重复提交！", vbExclamation, "重复提示"
            CheckDuplicate = False
            Exit Function
        End If
    Next i
    
    ' 未找到重复则返回True
    CheckDuplicate = True
End Function

接下来修改cmdSave_Click事件代码，在表单验证通过后、保存数据前加入重复检查逻辑：

Private Sub cmdSave_Click()
    Application.ScreenUpdating = False
    
    Dim iRow As Long
    iRow = Sheets("Data").Range("A1048576").End(xlUp).Row + 1
    
    If ValidateForm = True Then
        ' 新增重复检查，若存在重复则终止保存
        If Not CheckDuplicate() Then
            Application.ScreenUpdating = True
            Exit Sub
        End If
        
        With ThisWorkbook.Sheets("Data")
           .Range("A" & iRow).Value = iRow - 1
           .Range("B" & iRow).Value = cmbWarehouse.Text
           .Range("C" & iRow).Value = CmbMachine.Text
           .Range("D" & iRow).Value = txtMachinenr.Text
           .Range("E" & iRow).Value = TxtUrenstand.Text
           .Range("F" & iRow).Value = DTPicker1.Value
        End With
        Call Reset
    Else
        Application.ScreenUpdating = True
        Exit Sub
    End If
    
    Application.ScreenUpdating = True
End Sub

补充说明 #

• 若需调整重复判定规则，直接修改CheckDuplicate函数中的If条件即可，比如要加入日期或工时校验，新增对应字段的判断语句就行。
• 如果Data表没有表头（数据从第一行开始），把For i = 2 To lastRow改成For i = 1 To lastRow。
• 提示框文字可根据实际场景自定义，让用户更清晰了解重复原因。

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