[Word/Excel]漢字からふりがなを抽出する

Excelの名簿でふりがながほしいときがある。
A1に「やまだたろう」と入力して「山田太郎」と漢字変換した場合
B1に

=PHONETIC(A1)

 

と書けばB1「やまだたろう」と表示される。

ところが、CSV形式のデータはIMEの履歴が残っていないので、この技が使えない。

そこで、VBAを使う。

Sub ひらがな抽出マクロ()
Selection.SetPhonetic
End Sub

 

これだけ、あとは変換したい漢字を選択して、マクロを実行すればよい。