Excel VBA匹配B列单元格值后向对应行E列写入数据问题求解

你需要实现的是根据文本框输入值在B列做精确匹配，定位到行后将另一个文本框内容写入同行E列，原有代码的查找逻辑存在语法和逻辑错误，修正后可直接使用。

原有代码核心问题 #

• 查找过程变量名定义和使用不一致，定义的compld变量未被实际调用
• 窗体控件值引用错误：TextBox1是窗体控件不是工作表单元格，不能套Range()取它的值
• Find方法直接调用.Select，如果没找到匹配值会直接抛出运行时错误，没有做容错判断
• 写入逻辑依赖ActiveCell的选中位置，状态不稳定，容易写错单元格
• 冗余的HighlightMatches过程和当前需求无关，可直接删除

修正后完整代码 #

Private Sub CommandButton1_Click()
    Dim matchRng As Range
    Dim ws As Worksheet
    
    ' 可修改为固定操作的工作表，例如 Set ws = Sheets("数据表")
    Set ws = ActiveSheet
    
    ' 输入非空校验
    If TextBox1.Value = "" Or TextBox2.Value = "" Then
        If MsgBox("数据不完整，是否继续？", vbQuestion + vbYesNo) <> vbYes Then
            Exit Sub
        End If
    End If
    
    ' 在B列做全值精确匹配
    Set matchRng = ws.Range("B:B").Find( _
        What:=TextBox1.Value, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        MatchCase:=False)
    
    ' 未找到匹配值时提示并退出
    If matchRng Is Nothing Then
        MsgBox("B列未找到匹配内容，请检查输入后重试", vbExclamation
        Exit Sub
    End If
    
    ' 向匹配行的E列写入TextBox2的值（B列到E列列差为3，所以偏移3列）
    matchRng.Offset(0, 3) = TextBox2.Value
    ' 如果需要保留原有的写入时间逻辑，取消下一行注释即可，时间会写入G列
    ' matchRng.Offset(0, 5) = Time
    
    ' 重置窗体并关闭
    Call resetForm
    Unload Me
End Sub

Sub resetForm()
    TextBox1.Value = ""
    TextBox2.Value = ""
    UserForm1.TextBox1.SetFocus
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

使用说明 #

• 代码不再依赖选中单元格操作，直接通过查找返回的单元格对象定位写入位置，运行更稳定
• LookAt:=xlWhole参数为全值匹配，符合你要求的“内容完全匹配”规则
• 如果需要区分英文大小写匹配，把MatchCase:=False改为MatchCase:=True即可
• 建议把ws变量指定为固定工作表，避免激活错误工作表导致数据写错位置

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