excel2010 ふりがなをふる マクロ

質問

セルＡ１にふりがなをふる漢字、セルＢ２にＡ１にふるふりがながあります（Ａ１はコピー貼り付けしたデータです）。
（例）
　　セルＡ１　　　　　　セルＢ１
　木村　慎吾　　　きむら　しんご

こういう場合、セルＡ1にセルＢ１に入力されたふりがなをマクロを使ってふることは可能なのでしょうか？
よろしくお願いいたします。

回答No.2

watabe007 · ベストアンサー

>Ａ1からＡ列の最終データに、Ｂ１
参考に
Dim c As Range
For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
　　c.Phonetic.Text = c.Offset(, 1).Value
Next

お礼

ご回答ありがとうございました。

回答No.1

watabe007

>セルＡ1にセルＢ１に入力されたふりがなを
Range("A1").Phonetic.Text = Range("B1").Value

お礼

ご回答ありがとうございました。

補足

追加させていただきます。
Ａ行にふりがなをふる漢字（Ａ行はコピー貼り付けしたデータです）、Ｂ行にＡ行にふるふりがなが複数個あります（個数は変動あり）。
（例）
　　　Ａ行　　　　　　　Ｂ行
　　　木村　　　　　　　きむら　
　　　齋藤　　　　　　　さいとう
　　　 ・　　　　　　　　　・
　　　 ・　　　　　　　　　・
　　　加藤　　　　　　　かとう

こういう場合、Ａ1からＡ列の最終データに、Ｂ１からＢ列の最終データに入力された、それぞれのふりがなをマクロを使ってふることは可能なのでしょうか？
よろしくお願いいたします。