VBA～Application.GetPhoneticメソッド～Excel

VBAで文字列からフリガナを抽出したい場合はApplication.GetPhoneticメソッドを使います。

書き方

Application.GetPhonetic(文字列)

例として下の画像において下のコードを実行するとセルB2にセルA1の文字列のフリガナが表示されます。

Sub test1()

Range("B2") = Application.GetPhonetic(Range("A2"))

End Sub