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

micch

yjh_27 发表于 2019-1-20 18:47
用相对地址，字符少。
限制长度255

多谢，明白了，还以为可以把所有单元格地址相连，一次range呢；一个地址加逗号"D106,"，5个字符，合并单元格地址40多个一组，5000多个结果，也还是得union不少次

wfchenyiting

非常感谢论坛各位老师提供的帮助和思路。这对作为新人的我帮助太大了。总结楼上几位老师的代码思路，主要是利用 range 里255个字符，这样可以有效的减少 时间，学习了。再次谢谢！

05050818

试试筛选呢?

Rows("1:1").Selection.AutoFilter
Range("").AutoFilter Field:=3, Criteria1:="广州"
Range("").SpecialCells(xlCellTypeVisible).Font.ColorIndex = 3

一把小刀闯天下

'好玩而已，使用改变颜色速度会更快些，，，

Option Explicit

Sub test()
  Dim arr, i, j, m, rng As range, t
  t = Timer
  Application.ScreenUpdating = False
  arr = [a1].CurrentRegion
  ReDim brr(1 To UBound(arr, 1) * UBound(arr, 2), 1 To 1) As String
  [a1].CurrentRegion.Interior.ColorIndex = xlNone
  For i = 2 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
      If InStr(arr(i, j), "昆山") > 0 Then m = m + 1: brr(m, 1) = Cells(i, j).Address(0, 0)
  Next j, i
  If m = 0 Then Exit Sub
  Set rng = range(brr(1, 1))
  For i = 2 To m
    If i Mod 50 = 1 Then
      rng.Interior.Color = vbYellow
      Set rng = range(brr(i, 1))
    Else
      Set rng = Union(rng, range(brr(i, 1)))
    End If
  Next
  rng.Interior.Color = vbYellow
  Application.ScreenUpdating = True
  Debug.Print Format(Timer - t, "用时：0.00s"), m
End Sub

AVEL

怎么不用条件格式，我自己电脑测试只需要0.16秒啊

wfchenyiting

一把小刀闯天下 发表于 2019-1-21 14:33
'好玩而已，使用改变颜色速度会更快些，，，

Option Explicit

呵呵，谢谢小刀老师的持续关注和代码。确实是的，标色是比选中执行的快速。

今天小花送完了，改日补上，谢谢！

wfchenyiting

05050818 发表于 2019-1-21 14:10
试试筛选呢?

Rows("1:1").Selection.AutoFilter

谢谢老师的指导，我测试下哈。

grf1973

0.04秒。如果不是要求计数，0.02秒。

1. Sub 查找()
   
2.   Dim FindSt$, Rg1 As Range, Arr, x&, t
   
3.   FindSt = "昆山"
   
4.   t = Timer
   
5.   Set Rg1 = [a1].CurrentRegion
   
6.   Arr = Rg1
   
7.   For Each a In Arr
   
8.         If InStr(a, FindSt) Then x = x + 1
   
9.   Next
   
10.   Cells.FormatConditions.Delete
    
11.   Rg1.FormatConditions.Add Type:=xlTextString, String:="昆山", TextOperator:=xlContains
    
12.   Rg1.FormatConditions(1).Interior.Color = 13551615
    
13.   MsgBox "查询到包含字符：" & FindSt & " 共计：" & x & _
    
14.   "条记录！" & vbCrLf & "用时：" & Timer - t & " 秒！" & _
    
15.   vbCrLf & vbCrLf & "---instr查个数，条件格式定位置！"
    
16. End Sub

复制代码

wfchenyiting

AVEL 发表于 2019-1-21 14:45
怎么不用条件格式，我自己电脑测试只需要0.16秒啊

感谢大师的指导，这个用vba代码如何实现啊？看了您的演示，是执行了标色，有同时选中符合条件的单元格么？
谢谢老师，今天小花用完了，改日补上。谢谢

chis3

AVEL 发表于 2019-1-21 14:45
怎么不用条件格式，我自己电脑测试只需要0.16秒啊

樓主最主要問題都是要select
這部份太花時間