关于日期格式转换的问题

cjc209

有这样 还不如录入时规范录入

excelkill

cjc209 发表于 2024-2-4 13:10
有这样 还不如录入时规范录入

是嫩，前期些伙计们这不就干了这么些事吗，没办法，后期会规范录入格式的

excelkill

刚看了老师们的留言，看来数据梳理难度确实很大，那位老师能帮我说一下我应该如何去做，最后才能统一梳理数据格式啊

无关岁月

……………………………………………………………………………………………………………………………………

无关岁月

…………………………………………………………………………………………………………

无关岁月

新建 Microsoft Office Excel 2007 工作表 (2).7z (18.72 KB, 下载次数: 11)

2024-2-4 13:48 上传

点击文件名下载附件

excelkill

无关岁月 发表于 2024-2-4 13:48

多谢这位老师，太厉害了，其他的情况我看看手工梳理把，非常感谢，鲜花送上

无关岁月

excelkill 发表于 2024-2-4 13:57
多谢这位老师，太厉害了，其他的情况我看看手工梳理把，非常感谢，鲜花送上

只有月份这种肯定是错的，需要手动修改，其他暂时没发现

准提部林

无关岁月 发表于 2024-2-4 13:48

代碼可抓出大部份了!!!!

可完善一下//
最好能取出"起/迄"年月, 而不是逐個年月,
單個月, 也應是同時列出 ,
否則若要計算累計月數, 無法判別~~

如 2023年1月-2023年5月、2023年8月
應列出 202301 ~ 202305 // 202308 ~ 202308

另外:2023年1月-5月  最好也能列出 202301 ~ 202305 而不是 202301 ~ 202405
又若有跨年:2022年10月-03月, 是否要列出 202210  ~ 202305

准提部林

'年/月..起止轉換...by.准提部林
1) 若是原202301格式, 不被轉換
2) 單個年月, 起止都相同

Sub Test_A1()
Dim Arr, Brr, i&, T$, A, B, Y%, M%, d1, d2, n%, C%
Arr = [f4:f20]
ReDim Brr(1 To UBound(Arr), 1 To 50)
For i = 1 To UBound(Arr)
    T = Replace(Arr(i, 1), " ", ""): n = 0: C = 0
    For Each A In Array("—", "~", "年", "月", "日", "-", "至", ".")
        B = Array(" ", " ", "/", "", "", " ", " ", "/")(n)
        T = Replace(T, A, B): n = n + 1
    Next A
    T = Application.Trim(T)
    For Each A In Split(T, "、")
        B = Split(A & " ", " "):  d1 = B(0):  d2 = B(1)
        If d1 Like "######" Then d1 = Format(d1, "0\/00")
        Y = Year(d1): M = Month(d1)
        If d2 Like "######" Then d2 = Format(d2, "0\/00")
        If IsNumeric(d2) Then d2 = Y - (Val(d2) < M) & "/" & d2
        If d2 = "" Then d2 = d1
        Brr(i, C + 1) = Format(d1, "yyyymm")
        Brr(i, C + 2) = Format(d2, "yyyymm")
        C = C + 2
    Next A
Next i
[g4].Resize(UBound(Brr), 50) = Brr
End Sub