怪奇！漢字の読みをエクセルが勝手に考える機能！

修論のときに知っておけばよかったよシリーズ！

http://www.relief.jp/itnote/archives/001453.php

このサイト、たいへん勉強になりました。
以下は、上のサイトのパクリです。
上のサイトは親切な解説なので、興味がある人はそっちを見てください。

Sub SetPhonetics()
  Selection.SetPhonetic
  Selection.Phonetics.Visible = True
     Selection.Offset(1, 0).Select
End Sub

次のマクロを実行。適当にショートカットを設定、例えば Kanji だけに「Ctrl + k」にして、Ctrlを押しながら K連打すると下に向かってずらーっとふりがながはいる。

ちなみに、ぼくは「読みの情報」があれば充分で、ふりがな自体は別に必要なかったので、実際のマクロ実行では、
Selection.Phonetics.Visible は False にした。