将索引匹配到另一个工作表转换为VBA代码

Sub IndexMatchToAnotherWorksheet()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim lookupValue As Variant
    Dim result As Variant
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("源范围")
    Set targetRange = targetSheet.Range("目标范围")
    
    ' 设置要查找的值
    lookupValue = sourceSheet.Range("要查找的值").Value
    
    ' 使用索引匹配函数在目标范围中查找值
    result = Application.Index(targetRange, Application.Match(lookupValue, sourceRange, 0))
    
    ' 将结果写入源工作表的指定单元格
    sourceSheet.Range("结果单元格").Value = result
End Sub