【问题】字典提取不重复值

丹青

利用字典提取不重复值，变量类型设置成双精度了，为何还是提示“类型不匹配”呢，求解，详见附件，不胜感激，谢谢。

实际测试中数据条数在175,000条时运行正常，之后就不行了，就提示“类型不匹配”。

爱疯

2.rar (585.77 KB, 下载次数: 24)

2015-7-24 17:47 上传

点击文件名下载附件


iRow = Cells(Rows.Count, 1).End(xlUp).Row
执行上句后，iRow = 1，未循环，导致后面的错误 。。。。。。。

gufengaoyue

行数满65536，用iRow取行数不可行。可以用下面的试试

1. Option Explicit
   
2. Sub 多行多列提取不重复行数据2() '加入时间计算
   
3.     Dim d, t, i&, arr
   
4.     Dim k
   
5.     'k = Timer
   
6.     arr = ActiveSheet.UsedRange
   
7.     Set d = CreateObject("scripting.dictionary")
   
8.     For i = 2 To UBound(arr)
   
9.         d(arr(i, 1)) = ""
   
10.     Next
    
11.     Sheets(2).Activate
    
12.     Sheets(1).[1:1].Copy Sheets(2).[a1]
    
13.     [a2].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
14.     Set d = Nothing
    
15.     'MsgBox "执行完毕,共计用时：" & Round(Timer - k, 2) & "秒！"
    
16. End Sub
    

复制代码

丹青

爱疯 发表于 2015-7-24 17:49
iRow = Cells(Rows.Count, 1).End(xlUp).Row
执行上句后，iRow = 1，未循环，导致后面的错误 。 ...

爱疯老师，您说得我不是太理解
但数据条数较少时（测试数据条数在175000条时正常），是OK的，那又是为何呢？

丹青

gufengaoyue 发表于 2015-7-24 17:52
行数满65536，用iRow取行数不可行。可以用下面的试试

你好，其实我的数据是在10版中的，共有23万条左右，文件太大，无法放到附件中，所以另存为03版格式，就变成6万多条了，呵呵。。。

在实际测试中（即2010版中），17万5千条数据测试时，代码是正常的，但超过就出现“类型不匹配”的问题了，不知为何呀，还望赐教，谢谢。

gufengaoyue

呃，字典其实是个特殊的数组而已。
超过数组内存容量的话可能出现这种情况。
以前我遇到过，不排除也有其它原因。
如果几十万条中找出唯一值，可以试试SQL的 select distinct 语句直接提出唯一值。

丹青

gufengaoyue 发表于 2015-7-24 18:22
呃，字典其实是个特殊的数组而已。
超过容量的话可能出现这种情况。
以前我遇到过，不排除也有其它原因。 ...

我的数据条的类型如下

流水号	名称	数量	类型	日期
1	A	15	3	7/15
1	B	15	3	7/15
2	C	22	6	7/15
2	D	22	6	7/15

要求效果是：
相同流水号，提取其中任意一条数据，比如流水号为1的，提取第一条或第二条都可以，但只能提取其中一条

前面也想过用SQL的distinct，但它只对单列，而多列取其一，没想到办法

gufengaoyue

丹青 发表于 2015-7-24 18:31
我的数据条的类型如下
要求效果是：
相同流水号，提取其中任意一条数据，比如流水号为1的，提取第一条或 ...

你用附件自己测试一下。

爱疯

可上传一个小的附件：

1）表1，是数据源，列数不变，只保留十几行记录。
2）表2，是对这十几行记录执行后的结果。

这样，如果有人有空，就方便测试了

张雄友

附件只有一列数据，何来的多行多列？多行多列用SQL好快。