字典+数据循环查询

爱很简单 · 发表于 2019-10-9 17:02

rardge2015 发表于 2019-10-9 16:29
仅仅是针对一个表进行查询，没必要遍历Sheets，然后运行时间就降下来了。
如果你的数据一、数据二每列标题 ...

您好，需要在数据一和数据二中同时查找的。。。。。。。。。。。。。。。。。。。。。您的代码只是在数据一中查找。

rardge2015 · 发表于 2019-10-9 17:22

哦，但你的源代码就是只在“数据一”中查找，if 语句把“数据二”排除了。

For Each sh In Sheets
If InStr(sh.Name, "数据一") > 0 Then
ar = sh.Range("a1").CurrentRegion
If sh.Name = "数据一" Then
dz = 48
hs = 19
qt = 28
Else
dz = 52
hs = 39
qt = 70
End If
For i = 3 To UBound(ar)
If Trim(ar(i, dz)) = k Then
n = n + 1
br(n, 1) = ar(i, dz)
br(n, 2) = ar(i, hs)
br(n, 3) = ar(i, qt)
End If
Next i
End If
Next sh

复制代码

你试试把“数据一”改名，看程序还能正常运行不？

爱很简单 · 发表于 2019-10-9 17:48

rardge2015 发表于 2019-10-9 17:22
哦，但你的源代码就是只在“数据一”中查找，if 语句把“数据二”排除了。

你试试把“数据一”改名，看 ...

嗯嗯，是这个，这样的话，运行还是有点慢

爱很简单 · 发表于 2019-10-9 17:54

rardge2015 发表于 2019-10-9 17:22
哦，但你的源代码就是只在“数据一”中查找，if 语句把“数据二”排除了。

你试试把“数据一”改名，看 ...

其实用这个速度很快很快，但是我不知道怎么加条件，这是VBA自带的函数。sumif

爱很简单 · 发表于 2019-10-9 17:59

rardge2015 发表于 2019-10-9 17:22
哦，但你的源代码就是只在“数据一”中查找，if 语句把“数据二”排除了。

你试试把“数据一”改名，看 ...

这个sumifs我都是无意中发现的。。。

rardge2015 · 发表于 2019-10-9 18:20

呵呵，能利用内置函数就是进步。
sumifs 多条件可以用数组方式，用 {}，网上搜索吧，也可以看 sumifs 的官方帮助文件。
即使不会，也可以用多个 sumifs 啊。比如 sumifs() + sumifs()，明白？要灵活，不要吊在一棵树上，你自己练习修改吧。
附件还是原来的方式，既然能用 sumif，附件可以不用了，但只是想告诉你，代码放错地方的代价。

爱很简单 · 发表于 2019-10-9 18:30

谢谢您。。。但是这个循环的话估计会有点慢。。。

爱很简单 · 发表于 2019-10-9 21:54

rardge2015 发表于 2019-10-9 18:20
呵呵，能利用内置函数就是进步。
sumifs 多条件可以用数组方式，用 {}，网上搜索吧，也可以看 sumifs 的官 ...

｛｝不对！！！哟

rardge2015 · 发表于 2019-10-10 10:03

这是网络上搜索的 SumIFS 使用介绍：
https://baijiahao.baidu.com/s?id=1610767784906967531&wfr=spider&for=pc

附件改成使用 SUMIF 及 SUMIFS 了。

爱很简单 · 发表于 2019-10-10 18:50

rardge2015 发表于 2019-10-10 10:03
这是网络上搜索的 SumIFS 使用介绍：
https://baijiahao.baidu.com/s?id=1610767784906967531&wfr=spider& ...

您真的··· 真的是，太有才了

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

字典+数据循环查询

评分