多条件匹配查询程序（献给真正有需要的人）

shanchuan · 发表于 2009-12-6 21:32

用EXCEL的办公人员常遇到查询匹配问题，一般都会用函数Vlookup，现分享扩展功能的VBA小程序给有需要的人，
并欢迎提意见！
Sub 匹配2()
Dim i%
For i = 10000 To 10122 ’需要匹配的列
For j = 2 To 6644 ’查询区域的列

If Cells(i, 1) = Cells(j, 13) And Application.WorksheetFunction.Trim (Cells(i, 4)) = Cells(j, 15) Then ’ 条件判断（可以根据需要删减修改条件，可排除空格干扰）
Cells(i, 7) = Cells(j, 16) ’ 匹配（可以根据需要删减）
Cells(i, 8) = Cells(j, 17)
Cells(i, 9) = Cells(j, 18)
Cells(i, 10) = Cells(j, 19)
Cells(i, 11) = Cells(j, 20)
GoTo Line1 ’ 跳转（为了提高速度）

End If
Next j
Line1:
Next i
End Sub

函数方法：
Vlookup（A1&A2,…… ）http://club.excelhome.net/viewth ... p;extra=&page=1

[ 本帖最后由 shanchuan 于 2010-9-12 17:46 编辑 ]

来生缘 · 发表于 2009-12-6 21:44

谢谢分享。。。

冲天妖狐 · 发表于 2009-12-6 22:06

不明白，能否举个例子说明一下可以如何用？

china047 · 发表于 2009-12-7 20:09

多谢了!!!

winamprose · 发表于 2009-12-7 22:50

谢谢分享。。。

lzqlaj · 发表于 2009-12-8 21:07

这种方法比较耗资源，我也用过，配合实例最好，谢谢分享。

lb_bn · 发表于 2009-12-8 21:41

楼主的程序实用。

yjwly · 发表于 2010-3-30 21:45

怎么用啊？谁指导下，谢谢

winland · 发表于 2010-3-30 22:39

貌似可以用Exit For来退出循环。
很多地方说尽量不要使用GoTo语句，不知道有多大的影响。

dawin · 发表于 2010-6-18 13:10

i为什么设置那么大呢。要是有动态参数会不会好点。
楼主给点实例给大家看看吧~

		自动登录	找回密码
密码			免费注册

[原创] 多条件匹配查询程序（献给真正有需要的人）