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

¾ãÄæ¥ÎVB §ï¤é´Á®æ¦¡

¾ãÄæ¥ÎVB §ï¤é´Á®æ¦¡

106¦~07¤ë03¤é ===>  2017/7/3
1.rar (8.87 KB)

¦^´_ 1# t8899
  1. Sub ex()
  2. Dim a As Range
  3. With Columns("A")
  4.   .Replace "¦~", "/"
  5.   .Replace "¤ë", "/"
  6.   .Replace "¤é", ""
  7.   For Each a In .SpecialCells(xlCellTypeConstants)
  8.     a.NumberFormat = "yyyy/mm/dd"
  9.     If Len(Split(a, "/")(0)) = 3 Then a.Replace Val(a), 1911 + Val(a)
  10.   Next
  11. End With
  12. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_  t8899
Hsieh µoªí©ó 2017-6-23 10:57


ÁÂÁ«ü¾É

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD