ワードから貼り付けたエクセル上での一括ふりがなor関数PHONETIC

質問

教えて下さい。
ワード内のリスト（会社名・住所など）を管理し易い様にエクセルへ貼り付けをしました。（テキストで貼り付け）その後、あいうえお順にデータを並び変えしたく、ふりがな（書式→ふりがな）or関数PHONETICを使用したのですが、実行できません。書式をクリアにしても駄目でした。書式設定では標準になってます。（文字列にもしてみました・・）
エクセルへ手入力すると普通にふりがなが実行できます。ちなみに、書式→ふりがな→編集の流れだと１つ１つは実行できます。リストが1000件以上ありますので、一括で通常通り実行できるためにはどの様にしたらいいのか教えて下さい。エクセルのバージョンは2002です。
よろしくお願いします。

回答No.1

nishi6 · ベストアンサー

コピーしたので、フリガナ属性を持っていないわけですね。
マクロを使って、候補のフリガナをセットしてみます。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入します。出てきたコードウインドウに下記マクロをコピーして貼り付けます。

フリガナを設定したい範囲を選択し、ツール→マクロ→マクロ　で下のマクロを実行します。
PHONETIC関数でフリガナがでてくるはずです。

ただし、プログラム的に「幸子」を「サチコ」か「ユキコ」かを特定するのは無理なので、各々の正誤はご自分で判断してください。

Sub setFurigana()
　　Selection.SetPhonetic
End Sub

お礼

nishi6様へ
ご回答頂きましてありがとうございました！
上記の様に実行しましたら、できました。
本当にありがとうございました。