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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2019-5-7 21:18 | 只看該作者

請問一下如何把一堆列都放入 array 內
現在要定義 a1 a2 a3 那樣實在是太慢請大大們指教

擷取.PNG (116.78 KB)

Book1.rar (5.87 KB)

4^#

發表於 2019-5-8 14:27 | 只看該作者

謝謝大大的教導

3^#

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

2^#

發表於 2019-5-8 10:07 | 只看該作者

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

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。

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