我在单元格 A1 中有一句话“我想要其中 50 个”。我想将任何数字字符设置为红色文本（只是数字字符）。我该怎么做呢？这是我所拥有的框架......
Sub RedText()
Dim i As Integer
For i = 1 To Len(Cells(1, 1).Value)
If IsNumeric(Mid(Cells(1, 1).Value, i, 1)) = True Then
'make the character red text
End If
Next
End Sub
任何帮助将不胜感激。
您可以使用人物（起点、长度)财产来做到这一点。您还可以将文本存储在字符串中并在其上循环，当您处理许多单元格时，这会更快。这是一个例子：
Sub RedText()
Dim i As Long
Dim text As String
text = Cells(1, 1).Value
For i = 1 To Len(text)
If IsNumeric(Mid$(text, i, 1)) = True Then
Cells(1, 1).Characters(i, 1).Font.Color = vbRed
End If
Next
End Sub
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
