ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

¦^´_ 1# leiru

¦p¦ó¨ú¥X¤é´Á.zip (6.7 KB)

joyce

TOP

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

TOP

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

TOP

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


    ÁÂÁÂ
joyce

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD