【Excel VBA编程】坐标定位查询:让数据筛选从“大海捞针”变为“精准定位

Sub MultiConditionLookup()    Dim dict As Object    Dim ws As Worksheet    Dim srcData As Variant, queryData As Variant    Dim i As Long, j As Long    Dim lastRowSrc As Long, lastRowQuery As Long    Dim key As String    Dim salesperson As String, product As String    Dim salespersonCol As Long    Application.ScreenUpdating = False    ' 设置工作表：当前活动工作表    Set ws = ThisWorkbook.ActiveSheet    Set dict = CreateObject("Scripting.Dictionary")    lastRowSrc = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row    srcData = ws.Range("A2:E" & lastRowSrc).Value    '字典构建    For i = 1 To UBound(srcData, 1)        product = Trim(CStr(srcData(i, 1)))        For j = 2 To 5            salesperson = Trim(ws.Cells(1, j).Value)            key = salesperson & "|" & product            dict(key) = srcData(i, j)        Next j    Next i     '查询    lastRowQuery = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row    If lastRowQuery >= 2 Then        queryData = ws.Range("G2:H" & lastRowQuery).Value        For i = 1 To UBound(queryData, 1)            salesperson = Trim(CStr(queryData(i, 1)))            product = Trim(CStr(queryData(i, 2)))            If salesperson = "" Or product = "" Then                ws.Cells(i + 1, "I").Value = "条件不完整"            Else                key = salesperson & "|" & product                If dict.Exists(key) Then                    ws.Cells(i + 1, "I").Value = dict(key)                Else                    ws.Cells(i + 1, "I").Value = "未找到"                End If            End If        Next i    Else        MsgBox "未找到查询条件（G列和H列为空）。", vbInformation    End If    Set dict = Nothing    Application.ScreenUpdating = True    MsgBox "查询完成！结果已输出至I列。", vbInformationEnd Sub