VLOOKUP函数是Excel中非常实用的函数之一，可以实现在不同表格之间进行精确查询和匹配。在VBA中，我们可以使用WorksheetFunction类中的VLOOKUP方法来实现跨表格查找。
以下是一个示例代码，演示了如何使用VLOOKUP方法跨表格查找：
```vba
Sub VlookupExample()
Dim lookup_value As Variant
Dim table_array As Range
Dim col_index As Long
Dim range_lookup As Boolean
Dim result As Variant
'设置查找参数
lookup_value = "John Smith" '要查找的值
Set table_array = Worksheets("Sheet2").Range("A1:B10") '要查找的表格
col_index = 2 '要返回的值在表格中的列号
range_lookup = False '精确匹配
'调用VLOOKUP方法查找
result = WorksheetFunction.VLookup(lookup_value, table_array, col_index, range_lookup)
'将查找结果输出到单元格中
Worksheets("Sheet1").Range("B2").Value = result
End Sub
```
在上面的代码中，我们首先设置了查找参数，包括要查找的值（lookup_value）、要查找的表格（table_array）、要返回的值在表格中的列号（col_index）和是否使用精确匹配（range_lookup）。然后，我们调用了VLOOKUP方法来查找，将结果保存在变量result中，最后将结果输出到指定单元格中（此处为B2单元格）。
需要注意的是，本代码中使用的是精确匹配（range_lookup = False），如果需要模糊匹配需要将range_lookup设置为True。同时，如果查找值不存在于表格中，VLOOKUP方法将返回#N/A错误，我们可以使用If语句判断是否存在这种情况，避免运行错误。
以上即是使用VLOOKUP方法进行跨表格精确查找的基本示例，你可以根据自己的需求进行修改并应用到具体问题中。
