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

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

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

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

1^# 跳轉到 » 倒序看帖

字體大小: tT

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

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

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

擷取.PNG (116.78 KB)

Book1.rar (5.87 KB)

樓主熱帖

收藏

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

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

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

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

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

4^#

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

謝謝大大的教導

靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。

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