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

wfchenyiting · 发表于 2019-1-19 21:48

张道贤发表于 2019-1-19 21:44
完全可以操作

那辛苦下老师，把代码写完整，谢谢！

chis3 · 发表于 2019-1-19 22:04

wfchenyiting 发表于 2019-1-19 21:38
是的，老师，工作上领导经常要求把符合条件的单元格选出，改变颜色或者字体这些需求。谢谢您的指导！

...

這樣有什麼好處啊?
不把數據抽出而是選出和填色
有這種玩法的嗎

张道贤 · 发表于 2019-1-19 22:09

wfchenyiting 发表于 2019-1-19 21:48
那辛苦下老师，把代码写完整，谢谢！

做了一个背景颜色更改的，其他的自己试着做

Sub 查询()
T = Timer
[a1].CurrentRegion.Interior.ColorIndex = 0
Set regx = CreateObject("vbscript.regexp")
With regx: .Global = False: .Pattern = "昆山": End With
For Each AR In [a1].CurrentRegion
Set B = regx.Execute(AR)
C = C + B.Count
If B.Count > 0 Then AR.Interior.ColorIndex = 3
Next
CreateObject("Wscript.shell").popup " 昆山记录共计：" & C & "条，一共用时：" & Format(Timer - T, "#0.0000") & "秒", 1, "ainiy提示！", 32
End Sub

复制代码

abc123281 · 发表于 2019-1-19 23:42

很热闹路过参与一下请测试

数据abc123.rar (764.6 KB, 下载次数: 20)

chenjx80 · 发表于 2019-1-19 23:57

查询并选择 13000+ 条记录基本可以控制在 1 秒以内。

zpy2 · 发表于 2019-1-20 08:08

chis3 · 发表于 2019-1-20 08:20

张道贤发表于 2019-1-19 22:09
做了一个背景颜色更改的，其他的自己试着做

沒有用
只要加入set字句,選擇多range 也是11秒

MOY838840554 · 发表于 2019-1-20 08:40

条件格式-包含

chis3 · 发表于 2019-1-20 09:15

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

請教
用了什麼可以這麼快?

wfchenyiting · 发表于 2019-1-20 12:31

abc123281 发表于 2019-1-19 23:42
很热闹路过参与一下请测试

周末睡个懒觉起来，发现有这么多老师的关注，真的很感谢。

谢谢老师的代码，现在来看判断是否包含字符串用循环速度都可以接受，关键是选中符合的单元格，好像就很耗时，不知道这个有什么好的解决方案？非常感谢老师的关注！

		自动登录	找回密码
密码			免费注册

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