将单元格值分配给vlookup结果- VBA

Sub AssignVlookupResult()
    Dim lookupValue As Variant
    Dim lookupRange As Range
    Dim resultRange As Range
    Dim resultCell As Range
    Dim resultValue As Variant
    
    ' 设置要查找的值
    lookupValue = Range("A1").Value
    
    ' 设置要查找的数据范围
    Set lookupRange = Range("B1:B10")
    
    ' 设置vlookup的结果范围
    Set resultRange = Range("C1:C10")
    
    ' 使用vlookup函数查找结果
    resultValue = Application.WorksheetFunction.VLookup(lookupValue, lookupRange, 1, False)
    
    ' 将结果赋值给单元格
    Set resultCell = resultRange.Find(resultValue)
    If Not resultCell Is Nothing Then
        Range("D1").Value = resultCell.Offset(0, 1).Value
    Else
        Range("D1").Value = "未找到匹配项"
    End If
End Sub