[發問] 儲存格合併問題

an13755

各位大師好,小女子又來請教問題

工作表中每1列儲存格都要合併到該列的第1格

列數及格數皆不固定

合併的方式為=>A1空格B1空格C1空格D1....最後加上1個逗號

但是最後一列最後不加逗號

已經有做成範例,要把工作表a變成工作表b

拜託大家幫忙了,謝謝!! items.rar (1.72 KB)

下載次數: 16

2011-4-4 22:36

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

複製代碼

an13755

謝謝h大,大師的程式非常精簡,真是高手!

可惜最後1列仍有逗點在

這是大師給小妹的考題嗎?

anyway非常感謝!!

Hsieh

回復 3# an13755
沒注意到最後一列的需求

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

複製代碼

an13755

h大師,非常感謝您,問題已圓滿解決,謝謝!!