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

質問

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 · ベストアンサー

For Each rng In Range("G2:G25")
If rng.Font.ColorIndex <= 1 Then rng.Value = ""
Next

お礼

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