如何使用VBA在另一列长度范围内的一列中执行vlookup？

Sub VlookupInColumnRange()
    Dim lookupRange As Range
    Dim resultRange As Range
    Dim lookupValue As Variant
    Dim result As Variant
    
    ' 设置查找范围
    Set lookupRange = Range("A1:A10")
    
    ' 设置结果范围
    Set resultRange = Range("B1:B10")
    
    ' 设置要查找的值
    lookupValue = Range("C1").Value
    
    ' 使用VLOOKUP函数进行查找
    result = Application.WorksheetFunction.VLookup(lookupValue, lookupRange, resultRange.Column - lookupRange.Column + 1, False)
    
    ' 将结果输出到D1单元格
    Range("D1").Value = result
End Sub