½Ð°Ý¦U¦ì«e½ú
¦pÃD¡AÁ|Ó¨Ò¤l
¨Ó·½ ¿é¥X
B C
1 0x0753 53-07
2 0x1234 34-12
3 0x0900 00-09
4 0x123456 56-34-12
¤U±«ü³æ¤@Àx¦s®æ®É¡G- Dim x,i As Integer
- x = (Len(Mid(Cells(1, 2), 3)))/2 'pºâ¦@¦³´XÓ¨âÓ¤@²Õ
- For i = 1 To x 'n°µªº¦¸¼Æ
- n½Ð«e½úÀ°¦£ªº¦a¤è
- Next
½Æ»s¥N½X §Ú©Ò¯à·Q¨ìªº¦a¤è¦p¤W¡G¤£ª¾¹D°j°é¤ºÀ³¸Ó«ç»ò°µpºâ
¦pªG«e½ú¦³¨ä¥L§ó²³æªº¤è¦¡¡A¤]½Ð¤£§[«ü±Ð
ÁÂÁÂ |