【エクセル】フリガナを取得するVBA

Webページから文字列データを取得した場合、PHONETIC関数を利用して「ふりがな」を振ろうとしても、漢字になってしまします。

つまり、文字列には「フリガナ」データが含まれていません。
そこで、フリガナをつけてしまうVBAが次の通りです。

Sub getYomigana()
Dim i As Long
i = 2

' 2行目から、項目が存在する行まで順に処理を行う
    Do While Cells(i, 1) <> ""

        '2列目（B列）にA列で取得したフリガナを入力
        Cells(i, 2) = Application.GetPhonetic(Cells(i, 1))
    
        '次の行に移行するために
        i = i + 1
    Loop
End Sub

A列に文字データがあります。

B列にフリガナデータをセットしていきます。

Do Loop で繰り返し処理をします。

条件としては、A列のデータが空白になるまで。

Application.GetPhonetic　が、漢字からヨミガナを取得する関数です。

A列から取得したヨミガナをB列にセットします。