如何实现使用VBA对多张表格进行vlookup对照？

可以使用VBA编写一个循环，依次对每个表格进行vlookup对照。具体步骤如下：

1. 定义需要对照的表格，可以将表格路径存储在一个数组中。

2. 使用循环依次打开每个表格，并将它们存储在一个变量中。

3. 对于每个表格，使用vlookup函数进行对照，将结果存储在一个新的表格中。可以使用Copy、Paste、PasteSpecial等方法将结果复制到新表格中。

4. 循环结束后，关闭所有表格并保存新表格。

下面是一个示例代码，可以根据实际情况进行修改：

Sub VlookupMultipleTables()
    '定义需要对照的表格路径
    Dim tables(1 To 3) As String
    tables(1) = "C:\Table1.xlsx"
    tables(2) = "C:\Table2.xlsx"
    tables(3) = "C:\Table3.xlsx"
    
    '定义新表格
    Dim newTable As Workbook
    Set newTable = Workbooks.Add
    
    '循环对每个表格进行对照
    Dim i As Integer
    For i = 1 To 3
        '打开表格
        Dim table As Workbook
        Set table = Workbooks.Open(tables(i))
        '进行vlookup对照
        table.Sheets("Sheet1").Range("C1:C10").Formula = "=VLOOKUP(A1,B:C,2,FALSE)"
        '将结果复制到新表格
        table.Sheets("Sheet1").Range("C1:C10").Copy
        newTable.Sheets("Sheet1").Range("A" & (i - 1) * 10 + 1).PasteSpecial
        '关闭表格
        table.Close False
    Next i
    
    '保存新表格
    newTable.SaveAs "C:\NewTable.xlsx"
End Sub