Excel VBA VLOOKUP 函數詳細教學

何謂VBA VLOOKUP 函數

VLOOKUP是Excel中的一個強大函數，用於從數據表中的特定範圍內查找和返回數據。透過VBA（Visual Basic for Applications），可以自動化VLOOKUP的使用，從而提升工作效率。

準備你的Excel數據

創建源數據表

首先，在Excel中建立源數據表。例如，創建一個名為“產品清單”的工作表，內含產品編號、產品名稱和價格等數據。

創建查詢數據表

新增另一個工作表，例如名為“查詢表”，在這個工作表中你將輸入查詢的產品編號，並使用VBA VLOOKUP來返回相應的產品名稱和價格。

編寫VBA代碼以使用VLOOKUP

打開VBA編輯器

按下 Alt + F11 開啟VBA編輯器。在“插入”選單中選擇“模組”以插入一個新模組。

編寫VBA VLOOKUP代碼

在插入的模組中輸入以下VBA代碼：

Sub VLOOKUP_Example()
    Dim lookupValue As String
    Dim lookupRange As Range
    Dim result As Variant
    
    ' 設定查找值
    lookupValue = Worksheets("查詢表").Range("A2").Value
    
    ' 設定查找範圍
    Set lookupRange = Worksheets("產品清單").Range("A2:C100")
    
    ' 使用VLOOKUP函數查找數據
    result = Application.WorksheetFunction.VLookup(lookupValue, lookupRange, 2, False)
    
    ' 將查找結果返回至查詢表
    Worksheets("查詢表").Range("B2").Value = result
End Sub

理解VBA代碼

• lookupValue： 設定你希望查找的值，此例中查詢表的A2單元格。
• lookupRange： 定義源數據表的查找範圍，此例中是“產品清單”工作表的A2到C100的區域。
• VLOOKUP函數： 使用VBA中的VLOOKUP函數進行查找操作，其中參數2意味著返回範圍第二列（即產品名稱），False表示精確匹配。
• 結果返回： 將查找結果返回到查詢表的B2單元格。

運行VBA代碼

回到Excel並按 Alt + F8 打開宏對話框。選擇你剛才創建的“VLOOKUP_Example”宏並按“運行”。現在應該可以在查詢表的B2單元格中看到查找結果。

進一步優化

可以進一步優化和擴展你的VBA VLOOKUP代碼，例如加入錯誤處理，以避免當查找值不存在時出現錯誤：

Sub VLOOKUP_Example_With_ErrorHandling()
    Dim lookupValue As String
    Dim lookupRange As Range
    Dim result As Variant
    
    ' 設定查找值
    lookupValue = Worksheets("查詢表").Range("A2").Value
    
    ' 設定查找範圍
    Set lookupRange = Worksheets("產品清單").Range("A2:C100")
    
    On Error Resume Next
    ' 使用VLOOKUP函數查找數據
    result = Application.WorksheetFunction.VLookup(lookupValue, lookupRange, 2, False)
    On Error GoTo 0
    
    If IsError(result) Then
        MsgBox "查無此產品", vbExclamation
    Else
        ' 將查找結果返回至查詢表
        Worksheets("查詢表").Range("B2").Value = result
    End If
End Sub

結論

利用VBA中的VLOOKUP函數，能夠快速且有效地在大量數據中查找和返回所需信息。掌握這一技能後，可以大大提高你的Excel工作效率。同時，熟悉並善用VBA代碼的錯誤處理機制，能確保你的代碼穩定運行。