vbaの正規表現で前方・後方任意0文字以上での不一致

Question

以下の正規表現.●●●.でTrueを返すことを期待しているのですが
falseとなってしまいます。Replaceを置いているのは、B列の値は末尾に
半角スペースが含まれるからです。
週末悩んでも解決しなかったため、ご相談させて頂きたく投稿いたしました。

アドバイスを頂けたら、幸いです。

A	B
あおば銀行株式会社	あおば銀行

前略
Set reg = CreateObject("VBScript.RegExp")
　　reg.Pattern = "." & Replace(sheetpiyo.Cells(B1).Value, " ", "") & "."

    If reg.Test(sheetpiyo.Cells(A1).Value) = True Then
    pts.Cells(C1) = "曖昧一致します"
　　End If
後略

Answer 1

このケース（指定した文字列が、対象文字列の一部である）では、正規表現を使わず、Instr関数を使うのが良いです。

Comments

[ExcelVBAer]

自分もInstrが適当だと思います。

難しい正規表現が好きな方が多いようですねぇ。。。

[TanakaHiroaki]

私もInstrとReplaceが、見落としが起きにくいので良いと思います。

Answer 2

「.」は一文字を表します。
「.あおば銀行」は、「ああおば銀行」「ばあおば銀行」などにマッチします。
「あおば銀行.*」ではないですか？

週末潰して悩むならその時間を正規表現について調べることに費やす方が早く解決します。

Comments

[maguzo]

ご教示有難うございます。"."で0個以上の任意の文字と誤解しておりました。
仰るとおり、正規表現そのものをよく調べるべきでした。
また、株式会社あおば銀行の可能性もあるため、.*あおば銀行.*
という正規表現で実行いたしました。
宜しくお願い申し上げます。

[Zuishin]

このような単純な検索の場合は「あおば銀行」で「株式会社あおば銀行本店」にマッチします。
また店名にメタ文字が含まれている場合があるので、正規表現の中にそうでない文字列を含める場合はエスケープするのが鉄則です。
エスケープしないと、例えば「*** Flowers ***」という会社名が仮にあった時に困ります。
これをエスケープして「*** Flowers ***」に変換しなければいけません。