12
返回列表 上一主題 發帖

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

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
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

bobomi

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

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 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

c_c_lai

帖子
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: 3Rank: 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

帖子
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 的需求：
  1. Sub EX()
  2.     Dim Rng()
  3.         
  4.     ' rng = [A5].CurrentRegion '假設UBOUND(RNG)=20 ,UBOUND(RNG,2)=10
  5.     ' 假設 [A30] 區域為本案例陣列之暫存處裡區塊
  6.     ' [A30].Resize(UBound(Rng), UBound(Rng, 2)) = Rng
  7.    
  8.     chars = Chr(64 + 3 + 1) & (30 + 2) & ":" & Chr(64 + 3 + (5 - 3 + 1)) & (30 + 2 + (16 - 2))
  9.     With Range("A30").CurrentRegion
  10.         Rng = Range(chars).Value
  11.     End With
  12.     [A1].Resize(15, 3) = Rng
  13. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
11#
發表於 2015-6-22 16:55 | 只看該作者
回復 1# PKKO
這是我個人的直覺處理方式，僅供你做參考用！
  1. Sub Ex2()
  2.     ' rng = [A5].CurrentRegion '假設UBOUND(RNG)=20 ,UBOUND(RNG,2)=10
  3.     ' Q1:  [A1].Resize(20, 10).Value = rng '我覺得這是將陣列資料放在excel非常快的方式,不曉得還有更快的嬤?
  4.     ' Q2 : 如果RNG這個陣列,我希望它由RNG(2 TO 16,3 TO 5) 放到 [A1].Resize(15, 3).Value這裡面該如何做?因為目前Q1程式碼無法達成這種放置方式
  5.     ' PS:有沒有答案不是迴圈的.CELLS(x,x)=RNG(X,X)的方式

  7.     Dim rng As Variant, MyArr As Variant, chars As String
  8.    
  9.     ' rng = [A30].CurrentRegion '假設UBOUND(RNG)=20 ,UBOUND(RNG,2)=10
  10.     rng = [A30].CurrentRegion
  11.    
  12.     [AA1].Resize(UBound(rng), UBound(rng, 2)) = rng
  13.     '  Q2 : 如果RNG這個陣列,我希望它由RNG(2 TO 16,3 TO 5)
  14.     chars = "A" & Chr(64 + 3 + 1) & (2 + 1) & ":" & "A" & Chr(64 + 3 + (5 - 3 + 1)) & (2 + (16 - 2 + 1))
  15.     MyArr = ThisWorkbook.Worksheets("工作表1").Range(chars).Value
  16.     [AA1:AJ20].Clear
  17.    
  18.     [A1:J20].Clear
  19.     [A1].Resize(15, 3) = MyArr
  20. End Sub
複製代碼

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
10#
發表於 2015-6-22 13:48 | 只看該作者
回復 8# mpegwmvavi


    沒想到還有這種方法，真是太感謝了！
PKKO

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
9#
發表於 2015-6-22 05:03 | 只看該作者
回復 8# mpegwmvavi
一篇不錯的論述，謝謝你的堤供！

TOP

mpegwmvavi

帖子
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

        靜思自在 : 人生最大的成就是從失敗中站起來。
12
返回列表 上一主題