½Ð°Ý¦p¦ó¦bAÄæ¦r¦ê¤¤,¨ú¥X¤é´Á(Åã¥Ü©óBÄæ)

leiru

½Ð°Ý¦p¦ó¦bAÄæ¦r¦ê¤¤,¨ú¥X¤é´Á(Åã¥Ü©ó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

½Æ»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

­ã´£³¡ªL

°}¦C(¤TÁä¿é¤J)¤½¦¡:
=MID(LEFT(A2,MATCH(1,-MID(A2,ROW($1:$19),1))),FIND("/",A2)-3,12)

leiru

¦^´_ 4# ­ã´£³¡ªL


    ÁÂÁÂ