Excelで赤字のみ削除するVBAのコードをご教授ください。具体的には、Excelの複数セル内の赤文字のみを削除するためのVBAのコードについて質問です。赤文字の中には-かな-カタカナ-漢字-アルファベット大文字・アルファベット小文字 -全角数字・半角数字 が含まれます。別添の画像の通り「実行前」の状態 → 「実行後」の状態へ 赤字のみ削除し、黒字のみ残すというイメージです。列は全部で1000ほどあり、画像の通り該当部分を選択してマクロを実行するイメージです。下記のコードで、1セル内の１行のみであれば削除できますが、複数行や複数セルを選択した場合、実行しても削除されません。すでに1か月ほど試行錯誤していますが、私の知識ではどうしても解決できません。詳しい方、ご教授いただければ幸いです。-------------------------------------------------------------Sub DeleteRedTextInSelection() Dim cell As Range Dim i As Long ' 選択範囲の各セルを処理 For Each cell In Selection If Not IsEmpty(cell.Value) Then ' 文字単位で色を確認 For i = Len(cell.Value) To 1 Step -1 ' 赤文字判定（RGB値で判定） If cell.Characters(i, 1).Font.Color = RGB(255, 0, 0) Then ' 赤文字を削除 cell.Characters(i, 1).Text = \u0026quot;\u0026quot; End If Next i End If Next cellEnd Sub-------------------------------------------------------------