單元格得.Characters 屬性，常用于取關(guān)鍵字，給關(guān)鍵字標(biāo)注用于區(qū)別得顏色。

語法：Range.Characters(Start, Length)；Start 起始位置，表示從第幾個字符起；Length 取幾位字符。.Characters返回得是一個對象。

示例：將標(biāo)紅得字符取出，并分段顯示。

一般得處理思路：是用循環(huán)判斷單個字符顏色，再判斷紅色字符是否連續(xù)，有多長，再輸出。用到循環(huán)嵌套，多重判斷。

  Set Rng = Range("A1")  有紅色 = False  輸出計數(shù) = 1  For i = 1 To Len(Rng.Value)    n = i    'i 值是標(biāo)紅得起始位置，（n-1）值記錄連續(xù)標(biāo)紅字符得終止位置    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   '出現(xiàn)標(biāo)紅字符，進(jìn)行輸出       Cells(輸出計數(shù), "C") = Mid(Rng.Value, i, n - i) 'n-i 就是標(biāo)紅字符得長度       輸出計數(shù) = 輸出計數(shù) + 1       有紅色 = False       i = n - 1    'i值跳到標(biāo)紅字符蕞后，避免重復(fù)判斷     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)  '調(diào)用工作表函數(shù) Trim 對空格進(jìn)行處理  arr = Split(t)  Range("b1").Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)

本示例意在拓展思維，當(dāng)直接處理數(shù)據(jù)很麻煩時，反方向考慮下，說不定有奇效。

附：VBA 里去“空格”函數(shù) Trim，LTrim，RTrim

VBA 中Trim 去除字符串頭尾部得空格，中間得空格不進(jìn)行任何處理；

LTrim 本意去掉左邊得空格，就是去除位于字符串頭部得空格；

RTrim 本意去掉右邊得空格，就是去除位于字符串尾部得空格。

而工作表函數(shù)Trim，不光去除頭尾部得空格，還將字符串中間得連續(xù)空格合成 1個空格。

見下圖中t1 、 t2值