多个工作簿中的Excel vba vlookup范围

Sub VLOOKUPAcrossWorkbooks()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("C:\路径\源工作簿.xlsx")
    
    ' 打开目标工作簿
    Set targetWorkbook = Workbooks.Open("C:\路径\目标工作簿.xlsx")
    
    ' 定义源范围和目标范围
    Set sourceRange = sourceWorkbook.Worksheets("Sheet1").Range("A1:B10")
    Set targetRange = targetWorkbook.Worksheets("Sheet1").Range("C1:D10")
    
    ' 在目标范围中使用VLOOKUP函数
    targetRange.Formula = "=VLOOKUP(" & sourceRange.Address & ", " & sourceRange.Address & ", 2, FALSE)"
    
    ' 关闭工作簿
    sourceWorkbook.Close SaveChanges:=False
    targetWorkbook.Close SaveChanges:=True
End Sub