Excel VBA文本框重复值校验需求及代码报错求助

一、先排查“子程序或对象未设置”错误 #

这个错误通常是以下原因导致：

• 未指定工作表就直接调用Range/Cell对象
• 对象变量（如Range）未初始化就使用
• 引用了不存在的控件或工作表

二、完整校验代码（用户窗体版本） #

假设你的用户窗体有TextBox3（输入型号），型号需要存入Sheet1的C列，且要校验C列是否已有重复值：

Private Sub TextBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Dim targetSheet As Worksheet
    Dim modelRange As Range
    Dim inputModel As String
    Dim foundCell As Range
    
    ' 初始化工作表对象（避免未指定工作表的错误）
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    inputModel = Trim(TextBox3.Value)
    
    ' 空值直接放行
    If inputModel = "" Then Exit Sub
    
    ' 定义要校验的区域：型号存储在C列，从第2行开始到最后一行（第1行是表头）
    Set modelRange = targetSheet.Range("C2:C" & targetSheet.Cells(targetSheet.Rows.Count, "C").End(xlUp).Row)
    
    ' 查找是否存在重复值（精确匹配整个单元格内容）
    Set foundCell = modelRange.Find(What:=inputModel, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundCell Is Nothing Then
        ' 重复值处理：方案1 - 阻止输入并提示
        MsgBox "型号 " & inputModel & " 已存在，请输入其他型号！", vbExclamation, "重复警告"
        Cancel = True ' 取消输入，保留原有内容
        TextBox3.SetFocus
        
        ' 方案2 - 删除原有重复值，允许当前输入（根据需求切换）
        ' foundCell.ClearContents
        ' MsgBox "已删除原有重复型号 " & inputModel & "，当前输入已保留", vbInformation, "重复处理完成"
    End If
End Sub

三、工作表ActiveX TextBox版本 #

如果TextBox3是工作表上的ActiveX控件，代码放在对应工作表模块中：

Private Sub TextBox3_BeforeUpdate(ByVal Cancel As Boolean)
    Dim targetSheet As Worksheet
    Dim modelRange As Range
    Dim inputModel As String
    Dim foundCell As Range
    
    Set targetSheet = Me ' 当前工作表
    inputModel = Trim(TextBox3.Value)
    
    If inputModel = "" Then Exit Sub
    
    ' 动态获取TextBox所在列，偏移2列作为校验区域（比如TextBox在A列，偏移2列就是C列）
    Dim targetCol As Integer
    targetCol = TextBox3.TopLeftCell.Column + 2
    Set modelRange = targetSheet.Range(targetSheet.Cells(2, targetCol), targetSheet.Cells(targetSheet.Rows.Count, targetCol).End(xlUp))
    
    Set foundCell = modelRange.Find(What:=inputModel, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundCell Is Nothing Then
        MsgBox "型号 " & inputModel & " 已存在，请输入其他型号！", vbExclamation, "重复警告"
        Cancel = True
        TextBox3.SetFocus
        
        ' 若要删除重复值，取消下面注释
        ' foundCell.ClearContents
        ' MsgBox "已删除原有重复项", vbInformation
    End If
End Sub

四、关键代码说明 #

• Set targetSheet = ThisWorkbook.Worksheets("Sheet1")：明确指定工作表，避免默认对象未设置的错误
• LookAt:=xlWhole：确保精确匹配整个单元格内容，避免部分匹配导致误判
• Cancel = True：在BeforeUpdate事件中取消输入，阻止重复值写入
• TextBox3.TopLeftCell.Column + 2：动态适配TextBox所在位置，自动定位偏移2列的校验区域

五、调试注意事项 #

1. 确认工作表名称与代码中一致，比如Sheet1是否是你的目标工作表
2. 调整校验区域的起始行：如果表头不在第1行，需修改modelRange中的起始行号
3. 若校验区域为空（比如只有表头），可添加判断避免空区域报错：

   If modelRange.Row > targetSheet.Cells(targetSheet.Rows.Count, targetCol).End(xlUp).Row Then
       Exit Sub ' 无数据，直接放行
   End If
   

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