[求助]如何进行单元格内容中英文字母颜色的批量设置？

ZMKGEM0815

各位高手：

小弟有一问题请教：如何对数量较多的单元格内容中的英文字母进行颜色的批量设置？

不胜感激！

northwolves

Sub macro1()
Dim s(1 To 100, 1 To 1) As String, i As Long, j As Long, temp As String

'随机字符串
For i = 1 To 100
Randomize
For j = 1 To Int(Rnd * 20) + 1
s(i, 1) = s(i, 1) & Chr(Int(Rnd * 26 + 97))
Next
Next
[a1:a100] = s
[a:a].Font.ColorIndex = 0
[a:a].Font.Size = 18
[a:a].Columns.AutoFit

'指定不同字母的颜色

For i = 1 To [a65536].End(xlUp).Row
For j = 1 To Len(Cells(i, 1))
temp = Mid(Cells(i, 1), j, 1)
If temp Like "[a-n]" Then Range("a" & i).Characters(j, 1).Font.ColorIndex = Asc(temp) - 95
Next
Next
End Sub

ZMKGEM0815

谢谢“northwolves”版主的帮助，看来我提的问题超出了我现在所掌握的技能范围，我先将你提供的方法保存下来，待学习了VBA后再慢慢研究。谢谢！

czzqb

如果一个单元格中是中英文混合的，只是需要英文字母改变颜色，这个就要用到VBA了。

帮你转到VBA版

alexhong

学习了。谢谢！