－ちょっと使えるネタを紹介－
Excel VBAで文字列を比較する方法についてご紹介します。文字列を単純に比較するのは簡単です。ですが、大文字や小文字、全角、半角が文字列に混ざっていると比較が難しくなります。StrCompを使うと、文字の種類を区別せず、簡単に比較ができます。
この記事では、文字列を比較する比較演算子とStrCompについてご紹介します。
文字列を単純に比較するのは簡単です。ですが、全角や半角、大文字、小文字が混ざっていると、比較ができません。
そんなときは、全角や半角、大文字、小文字を区別せずに比較する方法が使えます。
大文字、小文字、半角、全角を区別することなく比較する方法を、比較演算子を使った場合とStrCompで説明していきます。
この記事で紹介すること
目次
初めに、この記事でポイントとなるVBAコードを記載しておきます。
'比較演算子を使って比較 '一致する場合 If a = b Then '一致しない場合 If a <> b Then '大文字の半角に統一する a = StrConv(UCase("ＡＢＣ"), vbNarrow) 'StrCompを使って比較 '一致する場合 If StrComp(a, b) = 0 Then '一致しない場合 If StrComp(a, b) <> 0 Then '全角と半角、大文字と小文字、カタカナとひらがなを区別しない If StrComp(a, b, vbTextCompare) = 0 Then
では、解説していきます。
Excel VBAで、文字列を比較する簡単な方法として、比較演算子があります。
比較演算子は、一致する場合に使う『=』と不一致の場合に使う『<>』があります。
文字列が一致するかを判定するには、比較演算子『=』を使えばできます。
文字列『ABC』と『ABC』が一致するかを比較するVBAコードです。
Sub TEST1()
a = "ABC"
b = "ABC"
'一致する場合
If a = b Then
MsgBox "一致します"
End If
End Sub
VBAの実行結果です。
結果は、もちろん『一致します』となります。
文字列が一致しないかを判定する比較演算子は『<>』となります。
簡単な例として、文字列『ABC』と『abc』が一致しないかを比較するVBAコードを作ってみます。
Sub TEST2()
a = "ABC"
b = "abc"
'一致しない場合
If a <> b Then
MsgBox "一致しません"
End If
End Sub
VBAの実行結果です。
結果は、『一致しません』となります。
文字列を比較する際に、大文字を小文字を区別したくないときは、『Ucase』を使うといいです。
文字列『ABC』と『abc』を大文字と小文字を区別しないで比較してみます。
Sub TEST3()
a = UCase("ABC") '大文字に変換する
b = UCase("abc") '大文字に変換する
'一致する場合
If a = b Then
MsgBox "一致します"
End If
End Sub
VBAコードを実行してみます。
結果は、『一致します』となります。
大文字と小文字を区別したくないのであれば、比較する両方の文字列を、大文字もしくは小文字に統一しましょう。
全角と半角を区別しないで文字列を比較するには、『StrConv』を使えばできます。
文字列『ＡＢＣ』と『ABC』を全角と半角を区別しない比較してみます。
Sub TEST4()
a = StrConv("ＡＢＣ", vbNarrow) '半角に変換する
b = StrConv("ABC", vbNarrow) '半角に変換する
'一致する場合
If a = b Then
MsgBox "一致します"
End If
End Sub
実行してみます。
結果は、『一致します』となりました。
ちょっと組み合わせ技です。
全角と半角、そして、大文字と小文字も区別しないで比較するには、『Ucase』と『StrConv』を組み合わせます。
文字列『ＡＢＣ』と『abc』を全角と半角、大文字と小文字を区別しないで比較するVBAコードです。
Sub TEST5()
a = StrConv(UCase("ＡＢＣ"), vbNarrow) '大文字の半角に変換
b = StrConv(UCase("abc"), vbNarrow) '大文字の半角に変換
'一致する場合
If a = b Then
MsgBox "一致します"
End If
End Sub
結果をみてみます。
結果は、『一致します』となりました。
『ＡＢＣ』と『abc』ってほぼ別ものですけどね。文字の種類を区別しないで比較ができます。
Excel VBAで文字列を比較するもう一つの方法として、『StrComp』があります。
StrCompの入力は、
『数字 = StrComp(文字列,文字列)』
とすれば、文字列を比較できます。
返り値の『数字』に入る値は、
のようになります。
では、文字列が一致する場合の例でStrCompの動きをみてみます。
文字列『ABC』と『ABC』をStrCompで比較するVBAコードです。
Sub TEST6()
a = "ABC"
b = "ABC"
'一致する場合
If StrComp(a, b) = 0 Then
MsgBox "一致します"
End If
End Sub
結果です。
結果は、『一致します』となります。
文字列『ABC』と『abc』をStrCompで比較するVBAコードです。
Sub TEST7()
a = "ABC"
b = "abc"
'一致しない場合
If StrComp(a, b) <> 0 Then
MsgBox "一致しません"
End If
End Sub
結果です。
結果は、『一致しません』となります。
文字列が一致しない場合は、StrCompは『0以外の値』を返すので、条件『<> 0』が成り立ちます。
StrCompで文字列を比較する際に、全角と半角、大文字と小文字を区別しないで比較することができます。
あと、次のやり方を使うと、カタカナとひらがなも区別しないで比較できます。
やり方は、StrCompに次のように入力します。
『StrComp(文字列, 文字列, vbTextCompare)』
3つ目の引数に『vbTextCompare』を入力するだけです。
大文字と小文字を比較してみます。
文字列『ABC』と『abc』を文字種類を区別せずに、比較するVBAコードです。
Sub TEST8()
a = "ABC"
b = "abc"
'半角と全角、大文字と小文字、カタカナとひらがなと区別せずに比較
If StrComp(a, b, vbTextCompare) = 0 Then
MsgBox "一致します"
End If
End Sub
結果です。
結果は、『一致します』となりました。
全角と半角を比較してみます。
文字列『ＡＢＣ』と『ABC』を文字種類を区別せずに、比較するVBAコードです。
Sub TEST9()
a = "ＡＢＣ"
b = "ABC"
'半角と全角、大文字と小文字、カタカナとひらがなと区別せずに比較
If StrComp(a, b, vbTextCompare) = 0 Then
MsgBox "一致します"
End If
End Sub
結果です。
結果は、『一致します』となりました。
全角＋大文字と半角＋小文字を比較してみます。
文字列『ＡＢＣ』と『abc』を文字種類を区別せずに、比較するVBAコードです。
Sub TEST10()
a = "ＡＢＣ"
b = "abc"
'半角と全角、大文字と小文字、カタカナとひらがなと区別せずに比較
If StrComp(a, b, vbTextCompare) = 0 Then
MsgBox "一致します"
End If
End Sub
結果です。
結果は、『一致します』となりました。
StrCompで比較するとVBAコードがシンプルになります。
StrCompの3つ目の引数に『vbTextCompare』を入力すると、ひらがなとカタカナも区別せずに、比較することができます。
文字列『あいう』と『アイウ』を文字種類を区別せずに、比較してみます。
Sub TEST11()
a = "あいう"
b = "アイウ"
'半角と全角、大文字と小文字、カタカナとひらがなと区別せずに比較
If StrComp(a, b, vbTextCompare) = 0 Then
MsgBox "一致します"
End If
End Sub
結果です。
結果は、『一致します』となります。
全角、半角、大文字、小文字、ひらがな、カタカナを区別せずに比較したい場合は、『StrComp』を使いましょう。
コードがシンプルになります。
この記事では、文字列を比較する比較演算子とStrCompについてご紹介しました。
文字列を単純に比較するのは簡単です。しかし、全角や半角、大文字、小文字が混ざっていると、比較ができなくなってしまいます。
そんなときは、全角や半角、大文字、小文字を区別せずに比較する方法が使えます。
大文字や小文字だけでなく、全角や半角も混ざっているときは、『StrComp』を使うとコードがシンプルになります。
参考になればと思います。最後までご覧くださいましてありがとうございました。
関連する記事から探す
カテゴリから見たい項目を探すと便利ですよ。
↓キーワードを入力する