使用数组并没有速度优势

戒烟限酒

我的表中有54万数据记录，开始我用高级筛选进行数据查询，但是感觉速度不是很快，后改用数组，使用数组罗列符合条件的数据，经过对比验证发现，使用数组的速度比高级筛选还要慢，另外我也尝试过使用sql，sql的速度比高级筛选要快，三者比较而言sql是最快的，但是我用的是免费版本的wps，自己安装的vba7.0，这种情况下当搜索的数据超过65536行后，就不行了。最终只能用高级筛选了。我的代码如下：
Sub 数组查询()
Dim arr(), brr()
arr = Sheet1.UsedRange
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For d = 1 To UBound(arr, 2) - 1
If Sheet3.Cells(2, d) = "" Then Sheet3.Cells(2, d) = "*"
yi = Sheet3.Range("a2")
er = Sheet3.Range("b2")
san = Sheet3.Range("c2")
si = Sheet3.Range("d2")
Next
For i = 1 To UBound(arr)
If arr(i, 1) Like yi And arr(i, 2) Like er And arr(i, 3) Like san And arr(i, 4) Like si Then
t = t + 1
For j = 1 To UBound(arr, 2)
brr(t, j) = arr(i, j)
  Next
End If
Next
Sheet3.Range("a4").Resize(t, UBound(arr, 2)) = brr()
End Sub

opel-wong

这么说有点天马行空。
把你的54万数据放上来，
还有你的代码，

tspliu

我开汽车还没有旁边大爷电动三轮跑得快

花花爱吃肥肉

学习下，我现在最多用到数据大概在20万行，不能用公式去链接别处，一用就卡死

另外有个姑娘用条件格式判断3万多行数据里面重复值，要筛选出来就难了，她说怎么一直转圈圈

hellikawhi2

https://club.excelhome.net/thread-1599682-1-1.html

,参考这个

戒烟限酒

opel-wong 发表于 2021-10-15 10:44
这么说有点天马行空。
把你的54万数据放上来，
还有你的代码，

Sub 数组查询()
Dim arr(), brr()
arr = Sheet1.UsedRange
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For d = 1 To UBound(arr, 2) - 1
If Sheet3.Cells(2, d) = "" Then Sheet3.Cells(2, d) = "*"
yi = Sheet3.Range("a2")
er = Sheet3.Range("b2")
san = Sheet3.Range("c2")
si = Sheet3.Range("d2")
Next
For i = 1 To UBound(arr)
If arr(i, 1) Like yi And arr(i, 2) Like er And arr(i, 3) Like san And arr(i, 4) Like si Then
t = t + 1
For j = 1 To UBound(arr, 2)
brr(t, j) = arr(i, j)
  Next
End If
Next
Sheet3.Range("a4").Resize(t, UBound(arr, 2)) = brr()
End Sub

zopey

1. Sub 数组查询2()
   
2. Dim arr(), brr()
   
3. arr = Sheet1.UsedRange
   
4. 
   
5. yi = Sheet3.Range("a2")
   
6. er = Sheet3.Range("b2")
   
7. san = Sheet3.Range("c2")
   
8. si = Sheet3.Range("d2")
   
9. 
   
10. ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    
11. For i = 1 To UBound(arr)
    
12. 
    
13. If InStr(arr(i, 1), yi) > 0 Or yi = "" Then
    
14. If InStr(arr(i, 2), er) > 0 Or er = "" Then
    
15. If InStr(arr(i, 3), san) > 0 Or san = "" Then
    
16. If InStr(arr(i, 4), si) > 0 Or si = "" Then
    
17.    t = t + 1
    
18.    For j = 1 To UBound(arr, 2)
    
19.        brr(t, j) = arr(i, j)
    
20.    Next
    
21. End If
    
22. End If
    
23. End If
    
24. End If
    
25. 
    
26. Next
    
27. 
    
28. Sheet3.Range("a4").Resize(t, UBound(arr, 2)) = brr()
    
29. End Sub

复制代码

戒烟限酒

zopey 发表于 2021-10-16 09:17

非常感谢！但是我运行了一下，速度比excel的高级筛选稍微快一点，但并没有明显变化。

zopey

还有提速空间 ：减少 if判断

yanjie

数据大了，就把数据放在Access中，用excel作为前端来处理数据。