如何把excel中的VLOOKUP函数换成vb中的语言！

来源：百度知道 编辑：UC知道 时间：2024/06/23 17:51:33
excel中有个VLOOKUP和HLOOKUP函数，这个函数的大概意义我知道了！
但是有没有什么简单的方法改成vb中可用的语言啊？

比如： =HLOOKUP(D21,J13:L23,5,FALSE)
=VLOOKUP(D21,Q5:U7,2,FALSE)
以上这两句怎么弄称vb中的啊？

可以用下列语言自定义vlookup函数，hlookup你自己看葫芦画瓢就行了．
Function vblook(a As Range, area As Range, b As Integer)

For i = 1 To area.Rows.Count
If a = area.Cells(i, 1) Then
vblook = area.Cells(i, b)
End If
Next
End Function