写一个vba代码，实现以下if循环，1.如果表1的A列与表2的A列匹配一致，则将表2的B列值返回给表1的A列，2.如果 A列的匹配不一致，则将表1的C列与表2的C列匹配，如果匹配一致，则将表2的D列返回给表1的D列3.如果A列跟C列匹配都不一致，将表1的E列与表2的E列匹配，如果匹配一致，将表2的F列返回给表1的F列

以下是一个VBA代码示例，可以实现您的需求：

Sub matchTables()
    '定义变量
    Dim i As Long, j As Long
    Dim matchFound As Boolean
    
    '循环遍历表1的每一行数据
    For i = 2 To Sheets("表1").Cells(Rows.Count, 1).End(xlUp).Row
        matchFound = False '每次循环前初始化变量
        '循环遍历表2的每一行数据
        For j = 2 To Sheets("表2").Cells(Rows.Count, 1).End(xlUp).Row
            '如果表1的A列与表2的A列匹配一致，则将表2的B列值返回给表1的A列
            If Sheets("表1").Cells(i, 1).Value = Sheets("表2").Cells(j, 1).Value Then
                Sheets("表1").Cells(i, 2).Value = Sheets("表2").Cells(j, 2).Value
                matchFound = True
                Exit For '跳出内层循环
            End If
        Next j
        
        '如果 A 列的匹配不一致，则将表1的 C 列与表2的 C 列匹配
        If Not matchFound Then
            For j = 2 To Sheets("表2").Cells(Rows.Count, 3).End(xlUp).Row
                If Sheets("表1").Cells(i, 3).Value = Sheets("表2").Cells(j, 3).Value Then
                    Sheets("表1").Cells(i, 4).Value = Sheets("表2").Cells(j, 4).Value
                    matchFound = True
                    Exit For '跳出内层循环
                End If
            Next j
        End If
        
        '如果 A 列和 C 列的匹配都不一致，则将表1的 E 列与表2的 E 列匹配
        If Not matchFound Then
            For j = 2 To Sheets("表2").Cells(Rows.Count, 5).End(xlUp).Row
                If Sheets("表1").Cells(i, 5).Value = Sheets("表2").Cells(j, 5).Value Then
                    Sheets("表1").Cells(i, 6).Value = Sheets("表2").Cells(j, 6).Value
                    Exit For '跳出内层循环
                End If
            Next j
        End If
    Next i
End Sub

请将代码中的“表1”和“表2”替换为您实际使用的工作表名称。此外，代码中假定表1和表2的数据从第2行开始，如果您的数据起始行不同，请相应地修改代码中的行数。

希望这可以帮助到您！