返回列表 上一主題 發帖

[發問] 儲存格合併問題

an13755

帖子
20 
主題
7 
精華
0 
積分
50 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
女 
註冊時間
2010-7-16 
最後登錄
2022-5-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-4 22:37 | 只看該作者

[發問] 儲存格合併問題

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

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

列數及格數皆不固定

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

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

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

拜託大家幫忙了,謝謝!! items.rar (1.72 KB)
收藏 分享
an

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
277  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

an13755

帖子
20 
主題
7 
精華
0 
積分
50 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
女 
註冊時間
2010-7-16 
最後登錄
2022-5-27 
3#
發表於 2011-4-5 13:33 | 只看該作者
謝謝h大,大師的程式非常精簡,真是高手!

可惜最後1列仍有逗點在

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

anyway非常感謝!!
an

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
277  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

an13755

帖子
20 
主題
7 
精華
0 
積分
50 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
女 
註冊時間
2010-7-16 
最後登錄
2022-5-27 
5#
發表於 2011-4-5 21:48 | 只看該作者
h大師,非常感謝您,問題已圓滿解決,謝謝!!
an

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題