小编Joh*_*ard的帖子

我在单元格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

任何帮助将不胜感激.