Office 板


LINE

軟體: Excel 版本: Mac Office 365 各位大大好 小弟剛開始摸索vba 在網路上看到這樣一篇文章 http://m.wangchao.net.cn/it/tcdetail_57466.html 大約在文章的1/5位置 有提到 ======================================= 本技巧用于優化在Excel和代碼之間轉換數據的次數。使用數組變量存儲所需要的值並執行取值或賦值操作,而不是一次遍曆單個單元格並獲取或設置單個值。   例如,下面的代碼在單元格區域A1:C10000中放置隨機數。   代碼段一:運行速度較慢的代碼   Sub testSlow()   Dim DataRange As Range   Dim Irow As Long   Dim Icol As Integer   Dim MyVar As Double   Set DataRange = Range("A1:C10000")   For Irow = 1 To 10000   For Icol = 1 To 3   MyVar = DataRange(Irow, Icol) '從Excel單元格中讀取值30K次   If MyVar > 0 Then   MyVar = MyVar * MyVar ' 改變值   DataRange(Irow, Icol) = MyVar '將值寫入Excel單元格中30000次   End If   Next Icol   Next Irow   End Sub   代碼段二:運行速度更快的代碼   Sub testFast()   Dim DataRange As Variant   Dim Irow As Long   Dim Icol As Integer   Dim MyVar As Double   DataRange = Range("A1:C10000").Value '一次從Excel單元格中讀取所有的值,將其放入數組   For Irow = 1 To 10000   For Icol = 1 To 3   MyVar = DataRange(Irow, Icol)   If MyVar > 0 Then   MyVar = MyVar * MyVar ' 改變數組中的值   DataRange(Irow, Icol) = MyVar   End If   Next Icol   Next Irow   Range("A1:C10000").Value = DataRange '一次將所有結果寫回單元格   End Sub ======================================= 簡單的summary一下我的觀察 第一段的程式碼就是讓電腦讀進每一儲存格的數據 計算後直接寫進儲存格 第二段的程式碼是讓電腦讀進每一儲存格的數據 先存於陣列(應該就是中國 所稱的數組吧)。於陣列中計算後再存進儲存格。 我的疑問是這樣看起來。不論是第一段或是第二段的程式碼應該都需要把儲存 格的內容讀進記憶體。而第二段程式碼還需要多增加一個陣列變數的記憶體。 這樣為什麼會比較快啊? 謝謝大家 --



※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.239.223.196
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1485395842.A.158.html
1F:→ Catbert: 因為"寫入儲存格"這個動作很花時間 01/26 15:01
2F:推 waiter337: 讀資料都很快,但是寫資料....超級久 01/26 19:42
3F:→ waiter337: 而且一次貼上10000個資料跟一次貼上一個資料做10000次 01/26 19:43
4F:→ waiter337: 時間後者又更長到誇張,前者可能5秒,後者可能3000秒 01/26 19:43
5F:→ waiter337: 所以超過1000列的資料,基本上都改用陣列,在一次貼上最 01/26 19:44
6F:→ waiter337: 快 01/26 19:44
7F:→ marki: 謝謝 01/26 21:50
8F:推 nicegigi: 太神了 03/08 23:07







like.gif 您可能會有興趣的文章
icon.png[問題/行為] 貓晚上進房間會不會有憋尿問題
icon.pngRe: [閒聊] 選了錯誤的女孩成為魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一張
icon.png[心得] EMS高領長版毛衣.墨小樓MC1002
icon.png[分享] 丹龍隔熱紙GE55+33+22
icon.png[問題] 清洗洗衣機
icon.png[尋物] 窗台下的空間
icon.png[閒聊] 双極の女神1 木魔爵
icon.png[售車] 新竹 1997 march 1297cc 白色 四門
icon.png[討論] 能從照片感受到攝影者心情嗎
icon.png[狂賀] 賀賀賀賀 賀!島村卯月!總選舉NO.1
icon.png[難過] 羨慕白皮膚的女生
icon.png閱讀文章
icon.png[黑特]
icon.png[問題] SBK S1安裝於安全帽位置
icon.png[分享] 舊woo100絕版開箱!!
icon.pngRe: [無言] 關於小包衛生紙
icon.png[開箱] E5-2683V3 RX480Strix 快睿C1 簡單測試
icon.png[心得] 蒼の海賊龍 地獄 執行者16PT
icon.png[售車] 1999年Virage iO 1.8EXi
icon.png[心得] 挑戰33 LV10 獅子座pt solo
icon.png[閒聊] 手把手教你不被桶之新手主購教學
icon.png[分享] Civic Type R 量產版官方照無預警流出
icon.png[售車] Golf 4 2.0 銀色 自排
icon.png[出售] Graco提籃汽座(有底座)2000元誠可議
icon.png[問題] 請問補牙材質掉了還能再補嗎?(台中半年內
icon.png[問題] 44th 單曲 生寫竟然都給重複的啊啊!
icon.png[心得] 華南紅卡/icash 核卡
icon.png[問題] 拔牙矯正這樣正常嗎
icon.png[贈送] 老莫高業 初業 102年版
icon.png[情報] 三大行動支付 本季掀戰火
icon.png[寶寶] 博客來Amos水蠟筆5/1特價五折
icon.pngRe: [心得] 新鮮人一些面試分享
icon.png[心得] 蒼の海賊龍 地獄 麒麟25PT
icon.pngRe: [閒聊] (君の名は。雷慎入) 君名二創漫畫翻譯
icon.pngRe: [閒聊] OGN中場影片:失蹤人口局 (英文字幕)
icon.png[問題] 台灣大哥大4G訊號差
icon.png[出售] [全國]全新千尋侘草LED燈, 水草

請輸入看板名稱,例如:BuyTogether站內搜尋

TOP