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

[發問] 如何Paste Array? (有附上Demo)

ui123

中學生 Rank: 2

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-9-21 11:24 | 只看該作者

[發問] 如何Paste Array? (有附上Demo)

本帖最後由 ui123 於 2017-9-21 11:35 編輯

請教~目前遇到一個問題，再將EXCEL 範圍放入array 後想再取出放回某個範圍，但是無法貼上，有人遇過一樣的問題嗎?
javascript:;

Sub past()

Dim arrj(1, 3, 30)

For i = 1 To 30

arrj(1, 1, i) = Sheets(1).Range("A" & i + 1 & ":F" & 250 + i)

Next

Sheets(1).Rang("J2:O251") = arrj(1, 1, 1)
Sheets(1).Rang("Q2:V251") = arrj(1, 1, 2)

End Sub