Excelでのふりがなの削除（VBA編）

Excelでのふりがなの削除

「ふりがな」は、普段気にしないけど、並べ替え時にすごくやっかいになります。
半角の英語や数字なら問題ありませんが、これが漢字だとすごくやっかい。
並べ替えをしているつもりが、実はきれいに並んでいないことがあります。
なので、漢字が含まれる列を基準にして並び替えをする場合は、必ずこの「ふりがな」処理はしておきましょう。

「ふりがな」自体を使うことがなければ、一気に全部消しておく処理を入れます。

'全ふりがな全削除
Dim allFrgn As Range
For Each allFrgn In Selection
allFrgn.Characters.PhoneticCharacters = ""
Next

'特定列のふりがな削除
例）C列のふりがなを消します。（左からアルファベットを数えて3番目なので３）
Columns(3).Characters.PhoneticCharacters = ""
※ 通常は、この３の部分に変数を入れることになると思います。

'特定セルのふりがな削除
例）B4のセルのフリガナを消します。
Cells(4, 2).Characters.PhoneticCharacters = ""