如何在单元格中对text函数引用的数字设置颜色

mm9126

求助，附件里这两行摘要主要是由&连接符和text函数组成的，现在想把其中text函数引用的部分，也就是摘要中的数字设置成红色，找了很多办法都实现不了，哪位大神可以帮帮忙哇，不胜感激。

ww87725244

1套中的1变色不？

ww87725244

1. Sub aa()
   
2. Dim rng As Range, m$, i&
   
3. With Worksheets("2018.4.3")
   
4.     For Each rng In .Range("a2:a3")
   
5.         rng.Value = rng.Value
   
6.         For i = 1 To Len(rng.Value)
   
7.             If VBA.IsNumeric(Mid(rng.Value, i, 1)) Then
   
8.                 rng.Characters(i, 1).Font.ColorIndex = 3
   
9.             End If
   
10.         Next
    
11.     Next
    
12. End With
    
13. End Sub

复制代码

mm9126

ww87725244 发表于 2018-4-3 18:34

哇！基本实现了诶~~膜拜膜拜~~
不过有一点点小问题，比如0.15里的点没有变色，10%中的百分号没有变色……请问还能改进么？