跨两个工作表的多个条件匹配/索引VBA

Sub MultipleConditionsIndex()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim rng1 As Range
    Dim rng2 As Range
    Dim cell1 As Range
    Dim cell2 As Range
    Dim result As Variant
    
    ' 设置工作表和范围
    Set ws1 = ThisWorkbook.Worksheets("Sheet1") ' 第一个工作表
    Set ws2 = ThisWorkbook.Worksheets("Sheet2") ' 第二个工作表
    Set rng1 = ws1.Range("A1:A10") ' 第一个工作表的范围
    Set rng2 = ws2.Range("B1:B10") ' 第二个工作表的范围
    
    ' 遍历第一个工作表的每个单元格
    For Each cell1 In rng1
        ' 遍历第二个工作表的每个单元格
        For Each cell2 In rng2
            ' 检查多个条件是否匹配
            If cell1.Value = cell2.Value And cell1.Offset(0, 1).Value = cell2.Offset(0, 1).Value Then
                ' 如果条件匹配，则将结果写入第一个工作表的相应单元格
                ws1.Cells(cell1.Row, 3).Value = cell2.Offset(0, 2).Value
                Exit For ' 找到匹配后，退出第二个循环
            End If
        Next cell2
    Next cell1
End Sub