VBA中VLookup函数返回结果错误、多行匹配值重复问题

核心错误点 #

• 缺失VLookup的第四个匹配参数：VLookup共4个入参，原代码仅传入前3个，缺省状态下默认使用近似匹配（参数值为True），该模式强制要求查找区域的首列按升序排序，否则会返回不可预期的匹配结果，这是所有行返回相同值的核心诱因。
• 查找区域取值逻辑错误：原代码用xlDown从上到下定位区域边界，只要H列存在空单元格就会截断查找范围，导致后续有效数据无法进入匹配池。
• 变量声明与使用不规范：
  • 循环变量i声明为Integer类型，该类型最大支持行号仅为32767，数据量稍大就会触发溢出报错，应使用Long类型
  • 查找区域myrange未加Set关键字，也未声明为Range类型，会默认读取区域值为变体数组，匹配稳定性差
  • 循环上限硬编码为10000，无法适配实际数据行数，行数不足时会读取空值触发错误匹配
  • 未做匹配容错，当查找不到对应值时会直接抛出运行时错误中断程序
• 冗余的单元格激活/选中操作：Activate/Select写法不仅运行效率低，一旦代码运行时用户操作了工作表就会导致区域定位偏移。

修正后的可运行代码 #

Sub 批量匹配填充数据()
    Dim i As Long, lastRow As Long
    Dim myrange As Range
    Dim userlogin As Variant, UserName As Variant, UserID As Variant
    
    ' 从列底部向上定位，精准获取H:I列的有效数据范围，避免空单元格截断区域
    lastRow = Cells(Rows.Count, "H").End(xlUp).Row
    Set myrange = Range("H2:I" & lastRow)
    
    ' 获取C列实际有效数据行数，替代硬编码的行数上限
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row
    
    ' 关闭屏幕更新，大幅提升万行级数据的运行速度
    Application.ScreenUpdating = False
    For i = 2 To lastRow
        userlogin = Range("C" & i).Value
        ' 第四个参数传入False，强制精确匹配
        UserName = Application.VLookup(userlogin, myrange, 1, False)
        UserID = Application.VLookup(userlogin, myrange, 2, False)
        
        ' 匹配不到对应值时填充空值，避免程序报错中断
        If IsError(UserName) Then UserName = ""
        If IsError(UserID) Then UserID = ""
        
        Range("A" & i) = UserName
        Range("B" & i) = UserID
    Next i
    Application.ScreenUpdating = True
End Sub

适配数值格式问题的补充说明 #

如果运行后仍存在部分值匹配不到的情况，大概率是C列和H列的匹配键格式不一致（比如一边是文本型数字、一边是数值型数字），可以将代码中读取userlogin的行替换为以下写法，统一转换为文本格式匹配：

userlogin = CStr(Range("C" & i).Value)

同时提前选中H列，通过「数据-分列-第三步选择文本」将查找键列统一为文本格式即可解决格式不匹配问题。

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