Win for DTP Excel上で全角英数字は半角、半角カタカナは全角にするVBA

印刷業界にいると、それはもう素敵なデータ（笑）を貰う機会が多いわけです。 で、それをこつこつと印刷用ソフトに使える形のデータにするのもDTPの仕事だったりするわけです。 たいがいさくらエディタなどで置換してしまうんですが、そのためだけにテキスト形式に書き出すのめんどいし、 かといってテキストエディタ立ち上げてコピペしたことによって人的なミスが起こるかもしれないし。。 というわけで、Excel上でそのたぐいのことはやってしまいましょう。 コードをざっと紹介すると、VBScriptを参照・正規表現を利用してまず全角文字すべてを半角にします。 そうすると、全角カタカナも半角にしてしまうので、処理後に半角カタカナになったものを全角に再変換します。 ワークシートそのものでなく、列単位で変換したい場合はActiveSheet.UsedRangeをselectionに変更すればOK。 その場合は、変換し

[akatsuki_pocket]

全角英数字の半角変換だけでなく、半角カタカナの全角変換にも対応しているのがスゲー！VBA対応のMacなら多分イケるハズ。