优化代码

小子o︻▅▆

这是我网上凑出来的代码，代码的目的是，发现选区内的字母，大写字母或者小写字母，仅把字母标记为红色，其他的不标记。


代码可运行在数据区域小的地方，我正常需要的数据区域差不多是100列*10000行上下，这个代码就会让excel死机，求教该如何优化。
运行出来的效果如下，麻烦看下该如何优化，能让代码在大的数据区域下跑起来，感谢。



代码：

Sub 修改单元格内字母颜色()
Dim i As Integer
Dim MyKeys
'建立要设置颜色的文本数组
MyKeys = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")

Dim TotalRange As Range
Dim ThisRange As Range
'指定要设置的单元格区域
Set TotalRange = Application.InputBox("选择具体区域，不要选择整行整列：", , , , , , , 8)
'用循环开始设置
For Each ThisRange In TotalRange
   For i = 0 To UBound(MyKeys)
      '调用自定义过程
      Call MyReplace(ThisRange, MyKeys(i))
   Next i
Next

End Sub

'自定义过程，对单元格里的指定文字设置为红色
Sub MyReplace(ByVal MyRange As Range, ByVal MyKey As String)
Dim LinStr As String
Dim L As Integer
Dim i As Integer

L = Len(MyKey)

LinStr = MyRange.Text
i = InStr(1, LinStr, MyKey)
Do While i <> 0
   MyRange.Characters(Start:=i, Length:=L).Font.Color = RGB(255, 0, 0)
   i = InStr(i + L, LinStr, MyKey)
Loop

End Sub

3190496160

要遍历每个单元格，再遍历每个字符，速度快不了

ovxyz

我能说这个比较无解吗？
因为运行机制的方式固定了，excel如果要修改单元格内部分字体的颜色，只能一个一个单元格操作，没法批量操作。
你这里仅仅能做的优化就是把刷新关闭。
Application.ScreenUpdating = False
运行完代码后再打开
Application.ScreenUpdating = True

jz_l

1、看贴图是对%后面的字符设为红色，那就简单了
2、就算不是上面1的规律，也应该是遍历单元格中文本的每个字符，去判断每个字符是否为字母再设置颜色，而不是拿52个字母去单元格的文本里找有没有这个字母

xunanming

可以用字典与数组,但同样要为众多单元格对象标色,速度肯定快不了,搞不好电脑死机是常有的.

darklesson

如果你数据确实都是abc,ABC这些需要判定，直接用if XXX like "[A-Za-z]" then 来判断看比数组是否快点。另外指定代码的时候screenupdating关了会不会好点。

tanglf188

加个判断
If Right(ThisRange.Value,1)<> "%" And Len(ThisRange.Value)>1 Then Call MyReplace(ThisRange, MyKeys(i))

gwjkkkkk

直接对单元格操作估计快不了，需要从其他地方想办法了。。。