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

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