单元格的.Characters 属性，常用于取关键字，给关键字标注用于区别的颜色。
语法：Range.Characters(Start, Length)；Start 起始位置，表示从第几个字符起；Length 取几位字符。.Characters返回的是一个对象。
示例：将标红的字符取出，并分段显示。
一般的处理思路：是用循环判断单个字符颜色，再判断红色字符是否连续，有多长，再输出。用到循环嵌套，多重判断。
Set Rng = Range("A1")
有红色 = False
输出计数 = 1
For i = 1 To Len(Rng.Value)
n = i 'i 值是标红的起始位置，（n-1）值记录连续标红字符的终止位置
Do While Rng.Characters(n, 1).Font.Color = vbRed
n = n + 1
有红色 = True
If n > Len(Rng.Value) Then '防止n 大于字符串长度出错
Exit Do
End If
Loop
If 有红色 Then '出现标红字符，进行输出
Cells(输出计数, "C") = Mid(Rng.Value, i, n - i) 'n-i 就是标红字符的长度
输出计数 = 输出计数 + 1
有红色 = False
i = n - 1 'i值跳到标红字符最后，避免重复判断
End If
Next i其实，反向思考下，将黑色字符都换成“空格”，红色字符就留下了，再以“空格”为分隔，不就得到了所需。这个思路以处理黑色字符为思路。下面代码明显简单清晰多了。
Set Rng = Range("A1")
For i = 1 To Len(Rng.Value)
If Rng.Characters(i, 1).Font.Color = vbRed Then
t = t & Rng.Characters(i, 1).Text '记录下红色的字符
Else
t = t & " " '黑色的字符都被换成空格
End If
Next i
t = WorksheetFunction.Trim(t) '调用工作表函数 Trim 对空格进行处理
arr = Split(t)
Range("b1").Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)本示例意在拓展思维，当直接处理数据很麻烦时，反方向考虑下，说不定有奇效。
附：VBA 里去“空格”函数 Trim，LTrim，RTrim
VBA 中Trim 去除字符串头尾部的空格，中间的空格不进行任何处理；
LTrim 本意去掉左边的空格，就是去除位于字符串头部的空格；
RTrim 本意去掉右边的空格，就是去除位于字符串尾部的空格。
而工作表函数Trim，不光去除头尾部的空格，还将字符串中间的连续空格合成 1个空格。
见下图中t1 、 t2值
