Question

EXCEL vba 多重if和循环

有200组数据，列名分别为：
名称1（空列，未知），值1（已知），值2（已知），值3（已知）
数据在工作表中位置为（A2：D201）
和等量已知数据，列名分别为：
名称2（已知），值4（已知），值5（已知），值6（已知）
在工作表中位置为（F2：I201）
想要判断，范围内
第x行值1=第y行值4，且第x行值2=第y行值5，且第x行值3=第y行值6
则第x行名称1单元格填入第y行名称2，
如何使用vba或函数完成200组数据名称1的填充

Answer 1

Sub 名称匹配()
    Dim x As Integer, y As Integer
    For x = 2 To 201
        For y = 2 To 201
            If Cells(x, 2) & Cells(x, 3) & Cells(x, 4) = Cells(y, 7) & Cells(y, 8) & Cells(y, 9) Then Cells(x, 1) = Cells(y, 6)
        Next y
    Next x
End Sub