不规则文本中提取日期

qweio000 · 发表于 2014-10-29 16:22

如：

处理结果：经核实,电话联系用户不上,用户反映在田林县利周乡无信号,后台核查用户占用田林利周高山基站,该基站2014/9/3012:30至2014/9/3019:10市电停电导致基站宕站,现已恢复,若客服联系上用户代为解释,谢谢,

10-2 09:26 联系用户，告知用户处理结果，用户称现不在该地，建议用户回到时关注，用户接受。8124

如：2014/9/30 12:30

2014-9-30 19:10

doitbest · 发表于 2014-10-30 16:41

Public Sub abc()
Dim ar, br(), rep, i, m
ar = Range([a2], [a65536].End(3))
ReDim br(1 To UBound(ar), 1 To 2)
Set rep = CreateObject("vbscript.regexp")
rep.Global = True
rep.Pattern = "2014[\d- :\\/－年月日点\r\n]{2,}"
For i = 1 To UBound(ar)
If rep.Execute(ar(i, 1)).Count = 1 Then
br(i, 1) = rep.Execute(ar(i, 1))(0)
ElseIf rep.Execute(ar(i, 1)).Count >= 2 Then
br(i, 1) = rep.Execute(ar(i, 1))(0)
br(i, 2) = rep.Execute(ar(i, 1))(1)
End If
Next
[b2].Resize(i - 1, 2) = br
End Sub

复制代码

doitbest · 发表于 2014-10-30 16:42

请参考附件

qweio000 · 发表于 2014-11-5 10:50

doitbest 发表于 2014-10-30 16:41

谢谢哈，非常感谢，就是不知道怎么在其它列上显示

doitbest · 发表于 2014-11-5 10:53

qweio000 发表于 2014-11-5 10:50
谢谢哈，非常感谢，就是不知道怎么在其它列上显示

点按钮就可以了

yjh_27 · 发表于 2014-11-6 17:05

统一时间格式及时间分段_自定义函数 6L
http://club.excelhome.net/thread-1095879-1-1.html

		自动登录	找回密码
密码			免费注册

[求助] 不规则文本中提取日期