エクセルで他のセルにあるフリガナを入力する

他のセルにあるフリガナを入力する

A列氏名等　B列フリガナ
A2からA180までの氏名にB2からB180までのフリガナを入力する

Sub ふりがな入力()
Dim RowPos As Integer
For RowPos = 2 To 180
Range("A" & RowPos).Select
Range("A" & RowPos).SetPhonetic
Range("A" & RowPos).Phonetic.Visible = True
ActiveCell.Characters(1, 5).PhoneticCharacters = Range("B" & RowPos)
Next RowPos
Range("A3").Select
End Sub

※2 TO 180　を行数によって変更してください。