在 VBA 中，要在不同的 Excel 表格中查找匹配数据，可以使用以下步骤：
Dim dataSheet As Worksheet
Dim resultSheet As Worksheet
Set dataSheet = ThisWorkbook.Worksheets("DataSheet") 'DataSheet是要查找的数据所在的工作表名称
Set resultSheet = ThisWorkbook.Worksheets("ResultSheet") 'ResultSheet是查找结果要存储的工作表名称
然后，需要定义要查找的数据范围，可以使用 Range 对象来实现。假设要查找的数据在 DataSheet 工作表中的 A 列和 B 列，可以使用以下代码：
Dim dataRange As Range
Set dataRange = dataSheet.Range("A:B") '要查找的数据范围
接下来，需要定义查找条件，可以使用 Find 方法来实现。假设要查找的条件为某个值，可以使用以下代码：
Dim searchValue As String
searchValue = "要查找的值"
Dim resultRange As Range
Set resultRange = dataRange.Find(searchValue)
最后，将匹配到的数据复制到结果工作表中，可以使用以下代码：
resultSheet.Range("A1").Value = resultRange.Value '将匹配到的数据复制到结果工作表中
以上是在 VBA 中实现跨表查找匹配数据的简单示例，具体的实现方式可能会因为具体情况的不同而有所差异，需要根据实际情况进行调整。