標題: [發問] 儲存格合併問題 [打印本頁]

---

作者: an13755    時間: 2011-4-4 22:37     標題: 儲存格合併問題

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

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

列數及格數皆不固定

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

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

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

拜託大家幫忙了,謝謝!![attach]5235[/attach]

---

作者: Hsieh    時間: 2011-4-5 09:52

回復 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    時間: 2011-4-5 13:33

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

可惜最後1列仍有逗點在

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

anyway非常感謝!!

---

作者: Hsieh    時間: 2011-4-5 15:13

回復 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    時間: 2011-4-5 21:48

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)