セル内の文字列が日本語か英語かを厳密に識別したい

質問

セル内(C3)にある文字列に、漢字・ひらがな・全角カタカナ・半角カタカナのうち、1個でもあれば、その文字列すべてを、右隣のセル(C4)に移し、それ以外の場合はさらにその右隣(C5)に移したいのですが、

たとえば、

(C3)「AMERICA/JAPAN」の場合は、(C5)に「AMERICA/JAPAN」と移します。

(C3)「ＡＭＥＲＩＣＡ/Japan」の場合は、(C5)に「ＡＭＥＲＩＣＡ/Japan」と移します。

(C3)「AMERICA/JAPAN#$%?<>」の場合は、(C5)に「AMERICA/JAPAN#$%?<>」と移します。

しかし

(C3)「日本とアメリカ#$%?<>」の場合は、(C4)に「日本とアメリカ#$%?<>」と移します。

(C3)「日本/america」の場合は、(C4)に「日本/america」と移します。

(C3)「日本/アメリカ」の場合は、(C4)に「日本/アメリカ」と移します。

(C3)「Japanとamerica」の場合は、(C4)に「Japanとamerica」と移します。

VBAで処理する場合、文字コード、Chr関数、Mid関数を使えばいいと思ってプログラムを組むところです。

ところが、漢字のコード番号が何番から何番までか、よくわかりません。カタカナ・ひらがなは調べられます。

正確でなくとも<>=の数値処理の範囲指定ですので、漢字コードの範囲を教えてくださいませんか。

また、この処理目的のために、よりシンプルなプログラムがありましたら教えてくださいませんか。
よろしくお願いします。

※簡単に言いますと、セル内が日本語の文章か英語の文章かを識別する作業です。

回答No.4

bys07405

#1です。
文字列として"ABC"と"いろは"とあるとします。

JIS関数で全角変換をすると
"ABC"→"ＡＢＣ"
"いろは"→"いろは"
この変換後の文字列数をLENB関数で数えると(文字数をバイト単位で数える)
"ＡＢＣ"→6文字
"いろは"→6文字
となります。

ASC関数で半角変換をすると
"ABC"→"ABC"
"いろは"→"いろは"
この変換後の文字列数を同じくLENB関数で数えると
"ABC"→3文字
"いろは"→6文字

ここで JIS関数で変換した文字数=ASC関数で変換した文字数*2 だったら英語、イコールでなければ日本語が混じっていると判断しています。
ただ、ここで書いていて気づいたのですがカタカナは半角カタカナがあるためうまくいきませんね。「漢字・ひらがなが1個でも」という条件にしか適合しません。申し訳ありません。
(例題はカタカナと一緒に漢字またはひらがながあったためたまたまうまくいっていました)

もう一件追加の質問は、その質問のリンク先か質問Noがあるとありがたいです...