用VBA實現VLOOKUP功能？

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

vbnet

復制代碼

函數MyVlookup(lookup_value作為變量，table_array作為範圍，col_index作為Long，可選range_lookup作為變量)作為變量

MyVlookup = WorksheetFunction。VLookup(查找值，表數組，列索引，範圍查找)

結束功能

在這段代碼中，lookup_value是要搜索的值，table_array是要搜索的表區域，col_index是要返回的列數，range_lookup是指定搜索方法的可選參數。這個函數返回壹個變量的值。

使用該函數的示例代碼如下:

vbnet

復制代碼

子測試_vlookup()

Dim lookup_value作為變量

Dim table_array As Range

Dim col_index As Long

將結果作為變量變暗

設置要查找的值。

lookup_value = "B "

設置要查找的表格區域。

set table _ array = Range(" a 1:B4 ")

設置要返回的列數。

col_index = 2

調用MyVlookup函數進行搜索。

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

輸出結果

MsgBox結果

末端接頭

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