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

江海渔生 · 发表于 2010-6-18 14:21

这样是速度不快，数据量大的话尤其明显

shanchuan · 发表于 2010-7-23 11:17

不要沉船

wangfengcpa · 发表于 2010-7-23 12:27

很普通的一段程序，没看出有什么点睛之处啊。

shanchuan · 发表于 2010-7-23 12:31

原帖由 wangfengcpa 于 2010-7-23 12:27 发表
很普通的一段程序，没看出有什么点睛之处啊。

普通而实用，主要是应用广泛，不懂VBA的也能推断出来怎么用。

jygzcj · 发表于 2010-7-29 22:42

太耗资源了。。。For ...Next

shanchuan · 发表于 2010-8-7 01:37

坐下慢慢说别站着
你有更好的可以提出来交流

shanchuan · 发表于 2010-8-16 22:27

有更好的代码吗？

zjy58 · 发表于 2010-8-16 22:52

谢谢分享。。。

panan12301 · 发表于 2010-8-17 08:58

Sub 匹配2()
For i = 2 To 1000 '需要匹配的列
If Application.WorksheetFunction.Trim(Cells(i, 2)) = Cells(i, 6) And Application.WorksheetFunction.Trim(Cells(i, 1)) = Cells(i, 5) Then ' 条件判断（可以根据需要删减修改条件，可排除空格干扰）
Cells(i, 8) = Cells(i, 4) ' 匹配（可以根据需要删减）
'Cells(i, 9) = Cells(j, 15)
'Cells(i, 10) = Cells(j, 16)
'Cells(i, 11) = Cells(j, 17)
'Cells(i, 12) = Cells(j, 18)
GoTo Line1 ' 跳转（为了提高速度）

End If
Line1:
Next i
End Sub
楼主为什么弄2个变量，我试了下这样也可以哦

shanchuan · 发表于 2010-8-23 22:38

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

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

有更好的代码吗？