c_c_lai

¦^´_ 3# Michelle-W
¸Õ¸Õ¬Ý¡I

1. Sub Ex()
   
2.     Dim rng As Range
   
3. 
   
4.     For Each rng In Range([A2], [A2].End(xlDown))
   
5.         rng.Offset(, 5) = Split(Split(rng.Value & "//", "//")(1) & "/", "/")(0)
   
6.     Next
   
7. End Sub

½Æ»s¥N½X