標題: [發問] 請教 用陣列 把 資料變成一行 [打印本頁]

---

作者: adrian_9832    時間: 2019-5-7 21:18     標題: 請教 用陣列 把 資料變成一行

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

---

作者: 准提部林    時間: 2019-5-8 10:07

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

---

作者: 准提部林    時間: 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

---

作者: adrian_9832    時間: 2019-5-8 14:27

謝謝大大的教導

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)