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

t8899

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

¤U¸ü¦¸¼Æ: 6

2017-6-22 21:26

Hsieh

¦^´_ 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

t8899

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

ÁÂÁ«ü¾É