エクセルで全角ひらがなを半角カタカナに一括変換！

顧客管理ソフトの移行にあたり、
全角ひらがなを半角カタカナに変換する必要が出てきました

元データがエクセルで作ったものであれば、PHONETIC関数を使えばいいらしいのですが、
別のソフトのデータをエクセルに持ってきた場合は、PHONETIC関数は使えません

ネットで検索すると「マクロを使えば一発ですよ」という意見多数

「マクロって使ったことないんだけどな〜　できるかなぁ？」と思いながら、
思い切ってやってみたら、できました(笑)


１．「表示」タブの中にある、「マクロ」から「マクロを表示」をクリック

２．マクロ名を記入してから、「作成」をクリック
　　マクロ名は適当でOK

３．Sub マクロ名()〜End Subの表記が自動で出てくるけど、
　　全部削除して、下記のプログラムをコピペ

Sub 半角カタカナ変換()
Dim Rng As Range
Dim R As Range
Set Rng = Range(ActiveCell.Address, _
　　Cells(65536, ActiveCell.Column).End(xlUp))
For Each R In Rng
　　R.Value = StrConv(R.Value, vbNarrow + vbKatakana)
Next R
Set Rng = Nothing
End Sub

４．エクセルのシート画面に戻り、変換したい列を選んで
　　さっき作ったマクロ（この場合は、半角カタカナ変換()）を実行


たったこれだけで、超カンタンでした

ちなみに、エクセルのバージョンは2010です


マクロのプログラムは書けないけど、使い方はわかりました
これで、プログラム文が公開されてるマクロなら、使える〜

ありがとうございます