由于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中测试通过。
各位，有其它更好的方法吗？
,
