[讨论]不重复值的计算，代码循环次数太多，怎么精简？

Long_III

里面是一个计算不重复值的程序，用数组+集合做的，但是循环的次数太多了，如代码里说明的那样，共在总行数里循环了13次，而且重复值越多，循环也会成倍增加

不知谁有好的方法，减少一下循环的次数，优化代码？谢谢

zSFGmGW4.rar (14.47 KB, 下载次数: 41)

2005-9-28 15:48 上传

点击文件名下载附件
[讨论]不重复值的计算，代码循环次数太多，怎么精简？

说明：BCD三列是原始数据，最终要计算出d列所有不重复值，及d列中每一个不重复值对应的B和C列里的不重复值的个数

[此贴子已经被作者于2005-9-28 16:04:15编辑过]

UNARTHUR

恩，这个问题有搞头，是需要一定技巧的

这是我的代码供参考（只需一个循环）

Dim i&, p&, n&, m1&, m2& Dim arr, arr1, arr2, arr3() Application.ScreenUpdating = False p = [a65536].End(xlUp).Row ReDim arr3(1 To p - 1, 1 To 3) arr = Range(Cells(2, 1), Cells(p, 3)) Range(Cells(2, 1), Cells(p, 3)).Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("A2"), Order2:=xlAscending, Header:=xlGuess arr1 = Range(Cells(2, 1), Cells(p, 3)) Range(Cells(2, 1), Cells(p, 3)).Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("B2"), Order2:=xlAscending, Header:=xlGuess arr2 = Range(Cells(2, 1), Cells(p, 3)) n = 1: m1 = 1: m2 = 1 For i = 2 To p - 1 If arr1(i, 3) <> arr1(i - 1, 3) Then arr3(n, 1) = arr1(i - 1, 3) arr3(n, 2) = m1 arr3(n, 3) = m2 n = n + 1: m1 = 1: m2 = 1 Else If arr1(i, 1) <> arr1(i - 1, 1) Then m1 = m1 + 1 If arr2(i, 2) <> arr2(i - 1, 2) Then m2 = m2 + 1 End If Next i arr3(n, 1) = arr1(p - 1, 3): arr3(n, 2) = m1: arr3(n, 3) = m2 Range("e2:g" & p) = arr3 Range(Cells(2, 1), Cells(p, 3)) = arr

VmHbDz6W.rar (9.65 KB, 下载次数: 60)

2005-9-28 17:19 上传

点击文件名下载附件

严谨起见，又修改了一下

[此贴子已经被作者于2005-9-28 17:20:25编辑过]

Long_III

代码很不错，思路很好，一个循环解决3个问题。

谢谢兄台指点！

yuxia9805

谢谢两位！

对数组还比较陌生，先学习学习。

taller

数据量大时，用ADO不知道是否会快些

UNARTHUR

ADO经常是挺快的，但是我想对于处理比较复杂的情况用纯sql语句恐怕比较难办。

Long_III

UNARTHUR兄还有两点想请问一下

1、定义的arr3，范围会不会太大了，要不要循环一次确定范围？

2、你定义arr2 = Range(Cells(2, 1), Cells(p, 3))，3列的值给数组，跟赋值一列有多大差别，如arr2 = Range(Cells(2, 2), Cells(p, 2))？不知这两种情况对速度的影响有多大

对于多次引用这整个范围，可以设置一个变量，set rng = Range(Cells(2, 1), Cells(p, 3))，方便操作

UNARTHUR

以下是引用Long_III在2005-9-29 8:45:24的发言：

UNARTHUR兄还有两点想请问一下

1、定义的arr3，范围会不会太大了，要不要循环一次确定范围？

2、你定义arr2 = Range(Cells(2, 1), Cells(p, 3))，3列的值给数组，跟赋值一列有多大差别，如arr2 = Range(Cells(2, 2), Cells(p, 2))？不知这两种情况对速度的影响有多大

对于多次引用这整个范围，可以设置一个变量，set rng = Range(Cells(2, 1), Cells(p, 3))，方便操作

1，要确定范围就需要多循环一次，就会多花时间，除非有特别需要，不推荐

2，arr2或arr3至少有一个需要有C列，可以赋值arr2=A列，arr3=B,C列，代码相应做下修改即可，我简单起见所以全部赋值为ABC列

3，set rng = Range(Cells(2, 1), Cells(p, 3)) 跟直接使用Range(Cells(2, 1), Cells(p, 3)) 速度是一样的

Long_III

第3点，有点疑问，多次引用单元格范围，跟用变量赋值之后引用，应该变量更好一点吧

UNARTHUR

我的理解是：set 一个range实际上就是在一个范围上标一个记号，以后要用到这个范围只用书写这个记号就可以了，我想他的作用一个是方便书写，一个是方便引用。我曾经做过试验，两者的速度似乎是一样的。