請問如何在A欄字串中,取出日期(顯示於B欄)

leiru

請問如何在A欄字串中,取出日期(顯示於B欄)

leiru

回復 1# leiru

ikboy

UDF = zdate(a2)

1. Function zdate(rng As Range)
   
2. With CreateObject("vbscript.regexp")
   
3.     .Pattern = "\d{3}/\d{1,2}/\d{1,2}-?\d?"
   
4.     zdate = .Execute(rng.Value)(0)
   
5. End With
   
6. End Function

複製代碼

1. Sub datez()
   
2. Dim ar
   
3. ar = Range("a2:a" & [a1048576].End(3).Row).Value
   
4. With CreateObject("vbscript.regexp")
   
5.     .Pattern = "\d{3}/\d{1,2}/\d{1,2}-?\d?"
   
6.     For i = 1 To UBound(ar)
   
7.         ar(i, 1) = .Execute(ar(i, 1))(0)
   
8.     Next
   
9. End With
   
10. [b2].Resize(i - 1) = ar
    
11. End Sub

複製代碼

准提部林

陣列(三鍵輸入)公式:
=MID(LEFT(A2,MATCH(1,-MID(A2,ROW($1:$19),1))),FIND("/",A2)-3,12)

leiru

回復 4# 准提部林


    謝謝