エクセル２０００:文字の色による処理は可能か

質問

エクセル２０００：文字の色による処理は可能か
Ａ１セルに青と緑の文字が入っています。青い炉の文字だけ残したい場合のマクロ記述は？

回答No.2

BLUEPIXY · ベストアンサー

#1のDebug.Printの行は不要

補足

問題；訂正
青い炉の→青色の

回答No.1

BLUEPIXY

Public Sub test()
Dim r As Range
Dim i, wk As String
Set r = Range("A1")
wk = ""
For i = 1 To Len(r.Value)
Debug.Print r.Characters(i, 1).Font.ColorIndex
If r.Characters(i, 1).Font.Color = vbBlue Then
wk = wk + r.Characters(i, 1).Text
End If
Next
r.Value = wk
r.Characters.Font.Color = vbBlue
End Sub

お礼

わかりました。活用させていただきます。
ありがとうございました。