提取一段字符串（快速提取字符串中的时间）

由于Excel表格在用户编辑的时候，常常会存在不规范的操作，比如符号全角和半角之间的问题：，下面我们就来说一说关于提取一段字符串?我们一起去了解并探讨一下这个问题吧!

提取一段字符串

由于Excel表格在用户编辑的时候，常常会存在不规范的操作，比如符号全角和半角之间的问题：

Cells(1,1)="自from 8:00 至to18：00"

其中":"又有半角，又有全角，提取时相对较为麻烦。

我的思路是提取所有数字，然后把它们转换成时间格式。

Set b = CreateObject("scripting.dictionary") x = 1 a1 = Cells(1, 1) With CreateObject("VBSCRIPT.REGEXP") .Global = True .Pattern = "\d " For Each a In .Execute(a1) b.Add x, a.Value x = x 1 Next End With starttime = Format(b(1) & ":" & b(2), "hh:mm") endtime = Format(b(3) & ":" & b(4), "hh:mm")

以上代码在VBA中测试通过。

各位，有其它更好的方法吗？