[µo°Ý] Àx¦s®æ¦X¨Ö°ÝÃD

an13755

¦U¦ì¤j®v¦n,¤p¤k¤l¤S¨Ó½Ð±Ð°ÝÃD

¤u§@ªí¤¤¨C1¦CÀx¦s®æ³£­n¦X¨Ö¨ì¸Ó¦Cªº²Ä1®æ

¦C¼Æ¤Î®æ¼Æ¬Ò¤£©T©w

¦X¨Öªº¤è¦¡¬°=>A1ªÅ®æB1ªÅ®æC1ªÅ®æD1....³Ì«á¥[¤W1­Ó³r¸¹

¦ý¬O³Ì«á¤@¦C³Ì«á¤£¥[³r¸¹

¤w¸g¦³°µ¦¨½d¨Ò,­n§â¤u§@ªíaÅܦ¨¤u§@ªíb

«ô°U¤j®aÀ°¦£¤F,ÁÂÁÂ!! items.rar (1.72 KB)

¤U¸ü¦¸¼Æ: 16

2011-4-4 22:36

an13755

h¤j®v,«D±`·PÁ±z,°ÝÃD¤w¶êº¡¸Ñ¨M,ÁÂÁÂ!!

Hsieh

¦^´_ 3# an13755
¨Sª`·N¨ì³Ì«á¤@¦Cªº»Ý¨D

1. Sub ex()
   
2. For Each a In Range([A1], [A65536].End(xlUp))
   
3.    c = Range(a, a.End(xlToRight))
   
4.    If a.Row = [A65536].End(xlUp).Row Then mystr = "" Else mystr = ","
   
5.    a.Value = Join(Application.Transpose(Application.Transpose(c)), " ") & mystr
   
6. Next
   
7. End Sub

½Æ»s¥N½X

an13755

ÁÂÁÂh¤j,¤j®vªºµ{¦¡«D±`ºë²,¯u¬O°ª¤â!

¥i±¤³Ì«á1¦C¤´¦³³rÂI¦b

³o¬O¤j®vµ¹¤p©fªº¦ÒÃD¶Ü?

anyway«D±`·PÁÂ!!

Hsieh

¦^´_ 1# an13755

1. Sub ex()
   
2. For Each a In Range([A1], [A65536].End(xlUp))
   
3.    c = Range(a, a.End(xlToRight))
   
4.    a.Value = Join(Application.Transpose(Application.Transpose(c)), " ") & ","
   
5. Next
   
6. End Sub

½Æ»s¥N½X