[分享]字典+数组的多列数据不重复值查询.应用实例

上清宫主

学习了！ 

另有“arr(i, 2) & arr(i, 3)”的地方（如 “dic.exists(arr(i, 2) & arr(i, 3)) ”），先将arr(i, 2) & arr(i, 3)赋给一个变量，如str1，然后用str1替换“arr(i, 2) & arr(i, 3)”，对有大量数据时在速度上应该还有所提高。

hhzjxss

两次路过，学习学习！

dennisqq

学习数组中...大师们实在太高了!
9楼的代码如果有五列以上数据时好象就不行啊(如下代码), 总提示说不匹配.
With CreateObject("scripting.dictionary") '建立字典
For i = 1 To n
.Add i, Array(Range("b" & i), Range("c" & i), Range("d" & i), Range("e" & i), Range("f" & i))
Next
Sheet1.[h1].Resize(.Count, 5) = Application.Transpose(Application.Transpose(.items))
End With

初衷是想利用这类代码从几万行数据中按条件复制部份行.已经用录制的宏稍作修改勉强可用,就是速度慢(加辅助列,在需复制行上用VLOOKUP打上标记,筛选,再复制),希望能利用数组或数组+字典提高速度.

请大师们指点.先谢了!

[ 本帖最后由 dennisqq 于 2008-12-18 23:23 编辑 ]

fecmen

高手就是高手，一语中的。

kuoma

请教第二个范本在那，为什么 二个下载的资料都是一样的？？且执行都越界呢？

xingzhe361

fgsdfgsdfgdfgdfgdfgdfg

fsydw

学习了！收藏了！！谢谢了！！！

cygc

有没有字典+SQL的，效果怎样呢！

Martinzhuchao

原帖由 oobird 于 2007-11-21 23:28 发表
这样写简单些：Sub tiger744990()  Dim dic As Object, rng, i%, k$  Dim aa!  aa = Timer  Set dic = CreateObject("Scripting.Dictionary")  rng = Range([a2], [g2].End(xlDown))  ...

请教oobird版主一个问题：

您在9楼的回复中，这句：dic(k) = Array(rng(i, 1), rng(i, 2), rng(i, 3), rng(i, 4), rng(i, 5), rng(i, 6), rng(i, 7)) 能不能简化？因为，Array(rng(i, 1), rng(i, 2), rng(i, 3), rng(i, 4), rng(i, 5), rng(i, 6), rng(i, 7))实际上就是数组rng的第i行，不能象工作表那样，直接用类似于dic(k) = rows(i)这样的表达式吗？我现在碰到这个问题，一行里边的数据有一百多列，要一个一个去写rng(i, 1).............rng(i,187)太不容易啦。

谢谢

mxf21cn

做个标记  好好学习下