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

[µo°Ý] ¨ú¦r¦êºÃ°Ý

¦^´_ 3# Michelle-W
¸Õ¸Õ¬Ý¡I
  1. Sub Ex()
  2.     Dim rng As Range

  3.     For Each rng In Range([A2], [A2].End(xlDown))
  4.         rng.Offset(, 5) = Split(Split(rng.Value & "//", "//")(1) & "/", "/")(0)
  5.     Next
  6. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD