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

[µo°Ý] §PÂ_Àx¦s®æ¤º¦³´X­Ó¦r¤¸¡A¨Ã¥H¨â­Ó¬°³æ¦ì±Æ¦C

  1. Sub yy()
  2.     Dim x$, w$, i%, j%
  3.     For j = 1 To [b65536].End(3).Row
  4.     w = Mid(Cells(j, 2), 3)
  5.     For i = Len(w) To 2 Step -2
  6.    x = IIf(x = "", Mid(w, i - 1, 2), x & "-" & Mid(w, i, 2))
  7.     Next
  8.     Cells(j, 3) = x
  9.     x = ""
  10.     Next
  11. End Sub
½Æ»s¥N½X

TOP

¸g¹L´ú¸Õ
¥L·|Åܦ¨
0x1234   43-23

³o¬O§_¦³Àô¸`¤W¦³°ÝÃD??
a703130 µoªí©ó 2012-3-13 11:55



­×¥¿¤@¤U

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD