VBAで送り仮名自動生成
- 漢字やひらがなの名称列データに対して、送り仮名を生成する
VBA
Sub Macro1()
Dim i As Long
' 処理対象のファイル(事前に開いといてね)
Workbooks("サンプル.xlsx").Activate
' 行のループ範囲を指定
For i = 3 To 340
' 右辺のデータを左辺に代入
' 左辺=カナデータを格納するセル
' 右辺=元データからカナデータを生成
Range("H" & i).Value = StrConv(Application.GetPhonetic(Range("B" & i)), vbNarrow)
Next
End Sub