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

¤å¦rÂà´«¦¨¼Æ­È

¤å¦rÂà´«¦¨¼Æ­È

½Ð°Ý¦p¦ó§âÀx¦s®æ¤º¹³³o¼Ë
5,000,000  §t³r¸¹ªº¤å¦r
Âà´«¬°¼Æ­È
¤p¤Hª«

¦^´_ 1# jasonwu0114

§Ú¬O¥Î¿ý»s¥¨¶°ªº¤è¦¡
  1. Sub TEST()
  2.     Range("A:A").NumberFormatLocal = "0.00_);[¬õ¦â](0.00)"
  3. End Sub
½Æ»s¥N½X
³o¼ËÀx¦s®æ®æ¦¡´N§ï¬°¼Æ­È¤F

TOP

©êºp¸É¥R§¹¾ã¸ê®Æ
¸ê®Æ¥ÑPDFÂনEXCELÀÉ
¤u§@ªí¤ºÀx¦s®æ¤º¸ê®Æ®æ¦¡³£¬O¤å¦r
·Q§âRANGE("G:G")¸ê®ÆÂà´«¦¨¼Æ­È«á¦A±Æ§Ç

10507.rar (14.17 KB)

¤p¤Hª«

TOP

¥Î
.NumberFormatLocal = "0.00
¤è¦¡¦n¹³¨S¥Î
ÁÙ¬O­n¥Î
.TextToColumns
ªº¤è¦¡??
ÁÙ¬O¨ä¥L¤è¦¡??
¤p¤Hª«

TOP

¦^´_ 4# jasonwu0114

[G:G].TextToColumns Destination:=[G1], DataType:=xlFixedWidth¡@

­åªR­n¥Î¡e©T©w¼e«×¡f

©Î¨Ï¥Î¡e¨ú¥N¡f¡G
­Y¾ãÄæ³£§t¦³","¤d¤À¦ì¡A´N±N³r¸¹¨ú¥N¬°ªÅ
­Y¾ãÄæ¼Æ¦r³£§t¦³¢¯¡A´N±N¢¯¨ú¥N¬°¢¯

¥H¤W«e´£¡G¢ÕÄ楲¶·¥ý³]¬°¡e³q¥Î®æ¦¡¡f

TOP

¥Ø«e·Q¨ì¥Î¥H¤U¤è¦¡³B²z
For Each rng In Range("g:g")
  rng.Value = Replace(rng, ",", "")
Next

¦³§ó¦nªº¤èªk¶Ü??
¤p¤Hª«

TOP

»¡¤@­Ó¤£¬OVBAªº,¿ï¾Ü­nÂন¼Æ¦rªº¨º¤@¦C,µM«á¥ªÃäÀ³¸Ó·|¥X²{¤@­Ó·P¹Ä¸¹,µM«áÂIÀ»¿ï¾Ü Âà´«¦¨¼Æ¦r

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD