エクセルで一括でフリガナを表示させる方法

質問

A列に漢字が3000行ぐらいあります。
B列に一括でふりがな(カタカナ）を表示させたいのですが、どのようにしたらいいでしょうか？
検索してみたら同じ質問がありマクロを使ってやってみたのですが、うまくできませんでした。
マクロは全くの初心者です。どうぞよろしくお願いします。

回答No.2

WAR450R

sub test1()
dim i as range
for each i in range("a1:a3000") '3000行まで
with i.phonetic
.charactertype = xlkatakana
.visible =false
end with
i.offset(,1) =i.phonetic.text
next
end sub

回答No.1

mu2011

A1から漢字データが入力されているとして、B1に=PHONETIC(A1)を入力、フィルハンドル（B1セルの枠右下の■）をダブルクリックで如何でしょうか。
因みに漢字データは、エクセルで入力に限りますので、他のアプリケーションから引用していると変換されません。