这是一个用户定义函数，它将执行2列查找。将其视为vlookup。
LookupPair是一对单元格。在您的示例中为（C2：D2）。除一对并排单元格之外的任何其他内容都将导致错误。
LookupRange是同时包含匹配对列和返回列的列。类似于示例中的（I1：K101）。LookupRange必须至少包含两列，否则将生成错误。
ReturnCol是LookupRange中包含要返回的值的列号。（与vlookup中的Col_index_num相同）。
该函数仅执行精确匹配。

Function DoubleColMatch(LookupPair As Range, LookupRange As Range, ReturnCol As Integer) As Variant
Dim ReturnVal As Variant
Dim Col1Val As Variant
Dim Col2Val As Variant
Dim x As Long

    If LookupPair.Rows.Count > 1 _
    Or LookupPair.Columns.Count <> 2 _
    Or LookupRange.Columns.Count < 2 _
    Or ReturnCol < 1 _
    Or ReturnCol > LookupRange.Columns.Count _
    Then
        ReturnVal = CVErr(xlErrRef)
    Else
        Col1Val = LookupPair.Cells(1, 1)
        Col2Val = LookupPair.Cells(1, 2)

        ReturnVal = CVErr(xlErrNA)

        For x = 1 To LookupRange.Rows.Count
            If LookupRange.Cells(x, 1) = Col1Val _
            And LookupRange.Cells(x, 2) = Col2Val Then
                ReturnVal = LookupRange.Cells(x, ReturnCol).Value
                Exit For
            End If
        Next x

    End If

    DoubleColMatch = ReturnVal
End Function

一个简单的变体是使用函数CONCATENATE（）连接两列中的搜索字符串，然后可以使用各种函数VLOOKUP（）、MATCH（）.....比较这两列。