文字列内の数字パターンを見つけるためにVBAが優れています

Question

文字列内に6桁の数字を見つけて次の列にコピーするコードを書くことができましたが、パターンを持つ数字を見つける検索を追加したいと考えています##-####とコピーそれは次の列、下の例に：

誰かが私を助けることができますか？

Sub Pull_6_Digit_Numbers_From_String() 


    Dim r As Range, i As Long 
    With CreateObject("VBScript.RegExp") 
     .Global = True 
     .Pattern = "\b\d{6}\b" 
     For Each r In Range("A1", Range("A" & Rows.Count).End(xlUp)) 
      If .test(r.Value) Then 
       For i = 0 To .Execute(r.Value).Count - 1 
        r(, i + 2).Value = .Execute(r.Value)(i) 
       Next 
      End If 
     Next 
    End With 

Answer 1

あなたの現在のパターン、\b\d{6}\b、再びそれから6つの連続した数字と単語の境界、ワード境界に一致します。したがって、text 123456 hereには123456が一致します。 12-3456も一致させるには、パターンを2桁と4桁のサブパターンに分割し、オプションの-パターン-?を挿入することができます。

\b\d{2}-?\d{4}\b 

はregex demo

-?マッチ1または0ハイフンを参照してください、そして\d{4}と\d{2}はすべて、すべてのワード境界間の6桁の数字と一致します。