提取单元格内多个日期方法

第一宝

由于休假日期是从系统中导出来的，格式如图，请大家帮忙看看有什么好的方法转化成人员对应日期的样子，鲜花感谢！！！

第一宝

1. Sub 正则()
   
2.     Dim reg As New RegExp
   
3.     Dim rg, ma, k, m
   
4.     rg = Range("B10")
   
5.     k = 9
   
6.     With reg
   
7.         .Global = True
   
8.         .Pattern = "(\d{1,2}\.\d{1,2})"
   
9.     Set ma = .Execute(rg)
   
10.     For Each m In ma
    
11.         k = k + 1
    
12.         Range("C" & k) = Val(m)
    
13.     Next m
    
14.     End With
    
15. End Sub

复制代码

被逼着去使用正则表达式来提取，提取结果还需要再做下处理下

shiruiqiang

============

无关岁月

副本休假日期提取.7z (17.19 KB, 下载次数: 5)

2024-1-17 23:12 上传

点击文件名下载附件

680926

Sub t()
Dim arr
Dim crr(1 To 100, 1 To 2)
arr = Range("a1").CurrentRegion
For i = 2 To UBound(arr)
    brr = Split(arr(i, 2), ",")
    For Each b In brr
    k = k + 1
        m = Split(b, ":")(0)
        n = Split(m, ".")
        rq = VBA.DateSerial("2023", n(0), n(1))
        crr(k, 1) = arr(i, 1)
        crr(k, 2) = rq
    Next
Next
[f2].Resize(k, 2) = crr
End Sub