ＥｘｃｅｌＶＢＡ – 文字列比較！

　　 今日は、ＥｘｃｅｌのＶＢＡについてです。

よく仕事なんかでＥｘｃｅｌを使って複雑な表を作ったりすると思います。

ある程度のことなら、Ｅｘｃｅｌの関数を駆使すればできます。

しかし、関数だけではチョット難しいことも多々あると思います。

そんな時、ＶＢＡを使って処理をさせたりするんですが、そこで僕が「文字列を比較する」際によく利用する小技です。

具体的には以下のような例。 「Ａ　　１００ａ」（全部全角文字(スペースは全角２個)） と 「A 100a」（全部半角文字(スペースは半角１個)） を同じものとして扱いたい。

同じＥｘｃｅｌシートを複数の人が使用する場合、同じコード類でも人によって微妙に入力が違ってしまうことがあります。

全角文字を半角に、全角・半角スペースを削除することによって実現できます。

実際には以下のような記述。

１．StrConv(Replace(Replace(“Ａ　　１００ａ”, “ “, “”), “　”, “”), vbNarrow) = “A100a”

２．StrConv(Replace(Replace(“A 100a”, “ “, “”), “　”, “”), vbNarrow) = “A100a”

１、２ともに結果は”A100a”（全部半角）となります。

スペースを削除するにはＴｒｉｍ関数もありますが、これでは、

３．StrConv(Trim(“Ａ　　１００ａ”), vbNarrow) = “A 100a”

４．StrConv(Replace(Replace(“A 100a”, “ “, “”), “　”, “”), vbNarrow) = “A 100a”

となります。 ３は文字列途中の半角空白は２個、４は文字列途中の半角空白は１個です。

Ｔｒｉｍ関数は文字列の前後の空白を削除するものなので、文字列の途中にある空白は削除できません。

Ｔｒｉｍ関数も使用することはありますが、今回のような文字列比較の時なんかはよくこのＲｅｐｌａｃｅ関数を使用しています。

※ちなみに、今回使用したＥｘｃｅｌはＥｘｃｅｌ２０００でした。

　　 Ｅｘｃｅｌの小技も今後記録していこうと思った今日この頃でした。

　　 じゃ、また。