請教用陣列把資料變成一行 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請教用陣列把資料變成一行

返回列表下一主題上一主題發帖

[發問] 請教用陣列把資料變成一行

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

1^# 跳轉到 »

發表於 2019-5-8 10:07 | 顯示全部帖子

Sub t()
ARR = Range([A1], [A65536].End(xlUp))
ARR = Application.Transpose(ARR)
MsgBox Join(ARR, ",")
End Sub

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

2^#

發表於 2019-5-8 10:13 | 顯示全部帖子

Sub t2()
For Each TS In Range([A1], [A65536].End(xlUp))
If TS <> "" Then TT = TT & "," & TS
Next
MsgBox Mid(TT, 2)
End Sub

靜思自在 : 不要隨心所欲，要隨心教育自己。

返回列表下一主題上一主題