VBA循环中VLookup始终返回首行值的问题排查与解决

嘿，这问题其实挺典型的——你循环里的VLookup查找值没跟着循环变量动态变化呀！

核心问题 #

看你代码里的这行关键逻辑：

result = Application.WorksheetFunction.VLookup(sheet.Range("$B$10"), _
sheet1.Range("$B$10:$Q$48"), 16, False)

你把查找值固定成了$B$10（绝对引用），不管循环变量i跑到第几行，每次都在查B10单元格的值，所以所有行的结果自然都一模一样啦！

修复方案 #

把查找值改成跟随循环变量i的动态单元格，也就是sheet.Range("B" & i)，这样每次循环到第i行，就会用当前行B列的值去做VLookup。同时我还加了一些小优化，避免代码报错：

Sub vlookup_Click()
    Application.ScreenUpdating = False
    Dim result As Variant ' 改成Variant，方便处理找不到值的情况
    Dim i As Long
    Dim iLast As Long
    Dim sheet As Worksheet
    Dim sheet1 As Worksheet
    Dim WrkSht As String
    
    WrkSht = "Sheet1"
    Set sheet = ActiveWorkbook.Sheets(WrkSht)
    Set sheet1 = ActiveWorkbook.Sheets("InventoryReport")
    iLast = sheet.Range("A" & sheet.Rows.Count).End(xlUp).Row ' 直接用sheet对象，更严谨
    
    For i = 10 To iLast
        ' 用Application.VLookup代替WorksheetFunction，找不到值时不会直接崩溃
        result = Application.VLookup(sheet.Range("B" & i), sheet1.Range("$B$10:$Q$48"), 16, False)
        
        ' 处理查找结果：找到就写入，没找到可以留空或写提示
        If Not IsError(result) Then
            sheet.Cells(i, 9).Value = result
        Else
            sheet.Cells(i, 9).Value = "未匹配" ' 可根据需求调整
        End If
    Next i
    
    Application.ScreenUpdating = True ' 记得恢复屏幕更新
End Sub

额外优化说明 #

1. 把result类型从String改为Variant：因为Application.VLookup找不到匹配项时会返回错误值，Variant类型才能正常接收，避免类型报错。
2. 增加错误判断：防止找不到值时代码直接崩溃，让结果更友好。
3. 恢复屏幕更新：执行前关闭了ScreenUpdating，执行完记得打开，不然Excel界面会一直处于冻结状态。
4. 简化最后一行获取逻辑：直接用sheet对象代替重复的工作表名称引用，代码更简洁严谨。

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