是否可以在表上创建vlookup，然后使用VBA更新值？

Sub UpdateVlookupValue()
    Dim ws As Worksheet
    Dim lookupRange As Range
    Dim lookupValue As Range
    Dim resultRange As Range
    Dim resultCell As Range
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置查找范围
    Set lookupRange = ws.Range("A1:B10")
    
    ' 设置查找值
    Set lookupValue = ws.Range("D1")
    
    ' 设置结果范围
    Set resultRange = ws.Range("E1:E10")
    
    ' 循环更新值
    For Each resultCell In resultRange
        ' 更新vlookup函数的参数和返回值
        resultCell.Value = Application.WorksheetFunction.VLookup(lookupValue.Value, lookupRange, 2, False)
        Set lookupValue = lookupValue.Offset(1, 0)
    Next resultCell
End Sub