どうも、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
![Excelマクロで特殊文字を削除するメモ - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/16d4cf414fcef7353618aa98990f6c19ff5604e2/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-412672c5f0600ab9a64263b751f1bc81.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTk3MiZoPTM3OCZ0eHQ9RXhjZWwlRTMlODMlOUUlRTMlODIlQUYlRTMlODMlQUQlRTMlODElQTclRTclODklQjklRTYlQUUlOEElRTYlOTYlODclRTUlQUQlOTclRTMlODIlOTIlRTUlODklOEElRTklOTklQTQlRTMlODElOTklRTMlODIlOEIlRTMlODMlQTElRTMlODMlQTImdHh0LWFsaWduPWxlZnQlMkN0b3AmdHh0LWNvbG9yPSUyMzIxMjEyMSZ0eHQtZm9udD1IaXJhZ2lubyUyMFNhbnMlMjBXNiZ0eHQtc2l6ZT01NiZzPTJkN2U4NDEzZGE2MDIyOTFiYjk2ZTFjNTZhNzMwZjll%26mark-x%3D142%26mark-y%3D57%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZoPTc2Jnc9NzcwJnR4dD0lNDBrb2lrZV9lMyZ0eHQtY29sb3I9JTIzMjEyMTIxJnR4dC1mb250PUhpcmFnaW5vJTIwU2FucyUyMFc2JnR4dC1zaXplPTM2JnR4dC1hbGlnbj1sZWZ0JTJDdG9wJnM9YjI2YTY1Y2ZmMDQxMzJkOWIyN2VjZTQxNzI5NDg5YTc%26blend-x%3D142%26blend-y%3D486%26blend-mode%3Dnormal%26s%3D1f30054523c869af45c57579a4ec0e3d)