エクセルに入力したデータでJIS第２水準の文字を検索することはVBA等で可能でしょうか？

質問

エクセルにて日々の受注データを登録するシステムを作っています。
このデータを下位の伝票発行システムに渡すに当たって、JIS第2水準や拡張文字コードの漢字を無理にでもJIS第1水準に変更する必要に迫られています。
自動的に変更できれば何よりなのですが、せめてJIS第1水準以外の文字だけをフォントカラーを赤にする等ができないかと考えております。
テキストファイルならエディタでこのようなこと簡単にできますが、エクセルでできないものでしょうか？

回答No.1

shironekoxxx

簡単に（テキストエディタのように）はできませんねぇ。

文字数が決まっている（または十分少ない）のなら、code関数でＪＩＳコードを引いて、その範囲で判断ができますが。

A1セルに「教」という漢字一文字がある場合、B1セルに
=CODE(A1)
と入力すると13877という値が出ます。この場合、値はＡ１セルの最初の文字だけしか見てませんので、A1セルが２文字以上の場合は、MID関数等を使って一文字ずつ判定するしか思いつきません。