返回列表 上一主題 發帖

如何將儲存格 由直轉橫

aoss98

帖子
9 
主題
3 
精華
0 
積分
17 
點名
0  
作業系統
window xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2010-7-27 
最後登錄
2014-2-5 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-17 23:27 | 顯示全部帖子

如何將儲存格 由直轉橫

如何將以下儲存格B欄資料轉寫在C欄並以 , 號分隔，這程式碼如何? 請各位高手指教，謝謝!!
A 欄             B欄           C欄
123456       34            34,36,38,40   
1245           36
675             38
457             40

1456            30          30,32
123              32

823              S             S,M,L
2628            M
939              L
收藏 分享

aoss98

帖子
9 
主題
3 
精華
0 
積分
17 
點名
0  
作業系統
window xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2010-7-27 
最後登錄
2014-2-5 
2#
發表於 2011-4-18 21:41 | 顯示全部帖子
謝謝 oobird!!
問題解決了, 但不理解這句  b = Range(Cells(i, 2), Cells(i, 2).End(4))
可否再指教，謝謝!!

TOP

aoss98

帖子
9 
主題
3 
精華
0 
積分
17 
點名
0  
作業系統
window xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2010-7-27 
最後登錄
2014-2-5 
3#
發表於 2011-4-19 21:35 | 顯示全部帖子
謝謝 GBKEE 指教， 當程式執行這句便中止 For Each C In Range("c:c").SpecialCells(xlCellTypeConstants).Areas
另外 如果只有一列資料，執行 oobird 程式碼便出現以下結果
A 欄             B欄           C欄
123456       34            34,36

1245           36

1456            30          30,32
123              32
應該結果是
A 欄             B欄           C欄
123456       34            34

1245           36            36

1456            30          30,32
123              32
請各位再指教，謝謝!!

TOP

aoss98

帖子
9 
主題
3 
精華
0 
積分
17 
點名
0  
作業系統
window xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2010-7-27 
最後登錄
2014-2-5 
4#
發表於 2011-4-20 00:09 | 顯示全部帖子
謝謝a8350070，修改後的程式冇問題，謝謝你指敎。

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題