VBA组合框关联文本框异常：仅显示最后添加ID对应值求助

核心问题分析 #

1. 循环范围错误：你写的循环到lastrow + 1，会包含第1列最后一行之后的空行。如果空行第12列的值经Val转换后和txtindexcontact相等，最后一次循环会覆盖之前的赋值，导致显示错误数据。
2. 匹配逻辑优先级偏差：当前先判断ID再验证姓名组合，若存在多个同ID的行，只有最后一个满足姓名匹配的行才会生效（前面的行姓名不匹配时，循环会持续到最后）。如果是通过ComboBox选中的姓名+ID触发匹配，这个逻辑顺序会导致不必要的遍历。

修复后的代码 #

lastrow = wscontact.Cells(wscontact.Rows.Count, 1).End(xlUp).Row
' 修正循环范围，只遍历有数据的行
For i = 2 To lastrow
    ' 先匹配ComboBox的姓名组合，再验证ID，更贴合触发场景
    If Trim(UCase(cbContact.Value)) = Trim(UCase(wscontact.Cells(i, 3).Value)) & " " & Trim(UCase(wscontact.Cells(i, 4).Value)) Then
        If Val(Me.txtindexcontact) = Val(wscontact.Cells(i, 12).Value) Then
            MsgBox "find"
            FrmVisites.txtfirstname = wscontact.Cells(i, 3).Value
            FrmVisites.txtlastname = wscontact.Cells(i, 4).Value
            FrmVisites.txtposition = wscontact.Cells(i, 5).Value
            FrmVisites.txtphone1 = wscontact.Cells(i, 6).Value
            FrmVisites.txtextension = wscontact.Cells(i, 7).Value
            FrmVisites.txtemail = wscontact.Cells(i, 8).Value
            FrmVisites.txtcellnumber = wscontact.Cells(i, 9).Value
            Exit Sub ' 找到匹配项立即退出，避免后续循环覆盖数据
        End If
    End If
Next i

额外优化建议 #

• 用Find方法提升效率：数据量较大时，循环遍历效率低，可以直接用Find定位目标行：

Dim matchRange As Range
Dim searchText As String
searchText = Trim(UCase(cbContact.Value))

Set matchRange = wscontact.Range("C2:C" & lastrow).Find( _
    What:=Left(searchText, InStr(searchText, " ") - 1), _
    LookIn:=xlValues, _
    LookAt:=xlWhole, _
    MatchCase:=False)

If Not matchRange Is Nothing Then
    ' 验证完整姓名和ID
    If Trim(UCase(matchRange.Value & " " & matchRange.Offset(0, 1).Value)) = searchText _
        And Val(Me.txtindexcontact) = Val(matchRange.Offset(0, 9).Value) Then
        FrmVisites.txtfirstname = matchRange.Value
        FrmVisites.txtlastname = matchRange.Offset(0, 1).Value
        FrmVisites.txtposition = matchRange.Offset(0, 2).Value
        FrmVisites.txtphone1 = matchRange.Offset(0, 3).Value
        FrmVisites.txtextension = matchRange.Offset(0, 4).Value
        FrmVisites.txtemail = matchRange.Offset(0, 5).Value
        FrmVisites.txtcellnumber = matchRange.Offset(0, 6).Value
    End If
End If

• 保证数据唯一性：如果ID是主键，要确保工作表中每个ID唯一，避免同ID多数据行导致匹配混淆。

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