Excelマクロで特殊文字を削除するメモ - Qiitaどうも、COBOLerです。 メインフレームのデータを某開発支援ソフトでエクスポートすると、 シフトアウト（SO）・シフトイン（SI）が特殊文字で置き換わってしまいます。 エクセルに貼り付けたとき特殊文字が邪魔になるので、マクロで消したくなりました。 VBEに特殊文字を入力できず困ったのでメモします。 やりたいこと 選択範囲に含まれる特殊文字（SO・SIが置き換わったもの）を削除する やったこと Sub SOSI置換() For Each mycell In Selection ' SOの削除 mycell.Value = Replace(mycell.Value, ChrW(&HBB), "") ' SIの削除 mycell.Value = Replace(mycell.Value, ChrW(&HAB), "") Next mycell MsgBox "置換しました" End Sub
