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

[µo°Ý] Ãö©óÀx¦s®æ ¨â¬qªº°ÝÃD

[µo°Ý] Ãö©óÀx¦s®æ ¨â¬qªº°ÝÃD

¥»©«³Ì«á¥Ñ mark15jill ©ó 2012-3-14 09:33 ½s¿è

·Q½Ð°Ý ¦pªGÀx¦s®æ ¦³¨â¬q¤å¦r(¦pªþ¹Ï) ­n«ç¥ÎVBA§P§O ¤W¡B¤U¦æ¤å¦r??
(¥u·|¦X¦A¤@°_ ¤£·|¤À¶}= =")

¦pªþ¹Ï
attachimg]9978[/attachimg]

¸Ñ¹Ï.jpg (14.61 KB)

¸Ñ¹Ï.jpg

¦^´_ 1# mark15jill


    ´«¦æ¦r¤¸¬°Chr(10)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    Hsieh ¤j¤j §Úªº·N«ä¬O»¡
    ¦pªþ¹Ï    ¥kÃä²Ä¤@­Ó¬O ©m¦W(¦p ®üÀs¤ý)  ²Ä¤G­Ó¬O°Ï°ì(¦p®ü©³«°)  ­n«ç§â ­ì©lªº¤À¸Ñ¥X..QQ

TOP

¦^´_ 3# mark15jill

ar=split(a,chr(10))
a.offset(,2).resize(,ubound(ar)+1)=ar
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    «e¬q¬Ý±oÀ´
«á¬q ¥LÅã¥Ü«¬ºA¤£²Å..

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2012-3-14 11:23 ½s¿è

¦^´_ 5# mark15jill

   ³o­Ó­è¦n§Ú³Ìªñ¤]¦³³B²z¹L~  §Ú±Ä¥Îªº¬O³z¹L¤@¯ë¨ç¼Æªº³B²z¤è¦¡~ ¨Ó¼¶¼gµ{¦¡½X
    C1 = Left(Sheet3.Cells(­ì©l¸ê®ÆÀx¦s®æ), Application.Find(Chr(13), Sheet3.Cells(­ì©l¸ê®ÆÀx¦s®æ), 1) - 1)                                                                          '(´î¤£´î1¬Ý§A¸ê®Æ¤º®e,¦Û¦æ¼W´î)
    C2 = Mid(Sheet3.Cells(­ì©l¸ê®ÆÀx¦s®æ), Application.Find(Chr(10), Sheet3.Cells(­ì©l¸ê®ÆÀx¦s®æ), 1) + 1, Len(Sheet3.Cells(­ì©l¸ê®ÆÀx¦s®æ)))  '(¥[¤£¥[1¬Ý§A¸ê®Æ¤º®e,¦Û¦æ¼W¥[)
   'C1=¦W¦r
   'C2=°Ï°ì
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 6# hugh0620


   

t2.jpg

TOP

¦^´_ 5# mark15jill
Hsieh¶Wª©ªºµ{¦¡¨S¦³°ÝÃD,¥u¬O¨ú¥XªºÄæ¦ì¶¶§Ç»P§A­nªº¬Û¤Ï
  1. Sub SS()
  2. For Each a In Range([a1], [A65536].End(xlUp))
  3.   ar = Split(a, Chr(10))
  4.   a.Offset(, 2).Resize(, UBound(ar) + 1) = ar
  5. Next
  6. End Sub
½Æ»s¥N½X
1.gif

TOP

¦^´_ 8# register313


¸ÕÅç¥i¥H.. ·PÁ¦U¦ì¤j¤jªº¨ó§U..

ÄA­Ë¬O¨SÃö«Y.. «áÄò¦A½Õ¾ã´N¦n

¤§«e¬O¦hµ§¸ê®Æ­n²Î¦X¤@°_¡A²{¦b¬O­n¤À¸Ñ¥X¡C
¯u¬Oxxxxxxxxo   = ="

TOP

¦^´_ 7# mark15jill

³o¼Ë´N¥i¥H¤F~
chr(13)->chr(10)
¦]¬°§Úªº¸ê®Æ¬O±q¸ê®Æ®w¾É¥X¨Óªº~ ©Ò¥H·|¦³¤@­Óchr(13)ªº¦r¤¸~
©Ò¥H~ §A­n¦Û¦æ¥h¤F¸Ñ~ §A¸ê®Æªº¤º®e~ ¦A¥h½Õ¾ã¦¨¾A·íªºµ{¦¡½X~

Sub ex()
Cells(1, 3) = Left(Sheet1.Cells(1, 1), Application.Find(Chr(10), Sheet1.Cells(1, 1), 1) - 1)                                                 '(´î¤£´î1¬Ý§A¸ê®Æ¤º®e,¦Û¦æ¼W´î)
Cells(1, 4) = Mid(Sheet1.Cells(1, 1), Application.Find(Chr(10), Sheet1.Cells(1, 1), 1) + 1, Len(Sheet1.Cells(1, 1))) '(¥[¤£¥[1¬Ý§A¸ê®Æ¤º®e,¦Û¦æ¼W¥[)

End Sub
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD