excel宏for vlookup

Question

我有2個不同的工作簿與一組參數，例如，汽車零件編號，銷售價格等。這兩種不同的工作簿將始終具有相同的汽車零件編號，但它們並不合適。所以我正在考慮使用vlookup來將一個工作簿上的參數與各個部分的數字相關的參數進行匹配。

因此，我使用vlookup來執行此任務。它可以工作，但我想用宏來實現，所以我不需要每次都手動執行vlookup。考慮到工作簿（文件名）每次都會有所不同，是否可以創建這樣的宏？

我實際上嘗試錄製宏，vlookup記錄它需要的與文件名有關的參數。

編輯：代碼註釋：

Sub Macro1() 
    ActiveCell.FormulaR1C1 = "=VLOOKUP('[TI_DBP_effective_06 May 2013.xls]NON SLL'!C1,'[TI_DBP_effective_06 May 2013.xls]NON SLL'!C1:C3,3,FALSE)" 
    Range("I1").Select Selection.AutoFill Destination:=Range("I1:I9779") 
    Range("I1:I9779").Select 
End Sub 

Answer 1

嘗試這樣的事情。您必須將此宏放在您的個人宏工作簿中，以便它始終可用，無論哪些工作簿已打開。它會提示你輸入兩個文件，然後打開它們，並插入公式。讓我知道它是否會給您帶來麻煩，因爲我現在無法測試它。

注意：這將查找您選擇的單元格的左列的值列，然後查看另一個文件的列1：3。根據需要修改。

Sub Macro1() 
    Dim file1 As String 
    Dim file2 As String 
    Dim wbSource As Workbook 
    Dim wbLookup As Workbook 
    Dim startRange As Range 

    file1 = Application.GetOpenFilename(Title:="Select the file to update") 
    If Len(Dir(file1)) = 0 Then Exit Sub 
    file2 = Application.GetOpenFilename(Title:="Select the LOOKUP file") 
    If Len(Dir(file2)) = 0 Then Exit Sub 

    Set wbLookup = Workbooks.Open(file2) 
    Set wbSource = Workbooks.Open(file1) 

    On Error Resume Next 
    Set startRange = Application.InputBox("Select the first cell for the formula", "Autofill VLOOKUP", Type:=8) 
    On Error GoTo 0 
    If Not startRange Is Nothing Then 
     Application.Goto startRange 
     startRange.FormulaR1C1 = "=VLOOKUP('[" & wbSource.Name & "]NON SLL'!RC[-1],'[" & wbLookup.Name & "]NON SLL'!C1:C3,3,FALSE)" 
     startRange.AutoFill Destination:=startRange.End(xlDown) 
    End If 

End Sub