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

以下是一个实现VLOOKUP功能的VBA代码，它会在SHEET1中的E5:E30区域寻找输入的商品名称，并将对应的价格和编号填充到TEXTBOX2和TEXTBOX3中。
Private Sub TextBox1_Change()
Dim productName As String
Dim productPrice As Variant
Dim productID As Variant
Dim lookupRange As Range

'获取输入的商品名称
productName = TextBox1.Text

'设置查找范围
Set lookupRange = Sheets("SHEET3").Range("H5:J30")

'使用VLOOKUP函数查找商品价格和编号
productPrice = Application.VLookup(productName, lookupRange, 3, False)
productID = Application.VLookup(productName, lookupRange, 2, False)

'将价格和编号填充到TEXTBOX2和TEXTBOX3中
TextBox2.Text = productPrice
TextBox3.Text = productID
End Sub
请将代码复制粘贴到窗体的代码编辑器中，并将TEXTBOX1，TEXTBOX2和TEXTBOX3的名称替换为你的窗体中实际使用的控件名称。同时请确保SHEET1，SHEET2和SHEET3的名称正确，并且数据位置与代码中的位置相匹配。

---

巴马瑶族自治县18333462738： 怎么在VBA中实现vlookup功能 - ？
有谈鼻咽： 一是直接调用这个表函数,如: x = Application.VLookup(10, Range(＂A:B＂), 2, 0) 二是用循环比较的方法来达到这个函数的功能 用第二种方法更灵活,如果是对单元格数据处理,最好借助数组,否则较慢

巴马瑶族自治县18333462738： vba实现VLOOKUP取值 - ？
有谈鼻咽： 如果只是把这一句改用VBA的语法,那很简单,比如说:=Application.VLookup(Range(＂A2＂),Range(＂C:D＂),2,0) 当然,既然用VBA解决问题而数据量比较大的话,那就不太建议还使用Excel函数,可以用数组或者字典之类的方法来解决.

巴马瑶族自治县18333462738： 如何在vba调用vlookup函数 - ？
有谈鼻咽： 在 vba 里调用 excel 表中的公式函数,其调用形式是在函数的前面添加WorksheetFunction,例如: Sub test()Sheets(＂温度＂).Cells(1, 1) = WorksheetFunction.VLookup(1.09, Sheets(＂重命名＂).Range(＂A1:C10＂), 3, 0) End Sub

巴马瑶族自治县18333462738： 用 VBA 能实现 VLOOKUP 函数的功能吗?如果可以,代码怎么写? - ？
有谈鼻咽： 问题具体也只能简单说下了:用For 加 If语句实现而且方便

巴马瑶族自治县18333462738： VBA实现VLOOKUP匹配 - ？
有谈鼻咽： 数据量小的时候可以使用APPLICATION.WORKSHEETFUNCTION.VLOOKUP,数据量大、而且需要反复匹配同一组数据的时候,这样会非常慢,解决办法就是使用字典,基本的套路是: '扫描数据源 SET DICT=CREATEOBJECT(＂...

巴马瑶族自治县18333462738： 如何在VBA中应用Excel的函数,如vlookup()? - ？
有谈鼻咽： Application.WorksheetFunction.VLookup() 括号里头该怎么写还怎么写 比如 Cells(r, 5) = Application.WorksheetFunction.VLookup(Cells(r, 1), Range(＂B1:D100＂), 2, 0)

巴马瑶族自治县18333462738： vba Vlookup应用 - ？
有谈鼻咽： 1. VBA 调用前台函数使用worksheetfunction,比如worksheetfunction.vlookup(...)2. 不同工作簿的话,必须使用定义的application来调用,也就是说,不同的工作簿必须使用不同的application;比如:工作簿2的application:workbook.Application....

巴马瑶族自治县18333462738： vba,使用VLOOKUP公式,并自动填充下面剩余单元格 - ？
有谈鼻咽： 1 2 3 4 5Subs()Fori = 1 ToCells(Rows.Count, 1).End(3).RowCells(i, 2) = ＂=VLOOKUP(A＂& i & ＂,Sheet1!A:B,2,0))＂Next EndSub

巴马瑶族自治县18333462738： 用VBA改写vlookup公式 如何实现它2 - ？
有谈鼻咽： Sub s() arr = [a8:e26] brr = [m8:q12] Set d = CreateObject(＂scripting.dictionary＂) For i = 1 To UBound(arr) d(arr(i, 1)) = i Next For i = 1 To UBound(brr) For j = 2 To UBound(brr, 2) brr(i, j) = arr(d(brr(i, 1)), j) Next j, i [m8:q12] = brr End Sub

巴马瑶族自治县18333462738： 如何把Vlookup公式插入到VBA代码中? - ？
有谈鼻咽： 你是想让VBA帮你把VLOOKUP的公式自动嵌入G单元格吗,这样的话你最好就在G列拉下就自动填充了VLOOKUP函数公式了,没必要再VBA里面写,因为如果在VBA里面写其实是一个道理也就是通过...