單元格得.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值
