- ©«¤l
- 17
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Tinwan
- µù¥U®É¶¡
- 2011-4-9
- ³Ì«áµn¿ý
- 2018-7-6
|
[µo°Ý] ¦p¦ó¥i¥H§ó¦³®Ä²v§ó§ïÀx¦s®æ¤ºÈªº®æ¦¡
°ÝÃD¤@
Á`¦@¦³6¸U¦hµ§¸ê®ÆnRUN¡A¬O§_¦³§ó¦nªº¤è¦¡
NR = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
For i = 4 To NR
Cells(i, 1).Value = VBA.Format$(Trim(Cells(i, 1).Value), "'" & "00000000")
Next
°ÝÃD¤G
¸ê®Æ¦bABCÄæ¨Ñ4¸Uµ§
»Ý¿z¿ï¯S©w¸ê®Æ(¤£«½Æ)¶K¨ìE-G H-J ......¦³¥i¯à±q´_6-7¦¸
§Ún¦p¦ó¼g,¤§«e·Q¥Î°j°é¼g¥¹¬O¦³¤@ÂI½ÆÂø¡A½Ð¤j®aÀ°§Ú·Q·Q
|
|