＃３でご指摘のようにセルの文字が赤く見えても、少なくとも３種の設定で
（１）条件付き書式
（２）文字色
（３）正、負、０などに赤色設定
なされた可能性があります。
書式の検索ー置換が３種の全部をカバーするのか、未検証です。
＃１でマクロでという記述もありますので、考えてみました。
（検出）
Sub test01()
Dim cl As Range
For Each cl In Selection
If cl.Font.ColorIndex = 3 Then
MsgBox "1-" & cl.Address
End If
'---
If cl.FormatConditions(1).Font.ColorIndex = 3 Then
MsgBox "2- " & cl.Address
End If
'---
f = cl.NumberFormat
p = InStr(f, "[Red]")
If p <> 0 Then
MsgBox "3- " & f
End If
Next
End Sub
３種を別々に判別しないといけないので、面倒なようです。
（修正、置換）
Sub test01()
Dim cl As Range
For Each cl In Selection
If cl.Font.ColorIndex = 3 Then
cl.Font.ColorIndex = 0
MsgBox "1-" & cl.Address
End If
'---
If cl.FormatConditions(1).Font.ColorIndex = 3 Then
cl.FormatConditions(1).Font.ColorIndex = 0
MsgBox "2- " & cl.Address
End If
'---
f = cl.NumberFormat
p = InStr(f, "[Red]")
If p <> 0 Then
cl.NumberFormatLocal = "#,##0;[黒]-#,##0"
MsgBox "3- " & f
End If
Next
End Sub
これでも十分正確でなく、面倒のようです。
