PKKO

　暱稱: PKKO

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-6-21 14:36 | 只看該作者

[發問] 陣列的值放置到excel的問題

RNG=[A5].CURRENTREGION'假設UBOUND(RNG)=20 ,UBOUND(RNG,2)=10
Q1 : [A1].Resize(20, 10).Value =RNG'我覺得這是將陣列資料放在excel非常快的方式,不曉得還有更快的嬤?
Q2 : 如果RNG這個陣列,我希望它由RNG(2 TO 16,3 TO 5) 放到 [A1].Resize(15, 3).Value這裡面該如何做?因為目前Q1程式碼無法達成這種放置方式
PS:有沒有答案不是迴圈的.CELLS(x,x)=RNG(X,X)的方式

樓主熱帖

PKKO

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2015-6-21 15:20 | 只看該作者

回復 1# PKKO
試試看

Option Explicit
Sub EX()
Dim Rng()
With Range("D1").CurrentRegion
Rng = .Cells(2, 3).Resize(15, 3).Value
End With
[A1].Resize(15, 3) = Rng
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2015-6-21 16:19 | 只看該作者

本帖最後由 lpk187 於 2015-6-21 16:22 編輯

回復 2# GBKEE

我想PKKO大大的意思是有個Rng(1 to 20,1 to 10)的陣列
但他只取RNG(2 TO 16,3 TO 5)範圍的值，可有辦法不用任何迴圈
就可以直接取出的意思

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2015-6-21 16:23 | 只看該作者

回復 3# lpk187
只取RNG(2 TO 16,3 TO 5)，可有辦法不用for...next

這不是不用迴圈?

With Range("D1").CurrentRegion
Rng = .Cells(2, 3).Resize(15, 3).Value
End With

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

5^#

發表於 2015-6-21 16:33 | 只看該作者

本帖最後由 lpk187 於 2015-6-21 16:34 編輯

回復 4# GBKEE

PKKO的意思是Rng(1 to 20,1 to 10)已經有值了，不是再去取
With Range("D1").CurrentRegion
Rng = .Cells(2, 3).Resize(15, 3).Value
End With
的值，而他只想把RNG(2 TO 16,3 TO 5)範圍的值取出

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2015-6-21 16:50 | 只看該作者

回復 5# lpk187
樓主不是說,可有辦法不用for...next

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

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

7^#

發表於 2015-6-21 22:24 | 只看該作者

回復 2# GBKEE

抱歉,是我沒說清楚,舉例的不太洽當

超版大大您的方式也很好
但假設我的陣列並不是由excel所產生的
而是我自己給他的
DIM AA(1 TO 10,1 TO 5)
然後將運算過的值都輸入到陣列內之後

有沒有甚麼方式可以不透過迴圈
直接將陣列中某一段的資料放置到excel內
平常都是直接使用[A1].RESIZE(1 TO 10,1 TO 5).VALUE=AA
可是如果我要的只是AA裡面的(3 TO 10, 3 TO 5)
這樣要如何一次放到excel內?
有辦法類似[A1].RESIZE(1 TO 10,1 TO 5).VALUE=AA這種的方式嗎?

PKKO

TOP

mpegwmvavi

小學生 Rank: 1

帖子: 11
主題: 4
精華: 0
積分: 21
點名: 0
作業系統: win7
軟體版本: office2011
閱讀權限: 10
性別: 男
註冊時間: 2011-5-5
最後登錄: 2015-6-27

8^#

發表於 2015-6-21 23:43 | 只看該作者

本帖最後由 mpegwmvavi 於 2015-6-21 23:44 編輯

回復 7# PKKO

我想不到一次性置入的方法,
不過一條一條(直或橫)放進去是做得到的
方法是用Index這個工作表函數
不過還是要迴圈三次,儘管如此,比迴圈m*n次要快得多了

For j=3 to 5
Cells(1,j-2).Resize(10-3,1)=Application.Index(AA,0,j)
Next

參考網站:
https://usefulgyaan.wordpress.com/2013/06/12/vba-trick-of-the-week-slicing-an-array-without-loop-application-index/

MPEG

TOP

c_c_lai