高效查找工作表中唯一值的方法（非VLOOKUP优先）

针对13000行10列数据的工作表，需在第2列查找唯一值并返回对应行数据的需求，以下是比Find方法更高效且避免崩溃的方案：

一、VBA字典预存法（推荐多次查询场景） #

字典的内存查找是O(1)时间复杂度，仅需初始化一次数据，后续查询无性能损耗，同时解决空白单元格、数据类型不匹配问题。

代码实现 #

' 模块级字典变量，避免重复初始化
Dim dataDict As Object

' 初始化字典：将第2列唯一值与对应行号关联
Sub InitDataDict()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim keyVal As Variant
    
    Set ws = ThisWorkbook.Sheets("IMPORT")
    lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
    Set dataDict = CreateObject("Scripting.Dictionary")
    
    For i = 2 To lastRow ' 假设第1行为表头，从第2行开始遍历
        keyVal = ws.Cells(i, 2).Value
        ' 统一处理空白单元格与数据类型
        If IsEmpty(keyVal) Then
            keyVal = "_BLANK_"
        Else
            keyVal = CStr(keyVal)
        End If
        
        ' 仅存入唯一值（若存在重复可根据需求覆盖或跳过）
        If Not dataDict.Exists(keyVal) Then
            dataDict(keyVal) = i ' 存储行号，也可替换为整行数据数组
        End If
    Next i
End Sub

' 查询函数：根据目标值返回对应行号
Function GetTargetRow(searchKey As Variant) As Long
    Dim keyStr As String
    
    ' 统一查询值的格式，与字典键匹配
    If IsEmpty(searchKey) Then
        keyStr = "_BLANK_"
    Else
        keyStr = CStr(searchKey)
    End If
    
    GetTargetRow = IIf(dataDict.Exists(keyStr), dataDict(keyStr), -1) ' 未找到返回-1
End Function

' 调用示例
Sub TestQuery()
    Dim targetKey As Variant
    Dim resultRow As Long
    
    ' 首次查询前初始化字典（仅需执行一次）
    If dataDict Is Nothing Then Call InitDataDict
    
    targetKey = "17013" ' 替换为实际查询值
    resultRow = GetTargetRow(targetKey)
    
    If resultRow <> -1 Then
        MsgBox "对应行号：" & resultRow
        ' 如需获取整行数据，可执行：ws.Rows(resultRow).Copy 或直接读取单元格值
    Else
        MsgBox "未找到目标值"
    End If
End Sub

优势 #

• 初始化一次后，百万次查询也不会卡顿或崩溃
• 彻底解决数字/文本类型不匹配、空白单元格的查找问题
• 内存操作，比单元格遍历/Find方法效率提升数十倍

二、Power Query可视化方案（无需VBA） #

适合不熟悉VBA的用户，通过Excel内置工具实现高效唯一值查找：

1. 选中数据区域，点击「数据」选项卡 →「从表格/区域」（勾选「我的表格有标题」）
2. 在Power Query编辑器中，选中第2列，点击「移除重复项」，得到唯一值列表
3. 点击「合并查询」→「合并为新查询」，将唯一值列表与原表以第2列为键关联
4. 展开合并后的列，选择需要返回的对应行数据，加载回Excel
5. 后续查询直接在结果表中使用XLOOKUP或手动查找，性能远优于原生VLOOKUP

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