用VBA實現VLOOKUP功能？

VLOOKUP是Excel中的函數，可以在VBA中使用WorksheetFunction對象來調用它。以下是壹個示例代碼，它使用VLOOKUP函數來查找壹個值，並返回其在另壹個區域中對應的值：

vbnet

Copy code

Function MyVlookup(lookup_value As Variant, table_array As Range, col_index As Long, Optional range_lookup As Variant) As Variant

MyVlookup = WorksheetFunction.VLookup(lookup_value, table_array, col_index, range_lookup)

End Function

在這個代碼中，lookup_value是要查找的值，table_array是要查找的表格區域，col_index是要返回值的列數，range_lookup是可選的參數，指定查找方式。該函數返回壹個Variant類型的值。

使用這個函數的示例代碼如下：

vbnet

Copy code

Sub test_vlookup()

Dim lookup_value As Variant

Dim table_array As Range

Dim col_index As Long

Dim result As Variant

' 設置要查找的值

lookup_value = "B"

' 設置要查找的表格區域

Set table_array = Range("A1:B4")

' 設置要返回值的列數

col_index = 2

' 調用MyVlookup函數進行查找

result = MyVlookup(lookup_value, table_array, col_index, False)

' 輸出結果

MsgBox result

End Sub

在這個代碼中，我們首先設置要查找的值、要查找的表格區域和要返回值的列數，然後調用MyVlookup函數進行查找，並將結果輸出到壹個消息框中