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列にセットします。
コメント