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

½Æ»s¥N½X

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

½Æ»s¥N½X