陣列的值放置到excel的問題 - Excel程式區

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

11^# 跳轉到 »

發表於 2015-6-22 16:55 | 只看該作者

回復 1# PKKO
這是我個人的直覺處理方式，僅供你做參考用！

Sub Ex2()
' 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)的方式
Dim rng As Variant, MyArr As Variant, chars As String
' rng = [A30].CurrentRegion '假設UBOUND(RNG)=20 ,UBOUND(RNG,2)=10
rng = [A30].CurrentRegion
[AA1].Resize(UBound(rng), UBound(rng, 2)) = rng
' Q2 : 如果RNG這個陣列,我希望它由RNG(2 TO 16,3 TO 5)
chars = "A" & Chr(64 + 3 + 1) & (2 + 1) & ":" & "A" & Chr(64 + 3 + (5 - 3 + 1)) & (2 + (16 - 2 + 1))
MyArr = ThisWorkbook.Worksheets("工作表1").Range(chars).Value
[AA1:AJ20].Clear
[A1:J20].Clear
[A1].Resize(15, 3) = MyArr
End Sub

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

12^#

發表於 2015-6-22 17:47 | 只看該作者

本帖最後由 c_c_lai 於 2015-6-22 17:50 編輯

回復 1# PKKO
回復 2# GBKEE
其實 GBKEE 先前的回覆 ( #2 ) 也是一個很切實際的範例，茲將它略略修改成 PKKO 的需求：

Sub EX()
Dim Rng()
' rng = [A5].CurrentRegion '假設UBOUND(RNG)=20 ,UBOUND(RNG,2)=10
' 假設 [A30] 區域為本案例陣列之暫存處裡區塊
' [A30].Resize(UBound(Rng), UBound(Rng, 2)) = Rng
chars = Chr(64 + 3 + 1) & (30 + 2) & ":" & Chr(64 + 3 + (5 - 3 + 1)) & (30 + 2 + (16 - 2))
With Range("A30").CurrentRegion
Rng = Range(chars).Value
End With
[A1].Resize(15, 3) = Rng
End Sub

複製代碼

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

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

13^#

發表於 2015-6-22 18:36 | 只看該作者

回復 12# c_c_lai

C大您好:

不曉得下列方法,在實際運算中
那一種速度最快呢?

1: .CELLS(X,X)=RNG(X,X) =>迴圈法
2: 8 樓提供的INDEX法
3: 您提供的方式,先將完整陣列放置到excel,再取出我要的值,再一次性的放置到原本位置

因為我實驗過一次性放置比迴圈法放置還要快許多
但不曉得1、2、3 哪一種方法會比較快呢?

PKKO

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

14^#

發表於 2015-6-23 08:03 | 只看該作者

回復 13# PKKO
rng 本身存取之內容並非是目前指定的 {A30}，那只是個舉例讓你易於理解，
就如你自訂的 RNG=[A5].CURRENTREGION 的位置一樣。此處，重點是在假設
rng 是個已存在值的 Variant 變數值。你希望它從 RNG(2 TO 16,3 TO 5)
"抽取出來" 然後能夠將其內容放置到 [A1].Resize(15, 3) 的位置上，而且
"PS:有沒有答案不是迴圈的.CELLS(x,x)=RNG(X,X)的方式"。這兒並無所謂的
"再一次性的放置到原本位置" 之處理。就如你自己先前舉例欲指定的 [A1]。

前提是要如何達成此構思：
1) 應用 "迴圈" 完成？ (#13 - 1 迴圈法、2 INDEX法)。抑或是
2) 先將 rng 內容至於某區塊，然後再將它依你的需求 (2 TO 16,3 TO 5)
"抽取出來"，置放入你指定的 [A1].Resize(15, 3) 的位置上。
完成後再將暫存區清除。

至於快慢的問題，礙於個人設備之不同，需要你自行測試其差異性，
11#、12# (GBKEE) 的回覆已經給了你答案了。

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

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

15^#

發表於 2015-6-23 10:15 | 只看該作者

回復 14# c_c_lai

感謝C大,已受益良多!

PKKO

TOP

bobomi

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-1-20

16^#

發表於 2015-6-23 10:35 | 只看該作者

本帖最後由 bobomi 於 2015-6-23 10:44 編輯

回復 15# PKKO

想要速度快  用 For.... Next 擷取片段  就是你的最佳選擇
當然還有1個比 For.... Next 快 10倍到萬倍的方法
但是速度是相對的
真正耗時的是 CELLS(X,X)=RNG(X,X)  這個動作

你擷取1次就一定會進行1次 CELLS(X,X)=RNG(X,X)
假設
For .... Next 片段擷取執行次數 1萬次 -> 耗時 0.15 秒
CELLS(X,X)=RNG(X,X) 執行次數 1萬次  ->  耗時 32 秒
總耗時 = 32 秒 + 0.15 秒 = 32.15 秒

今天你捨棄For .... Next 片段擷取  改用  第1快的擷取法
總耗時會變成 = 32 秒 + 0.01 秒 = 32.01 秒
上面已經提到速度是相對的

32.15 秒和  32.01 秒  你會感受到影響嗎? 完全無感對吧
所以想要快用 For.... Next 擷取片段  就是你的最佳選擇, 它起碼會是第2快

不要看到有回圈動作就認為它一定慢
其實看不到回圈動作的, 還是要進行回圈動作的, 只不過這個回圈動作被它吃進去在內部執行罷了 (優勢只在於方便, 換來的常是低速)

TOP

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]