帖子: 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

樓主熱帖

man65boy

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

9^#

發表於 2011-4-23 08:46 | 只看該作者

本帖最後由 Hsieh 於 2011-4-23 09:08 編輯

函數的參考
C1=LEFT(B1&"，"&B2&"，"&B3&"，"&B4&"，"&B5&"，"&B6&"，"&B7&"，"&B8&"，"&B9&"，"&B10,SUM(LEN($B$1:$B$10),COUNTA($B$1:$B$10),-1))

為陣列公式，輸入完請按 ctrl + shift + enter

TOP

aoss98

小學生 Rank: 1

帖子: 9
主題: 3
精華: 0
積分: 17
點名: 0
作業系統: window xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-7-27
最後登錄: 2014-2-5

8^#

發表於 2011-4-20 00:09 | 只看該作者

謝謝a8350070，修改後的程式冇問題，謝謝你指敎。

TOP

a8350070

中學生 Rank: 2

帖子: 48
主題: 2
精華: 0
積分: 64
點名: 0
作業系統: xp
軟體版本: office 2000
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2011-4-16
最後登錄: 2018-9-26

7^#

發表於 2011-4-19 23:29 | 只看該作者

小弟借oobird版大的程式碼稍作修改
Sub yy()
i = 1
Do
aa = Cells(i, 2).CurrentRegion.Rows.Count
b = Cells(i, 2).Resize(aa, 1)
If aa = 1 Then
Cells(i, 3) = b
Else
Cells(i, 3) = Join(Application.Transpose(b), ",")
End If
i = i + aa + 1
Loop Until Cells(i, 2) = ""
End Sub

TOP

aoss98

小學生 Rank: 1

帖子: 9
主題: 3
精華: 0
積分: 17
點名: 0
作業系統: window xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-7-27
最後登錄: 2014-2-5

6^#

發表於 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-4-19 17:29 | 只看該作者

本帖最後由 GBKEE 於 2011-4-23 17:42 編輯

回復 1# aoss98
Sub Ex()
Dim C As Range
For Each C In Range("B:B").SpecialCells(xlCellTypeConstants).Areas
C.Cells(1, 2) = Join(Application.Transpose(C), ",")
Next
End Sub

TOP

oobird