[已解决]通过比较三种筛选方法，怀疑数组是否很快？

mansohu

在一个10000行*60列的表中进行筛选，选用AutoFilter、For Each、数组三种方法，结果证明数组法并不比For Each快多少，而且思路比较复杂。数组法之所以没有太大优势，可能是因为反复的使用Union命令的缘故，但数组在Excel中的使用时，常常最终会落实到Range上。请问有什么好办法绕开类似Union这类环节吗？

最佳答案

月排行榜 / 总排行榜

cbg2008

2013-2-15 20:08

为了证明数组是快的，很懒的我写了这段代码，你测一下，真正的“秒杀”，如果不用UNION，只要把符合条件的数据赋值到新区域，那可以更快。

1. Sub 高效数组方法()
   
2.     Dim arr, t
   
3.     Dim x As Integer
   
4.     Dim sr As String, sr1 As String
   
5.     Dim Rws As Range
   
6.     t = Timer
   
7.     arr = Range("B1:B" & Range("a65536").End(xlUp).Row)
   
8.     For x = 1 To UBound(arr)
   
9.         If x = UBound(arr) Then
   
10.             If Rws Is Nothing Then
    
11.                 Set Rws = Range(Mid(sr, 2, 255))
    
12.             Else
    
13.                 Set Rws = Union(Rws, Range(Mid(sr, 2, 255)))
    
14.             End If
    
15.         End If
    
16.         If InStr(arr(x, 1), "一") > 0 Then
    
17.             sr1 = sr
    
18.             sr = sr & "," & x & ":" & x
    
19.             If Len(sr) > 255 Then
    
20.                 x = x - 1
    
21.                 sr = sr1
    
22.                 If Rws Is Nothing Then
    
23.                     Set Rws = Range(Mid(sr, 2, 255))
    
24.                 Else
    
25.                     Set Rws = Union(Rws, Range(Mid(sr, 2, 255)))
    
26.                 End If
    
27.                 sr = ""
    
28.             End If
    
29.         End If
    
30.     Next x
    
31.     MsgBox Timer - t
    
32.     '    Rws.Interior.ColorIndex = 3  '去掉注释可以测试筛选结果是否正确
    
33. End Sub
    

复制代码

跳转到最佳答案楼层

无聊的疯子

难道自动筛选不好用吗??


用同样的方法,可以有很多种不同的写法,写出来的速度自然也是不一样的!!

如果你只需要研究的话,那还是可以的!!

cbg2008

为了证明数组是快的，很懒的我写了这段代码，你测一下，真正的“秒杀”，如果不用UNION，只要把符合条件的数据赋值到新区域，那可以更快。

1. Sub 高效数组方法()
   
2.     Dim arr, t
   
3.     Dim x As Integer
   
4.     Dim sr As String, sr1 As String
   
5.     Dim Rws As Range
   
6.     t = Timer
   
7.     arr = Range("B1:B" & Range("a65536").End(xlUp).Row)
   
8.     For x = 1 To UBound(arr)
   
9.         If x = UBound(arr) Then
   
10.             If Rws Is Nothing Then
    
11.                 Set Rws = Range(Mid(sr, 2, 255))
    
12.             Else
    
13.                 Set Rws = Union(Rws, Range(Mid(sr, 2, 255)))
    
14.             End If
    
15.         End If
    
16.         If InStr(arr(x, 1), "一") > 0 Then
    
17.             sr1 = sr
    
18.             sr = sr & "," & x & ":" & x
    
19.             If Len(sr) > 255 Then
    
20.                 x = x - 1
    
21.                 sr = sr1
    
22.                 If Rws Is Nothing Then
    
23.                     Set Rws = Range(Mid(sr, 2, 255))
    
24.                 Else
    
25.                     Set Rws = Union(Rws, Range(Mid(sr, 2, 255)))
    
26.                 End If
    
27.                 sr = ""
    
28.             End If
    
29.         End If
    
30.     Next x
    
31.     MsgBox Timer - t
    
32.     '    Rws.Interior.ColorIndex = 3  '去掉注释可以测试筛选结果是否正确
    
33. End Sub
    

复制代码