Vba中如何从一个单元格的值在另一张表中查找

在VBA中，你可以使用`Application.WorksheetFunction.VLookup()`函数来从一张工作表（源表）的一列中查找另一个工作表（目标表）中匹配的值并返回相应的结果。这里是一个基本的示例：

Sub VbaLookUpExample()
    Dim sourceSheet As Worksheet
    Set sourceSheet = ThisWorkbook.Sheets("SourceSheet") ' 更改为你源表的名称
    
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Sheets("TargetSheet") ' 更改为你目标表的名称
    
    Dim lookupValue As String
    lookupValue = sourceSheet.Range("A1").Value ' 假设你要查找的是A1单元格的值
    
    Dim resultRow As Long
    resultRow = Application.WorksheetFunction.VLookup(lookupValue, targetSheet.Range("A:B"), 2, False) ' 第二参数决定返回哪一列，这里是B列，False表示精确匹配
    
    If Not IsError(resultRow) Then
        MsgBox "找到了，结果在" & targetSheet.Cells(resultRow, 1).Address ' 如果找到结果，则显示其位置
    Else
        MsgBox "未找到匹配项"
    End If
End Sub

在这个例子中，我们首先设置源表和目标表的对象，然后获取要查找的值，接着在目标表中寻找这个值，并返回与之对应的B列的值。如果找不到匹配，`VLookup`会返回#N/A错误。