register313

¦^´_ 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

¤U¸ü (66.21 KB)

2012-3-14 11:39

mark15jill

¦^´_ 6# hugh0620


   

¤U¸ü (13.17 KB)

2012-3-14 11:37

¤U¸ü (107.85 KB)

2012-3-14 11:37

hugh0620

¦^´_ 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=°Ï°ì

mark15jill

¦^´_ 4# Hsieh


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

Hsieh

¦^´_ 3# mark15jill

ar=split(a,chr(10))
a.offset(,2).resize(,ubound(ar)+1)=ar

mark15jill

¦^´_ 2# Hsieh


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

Hsieh

¦^´_ 1# mark15jill


    ´«¦æ¦r¤¸¬°Chr(10)