2回以上連続する半角または全角のスペースを正規表現で表すと

Question

2連続以上の半角または全角スペースをVBAの正規表現で表すとどうなりますか？
わかる方がいたら教えてください。

Comments

[yambejp]

> 2連続以上の半角または全角スペース

あいまいです
１個の半角スペース+1個の全角スペースはヒットするのでしょうか？

Answer 1

Dim str As String
str = "a  b"
Dim reg As Object
Set reg = CreateObject("VBScript.RegExp")
reg.pattern = "[ 　]{2}"
MsgBox reg.test(str)

上記、半角スペースまたは全角スペースが連続しているか
半角スペース2個または全角スペース２個で半角＋全角１個ずつはヒットしないなら

reg.pattern = "([ 　])\1"

※修正しました