セル内の漢字を書き出し、必要なところにルビを打つ~エクセル・マクロ・VBA

セル内の文章の中でいくつかの漢字にルビを振ろうとしてセルをルビ表示にすると、すべての漢字が入力したときのルビが表示されてしまう。2,3の漢字だけでよいのに、不必要な漢字のルビを編集で削除するのは細かい作業となり、大変です。またどこかからコピーしてセルに貼り付けた文章であれば、ルビ表示にしてもルビが表示されない。そこでそのような必要がある時に、セルの中の漢字を取得

し、セルに一つ一つ書き出し、必要なところだけルビとしての文字を入力しておけばよい。ここでは漢字を抜き出すマクロを書き留めておく。[々][〃]も取得するとしたが、「二」のくずしのユニコード「U+303B」は取得できない。

その記述は私のHP「エクセルVBA5「検索・抽出・表示」の「7 漢字を取得しセルに書き出す」

にアップした。またそのファイルは次のような形のものです。3,4行目は文字が入力されると背景色がつくように条件s付き書式設定をしています。

複数漢字取得ルビつけ

複数漢字取得ルビつけ

3行目に6行目の文章の漢字を抜き出し、4行目に必要な漢字の下にルビを振るように設定しています。サンプルファイルはリンク先ページにおいています。