VBA Windows アプリケーション プログラミング

[VBA] フリガナを設定する --- Characters().PhoneticCharacters

CSVの名簿データだと、漢字の「名前」にフリガナが設定されていないので、それをExcelで利用するとソートやPhonetic関数の時にフリガナが空文字として扱われてしまいます。大抵そういうデータには「ふりがな」のフィールドがあるので、その「ふりがな」のフィールドの値を「名前」に設定するマクロです。右隣セルにフリガナが入力されているとして、アクティブセルに代入しています。

Sub 右のセルをフリガナに設定する()
    s = ActiveCell.Value
    ActiveCell.Characters(1, Len(s)).PhoneticCharacters = ActiveCell.Offset(0, 1).Value
    ActiveCell.Offset(1, 0).Select
End Sub

なんちゃって個人情報で生成してもらったCSVで試しました。