甲方爸爸交过来的表,如何智能的把日期调整成正确的格式?

laynet

这个是甲方爸爸交过来的表,B列是日期

日期的格式很乱:

有的后面带时间
有的后面没带时间
有的只有年月没有日
有的在日期和时间之间多了一个点
有的前面有空格
有的中间有几个空格
有的前面有回车键
有的时间之间是中文的：号而不是英文的:号
有的日期之间是用中文、号分隔

我快疯了,有什么公式或者VBA或者正则表达式之类的可以批量把这个日期修正过来吗?
PS:我没资格叫甲方爸爸按格式写好日期,1.她是大领导不能说,2.她不会电脑.所以这个问题无法从根源上解决.






混乱的日期.rar (35.65 KB, 下载次数: 11)

2024-3-4 19:57 上传

点击文件名下载附件

morpheus126

1、正则可以，但是年月日目前截图看是有的，但是时分秒不齐，那截取到哪里为准呢
2、如果数据是逐个录入的，建议开发日历控件和录入窗体来让用户填写

limonet

关键字：￥￥￥

limonet

Sub limonet()
    Dim i%
    With CreateObject("vbscript.regexp")
        .Pattern = "(\s{1,})?(\d{1,})\.(\d{1,})\.(\d{1,}).*"
        For i = 2 To 1926
            Cells(i, "C") = .Replace(Cells(i, "B"), "$2-$3-$4")
        Next i
    End With
End Sub

limonet

Sub limonet()
    Dim i%
    With CreateObject("vbscript.regexp")
        .Pattern = "(\s{1,})?(\d{1,}).(\d{1,}).(\d{1,}).*"
        For i = 2 To 1926
            Cells(i, "C") = .Replace(Cells(i, "B"), "$2-$3-$4")
        Next i
    End With
End Sub

limonet

.Pattern = "(\s+)?(\d{4})\d?\.(\d+)\.(\d+).*"

tspliu

我怎么看不到论坛里的图片