用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函数进行查找，并将结果输出到一个消息框中