vba vlookup跨表查询代码如何写

以下是一个示例VBA代码，用于在两个不同的表格中进行跨表查询，使用VLOOKUP函数：

Sub CrossTableLookup()
    Dim sourceRange As Range
    Dim lookupValue As Variant
    Dim lookupRange As Range
    Dim resultRange As Range
    Dim result As Variant
    
    ' 设置源表格范围
    Set sourceRange = Sheets("源表格").Range("A1:B10")
    
    ' 设置要查找的值
    lookupValue = Sheets("查询表格").Range("A1").Value
    
    ' 设置查询范围，即源表格中的列
    Set lookupRange = sourceRange.Columns(1)
    
    ' 设置要返回的值所在的范围，即源表格中的另一列
    Set resultRange = sourceRange.Columns(2)
    
    ' 使用VLOOKUP函数进行跨表查询
    result = Application.VLookup(lookupValue, lookupRange, resultRange.Column, False)
    
    ' 将查询结果输出到查询表格的指定位置
    Sheets("查询表格").Range("B1").Value = result
End Sub

请根据您的实际情况修改代码中的表格名称、范围和位置。这段代码将在"查询表格"中的A1单元格中查找值，并在源表格的第一列中查找匹配项，并返回该行的第二列的值，最后将结果输出到"查询表格"的B1单元格中。