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

¸ê®Æ­åªR(TextToColumns)¹ï¶H¥i¥H¤£¬OÀx¦s®æ¶Ü?

¦^´_ 2# Hsieh

¦ÓSplit¤èªk«áªº°}¦C¤¸¯À¡A¨ä¸ê®Æ«¬ºA«h¤@«ß¬°String(¦r¦ê)




¦p¤W¹Ï¡A¦ü¥G¨Ï¥ÎSplit«ábbÁÙ¬O¦r¦ê«¬ºA¦Ó¤£¬O°}¦C?
¥B¨Ï¥Îval¤]¤£ªk±N¨ä§ï¦¨¼Æ¦r«¬ºA¡A­n´«¤@­ÓÅܼƤ~¯à¥Îval§ï¦¨¼Æ¦r«¬ºA¡C
ÁöµM»¡¦r¦ê¤]¯à°µ¼Æ¾Ç¹Bºâ´N¬O¤F¡C

TOP

¦^´_ 2# Hsieh


ÁÂÁÂH¤j¡AÀ³¸Ó»¡§Ú·|¿é¤J¤@µ§¸ê®Æ¡A¦¹¸ê®Æ¥i¯à¦³¨âºØ§ÎºA¡A²Ä¤@ºØ¬O¯Â¼Æ¦r¡Fex:1 or 5 ...¡A²Ä¤GºØ¬O¦r¦ê¡Fex:1,3,5¡A
¦pªG¸ê®Æ¬O¦r¦êªº¸Ü§Ú´N¥Î§â¥¦¤À³Î«á¥á¶i°}¦C¸Ì¡A­ì¥»§Ú·|§â¥¦¥á¤J¬Y­ÓÀx¦s®æ¤¤¡A¦b¨Ï¥Î¸ê®Æ­åªR(TextToColumns)°µ¤À³Î«á¦AŪ¶i°}¦C¤¤¡A
¤§«á­pºâ´Nª½±µ¥Î°}¦C¡A¤£·|¨Ï¥Î¨ìÀx¦s®æ¡C
²{¦b¨Ï¥ÎSplit´N¥i¥H¤£¥Î¸ê®Æ­åªR¸òÀx¦s®æ¹F¨ì¬Û¦P®ÄªG¤F!ÁÂÁ¡C

TOP

¦^´_ 1# chiata

°}¦C¨Ã¤£»Ý­n­åªR§Y¥iª½±µ¼g¤JÀx¦s®æ¤º
­Y§Aªº·N«ä¬O­n±N¥]§t¯S©w¤À¹j²Å¸¹ªº¤@ºû°}¦C¤¤ªº°}¦C¤¸¯À¤À¹j«áÅܦ¨¤Gºû°}¦C¼g¤JÀx¦s®æ
¨º»ò¥²¶·§Q¥Î°j°é¡A±N­ì°}¦C¨C­Ó¤¸¯À¨Ï¥ÎSplit¤èªk¤À³Î«á¼g¤J
­Y¤À³Î«áªº¤Gºû°}¦C¡A¨ä¨C¤@¦Cªº¤¸¯À­Ó¼Æ¤£¦P¡A«h¥²¶·¤@¦C¤@¦Cªº¼g¤J
­Y¤À³Î«áªº¤Gºû°}¦C¡A¨ä¨C¤@¦Cªº¤¸¯À­Ó¼Æ¬Û¦P¡A«h¥i¥H¤@¦¸ªº±N¾ã­Ó¤Gºû°}¦C³z¹L2¦¸ªºApplication.Transpose¼g¤J
¦ÓSplit¤èªk«áªº°}¦C¤¸¯À¡A¨ä¸ê®Æ«¬ºA«h¤@«ß¬°String(¦r¦ê)
¤j­P¤Wªºµ{§Çµ²ºc¦p¤U
For i=Lbound(a) to Ubound(a) '­ì°}¦C°j°é
   ar=Split(a(i),",")  '³rÂI¤À³Î°}¦C¤¸¯À¡A²£¥Í·sªº¤@ºû°}¦C
   Cells(i+1,1).Resize(,Ubound(ar)+1)=ar  '±N¤@ºû°}¦C¼g¤J
Next
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD