日常工作中，需要使用函数时，vbs自带的函数可以帮助我们解决绝大部分的问题，但总有些特殊情况，VBS没有对应的函数，这个时候就需要我们自定义函数了，今天和大家分享一下，怎么使用VBS模拟excel 的vlookup函数，来创建一个类似的自定义函数。工具/原料moreVBSedit编辑器方法/步骤1/7分步阅读

首先，使用编辑器新建一空白项目。

2/7

将以下代码复制粘贴到VBS编辑器中

Function myvlookup(arr,arr2,num,num2)

On Error Resume Next

If num2 = 0 then

szwd = UBound(arr2,2)

If Err.Number 0 Then

Err.Clear

For p = LBound(arr2) To UBound(arr2)

If arr2(p)(0) = arr Then

myvlookup = arr2(p)(num-1)

Exit For

End If

Next

Else

For p = LBound(arr2) To UBound(arr2)

If arr2(p,1) = arr Then

myvlookup = arr2(p,num)

Exit For

End If

Next

End If

End if

On Error Goto 0

End Function

3/7

再将下面的代码放入到前面代码的后面，代码里设定张三为20岁，李四为22岁，然后我们使用myvlookup自定义函数，通过查找姓名，获得姓名对应的年龄。

arr2 = Array(Array(张三,20岁),Array(李四,22岁))

nl = myvlookup(李四,arr2,2,0)

MsgBox nl

4/7

然后我们在代码后面继续放入第二个我们要通过自定义函数计算获得的数据。

nl2 = myvlookup(张三,arr2,2,0)

MsgBox nl2

5/7

点击保存按钮，保存在桌面，命名为 报出你的年龄.vbs

6/7

返回电脑桌面，双击文件 报出你的年龄.vbs，程序自动运行，可以看到程序自动计算出 myvlookup(李四,arr2,2,0)的结果为22岁，即李四的年龄为22岁。

7/7

我们点击确定后，程序继续往下运行，程序再次自动弹出计算结果为20岁，即计算出 myvlookup(张三,arr2,2,0)的结果为20岁，也即张三的年龄为20岁。

自定义函数VBSVLOOKUP