エクセルマクロ文で、赤文字セルは保持、黒のセル文字削除する方法

For Each rng In Range("G2:G25")
If rng.Value <> "" Then
Set out = Range("A2:E111").Find(rng.Value)
If Not out Is Nothing Then
igo = out.Address
End If

Do While Not out Is Nothing
out.Font.ColorIndex = 3
Set out = Range("A2:E111").FindNext(out)
If igo = out.Address Then
Exit Do
End If
Loop
End If
Next
このマクロ文は、連続検索し、一致するすべて文字を赤色にするものです。赤文字セルは保持、黒のセル文字を削除する方法を教えてくれませんか？

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2006/10/10 23:36

For Each rng In Range("G2:G25")

If rng.Font.ColorIndex <= 1 Then rng.Value = ""
Next

この回答へのお礼

有難うございます。勉強になりました。ウルトラビギナー
からビギナーに成れたような気がします。有難うございました。

お礼日時：2006/10/11 00:59