【VBA】【正規表現】

質問

２３歳OLです。

VBAと正規表現についての質問です。

▼やりたいこと
================================================
1 | 0 |1234567890 | 2014-2-22 22:22:22.06+09
という数列から
1234567890　という数字のみを抜き出したいです。
正確には２本目の|と３本目の|の間に入っている様々な数字です。
※桁数が固定されていません。
================================================

▼実際書いたコード
================================================
Sub Sample2()
Dim RE, strPattern As String, i As Long, msg As String, reMatch
Set RE = CreateObject("VBScript.RegExp")
strPattern = "☆この部分☆"
With RE
.Pattern = strPattern
.IgnoreCase = True
.Global = True
For i = 1 To 10
Set reMatch = .Execute(Cells(i, 1))
If reMatch.Count > 0 Then
msg = msg & reMatch(0).Value & vbCrLf
End If
Next i
End With
MsgBox msg
Set reMatch = Nothing
Set RE = Nothing
End Sub
================================================
☆この部分に☆に何を入れればよいでしょう？
ご指導よろしくおねがいします。

回答No.2

imogasi · ベストアンサー

#1のご回答と同アイデアですが、
ＲｅｇＥｘｐを使うまでもないと思う。
Sub test01()
’MsgBox Range("A100").End(xlUp).Row
lrow = Range("A100").End(xlUp).Row
For i = 1 To lrow
a = Split(Cells(i, 1), "|")
MsgBox a(2)
Next
End Sub
ーーー
区切った文字列の３番めを、繰り返しのコードで探索する必要がないところが違い。
簡略化するために単純な例にしているが、例をもう少し詳しく文章で表現すべきだ。
私の回答が、使えないばあいは、すぐ作れる（あり得る）から。

回答No.1

notnot

正規表現よりSplit関数を使った方が良いですね。
Sub Sample2()
Dim i As Long, msg As String
Dim x() As String

For i = 1 To 10
x = Split(Cells(i, 1), "|")
If UBound(x) >= 2 Then
msg = msg & Trim(x(2)) & vbCrLf
End If
Next i

MsgBox msg
End Sub