基于VBA实现工作表数据的最快VLOOKUP查询方法

针对你需要单次查询某列指定值对应另一列内容的需求，这里有几个高效且简洁的实现方法，专门适配单次查找场景（无需重复查询缓存）：

方案1：使用WorksheetFunction.VLookup（最简洁） #

这是最直接的方法，利用Excel内置的VLOOKUP函数，代码量极少，适合常规的单次查找：

Sub SingleLookupWithVLookup()
    Dim targetKey As String
    Dim resultValue As Variant
    Dim lookupRange As Range
    
    ' 设置要查找的关键词
    targetKey = "key990000"
    ' 定义查找范围：A列为查找键，B列为返回值（这里假设数据在A:B列，从第1行开始）
    Set lookupRange = ThisWorkbook.Sheets("Sheet1").Range("A:B")
    
    On Error Resume Next ' 处理找不到的情况
    resultValue = WorksheetFunction.VLookup(targetKey, lookupRange, 2, False)
    On Error GoTo 0
    
    ' 输出结果
    If IsEmpty(resultValue) Then
        MsgBox "未找到匹配的关键词：" & targetKey
    Else
        MsgBox "对应B列的值为：" & resultValue
    End If
End Sub

注意：False参数表示精确匹配，一定要加上，避免返回近似结果；加上错误处理是为了防止找不到关键词时触发运行时错误。

方案2：使用Range.Find方法（更灵活） #

如果需要对查找过程有更多控制（比如指定查找方向、区分大小写等），Range.Find是更好的选择：

Sub SingleLookupWithFind()
    Dim targetKey As String
    Dim foundCell As Range
    Dim resultValue As String
    
    targetKey = "key990000"
    
    ' 在A列查找关键词
    Set foundCell = ThisWorkbook.Sheets("Sheet1").Range("A:A").Find( _
        What:=targetKey, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, ' 精确匹配单元格内容
        MatchCase:=False) ' 不区分大小写，需要的话改成True
    
    ' 处理结果
    If Not foundCell Is Nothing Then
        resultValue = foundCell.Offset(0, 1).Value ' 取同一行B列的值
        MsgBox "对应B列的值为：" & resultValue
    Else
        MsgBox "未找到匹配的关键词：" & targetKey
    End If
End Sub

这个方法的优势是可以自定义查找规则，比如只查找单元格的部分内容（把xlWhole改成xlPart），或者区分大小写。

方案3：数组读取+遍历（大数据量最优） #

如果你的工作表数据非常庞大（几万行甚至更多），直接操作单元格会比较慢，建议先把数据读到内存数组里再遍历，速度会快很多：

Sub SingleLookupWithArray()
    Dim targetKey As String
    Dim dataArray As Variant
    Dim i As Long
    Dim resultValue As String
    Dim ws As Worksheet
    
    targetKey = "key990000"
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 把A:B列的数据读到数组（假设数据从第1行到最后一行）
    dataArray = ws.Range("A1:B" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).Value
    
    ' 遍历数组查找
    For i = LBound(dataArray, 1) To UBound(dataArray, 1)
        If dataArray(i, 1) = targetKey Then
            resultValue = dataArray(i, 2)
            Exit For ' 找到就退出循环，不用继续遍历
        End If
    Next i
    
    ' 输出结果
    If resultValue <> "" Then
        MsgBox "对应B列的值为：" & resultValue
    Else
        MsgBox "未找到匹配的关键词：" & targetKey
    End If
End Sub

数组操作完全在内存中进行，比逐个访问单元格快几十倍，非常适合大数据量的单次查询。

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