批量提取字符串中日期

喝饼子

求教大佬们


我有一个交易记录文档，数据量挺大的，几万行，有一列是记录的交易时间，如图所示的格式，我想只保留日期部分，并转换成固定的格式（yyyy--mm-dd）
我用for each 挨个提取左边的日期，但是效率太低，要卡很久，要怎么才能提高效率呢

xiaoyuemt

数据格式比较规范，而且就两个月的，直接用公式就行：
=DATE(MID(A2,9,4),IF(LEFT(A2,3)="Nov",11,12),MID(A2,5,2))

天上的小云云

1. Sub a()
   
2.     Range("b:b").ClearContents
   
3.     ar = Range("a1").CurrentRegion
   
4.     ReDim br(1 To UBound(ar), 1 To 1)
   
5.     For i = 2 To UBound(ar)
   
6.         t = Split(Split(ar(i, 1), ",")(0), " ")
   
7.         t1 = Split(ar(i, 1), " ")(2)
   
8.         br(i, 1) = t(1) & "-" & t(0) & "-" & t1
   
9.     Next
   
10.     Range("b:b").NumberFormatLocal = "d-mmm-yy"
    
11.     Range("b1").Resize(UBound(br), 1) = br
    
12. End Sub
    
13. 
    

复制代码

3190496160

Sub 提取日期()
Application.ScreenUpdating = False
Dim ar As Variant
With ActiveSheet
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:b" & r)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            rr = Split(ar(i, 1), " ")
            ar(i, 2) = Format(rr(0) & " " & rr(1) & rr(2), "yyyy-m-d")
        End If
    Next i
    .[b1].Resize(UBound(ar), 1) = Application.Index(ar, 0, 2)
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

Transaction.rar (375.3 KB, 下载次数: 8)

2022-12-28 18:12 上传

点击文件名下载附件

喝饼子

感谢大佬们的帮助，已经完美解决

gwjkkkkk

参与 一下，请参考。。。

nicleyuan

Sub 批量提取字符串中日期()
    [a:a].TextToColumns Destination:=[b1], DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 4), Array(12, 9))
End Sub

nicleyuan

1232322

MID(A2,4,3)&"-"&LEFT(A2,3)&"-"&MID(A2,11,2)
笨方法，好像也可以