Excel VB宏，如何使用正则表达式截取指定格式的字符串？

Question

原数据形式如下：
Sheet1.Cells(1, 1) = “2013-4-10：aaaaaaaaaaaaaa \r
2013-4-8：bbbbbbbbbbbbbbb\r
2013-4-5： ccccccccccccccccc”
也有可能只有一行，如“2013-4-10：aaaaaaaaaaaaaa”。

需要获取最新日期的内容“2013-4-10：aaaaaaaaaaaaaa”

想通过正则表达式获取，初稿如下：

Sub Button_Click()
Dim intEndIndex As Integer
Dim strProgress As String
Dim objRegExp As New RegExp

objRegExp.MultiLine = True

objRegExp.Pattern = "(\d{4}\-\d{1,2}\-\d{1,2}).*" - 设置日期的格式

strProgress = Sheet1.Cells(1, 1)
------------------------------
待补充代码, intEndIndex = ??? - 找出最新内容结束的位置
------------------------------

Sheet1.Cells(1, 2) = Left(strProgress, intEndIndex)

End Sub

谢谢！！

Answer 1

额，看你的例子，最新和第一行貌似没有区别啊？如果是这样子的话
Sub Button_Click()
Dim intEndIndex As Integer
Dim strProgress As String, str
Dim objRegExp As New RegExp

objRegExp.MultiLine = True
objRegExp.Global = True
objRegExp.Pattern = "(\d{4}\-\d{1,2}\-\d{1,2}).+$" '设置日期的格式

strProgress = Sheet1.Cells(1, 1)

If objRegExp.Test(strProgress) Then
str = objRegExp.Execute(strProgress)(0).Value
End If
MsgBox str
End Sub

没必要用left来获取，vba正则本身就能得到完整的匹配项。
如果日期排列不一样的话，就要换一种方式了