实在受不了这个速度了！查找并选中指定字符单元格！

wfchenyiting

chenjx80 发表于 2019-1-19 23:57
查询并选择 13000+ 条记录基本可以控制在 1 秒以内。

谢谢老师的关注，您没有附件或者代码啊？能共享下您的代码，感谢！

wfchenyiting

zpy2 发表于 2019-1-20 08:08
路过凑热闹，筛选的话结果少很快的几乎是2秒。
http://5809c7f4.nat123.cc:15216/bsbm/pdo/eh2/a16/a1610/ ...

感谢感谢，老师发的这个我还第一次接触，还不知道如何操作。今天小花送完了。明天补上。谢谢

不知道为什么

哈哈，这里是很热闹啊，可惜手机上网，下午也来参与下——

zpy2

wfchenyiting 发表于 2019-1-20 12:34
感谢感谢，老师发的这个我还第一次接触，还不知道如何操作。今天小花送完了。明天补上。谢谢

直接访问链接就行了啊！

不知道为什么

如图：用 instr 和数组 通过循环仅做判断，只需要 0.078 秒！好像这个还是比楼上老师用正则的速度快很多啊。





如果需要达到你需要的选中符合条件的单元格的要求，用时 2.64秒，这是我想到的最快的代码了。供参考！

不知道为什么

代码供参考

yjh_27

1. Sub 查找1()
   
2. Dim FindSt$, Rg1 As Range, Rg2 As Range, Arr
   
3. Dim RgA$, RgCol As String, x%, t
   
4. FindSt = "*昆山*"
   
5. Application.ScreenUpdating = False
   
6. t = Timer
   
7. Arr = [a1].CurrentRegion
   
8. Set Rg1 = Range("a1").Resize(UBound(Arr), UBound(Arr, 2))
   
9. For Each b In Rg1
   
10.     If b Like FindSt Then
    
11.         x = x + 1
    
12.         RgCol = RgCol & "," & b.Address(0, 0)
    
13.         If x Mod 42 = 0 Then
    
14.             If x = 42 Then
    
15.                 Set Rg2 = Range(Mid(RgCol, 2))
    
16.             Else
    
17.                 Set Rg2 = Union(Rg2, Range(Mid(RgCol, 2)))
    
18.             End If
    
19.             RgCol = ""
    
20.         End If
    
21.     End If
    
22. Next
    
23. Rg2.Select
    
24. MsgBox "查询到包含字符：" & FindSt & " 共计：" & x & _
    
25. "条记录！" & vbCrLf & "用时：" & Timer - t & " 秒！" & _
    
26. vbCrLf & vbCrLf & "---Find 查询！"
    
27. Application.ScreenUpdating = True
    
28. End Sub

复制代码

lustpeak

用菜单的查找然后ctrl+a全选不可以吗？

yjh_27

wfchenyiting 发表于 2019-1-19 20:26
复制了您的代码，运行了下，确实速度并没有显著的变化，不过还是非常感谢您的代码和指导。谢谢

减少合并次数  提速

huanghai22

这个速度不知道满不满意？