返回列表 上一主題 發帖

[發問] 無法精確比對

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2011-9-14 06:26 | 顯示全部帖子
回復 1# jesscc
  1. Sub Ex()
  2. Dim D As Object, A As Range
  3. Set D = CreateObject("Scripting.Dictionary")
  4. With Sheet1
  5. For Each A In .Range(.[B5], .[B56636].End(xlUp))
  6.    D(A & "") = A.Offset(, 1).Resize(, 4).Value
  7. Next
  8. End With
  9. With Sheet2
  10. For Each A In .Range(.[D12], .[D56636].End(xlUp))
  11.     A.Offset(, 4).Resize(, 4) = D(A & "")
  12. Next
  13. End With
  14. Set D = Nothing
  15. Set A = Nothing
  16. End Sub
複製代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-9-15 06:23 | 顯示全部帖子
回復 5# jesscc
=> 釋放記憶體
VBA 的說明   
Nothing 關鍵字是用來將一個物件變數從一個實際的物件裏分離開來。使用 Set 陳述式可指定 Nothing 給物件變數。舉例來說：
Set MyObject = Nothing
數個物件變數可以同時引用一個實際物件，而當 Nothing 被指定給一個物件變數，那麼該變數將不再引用任何實際物件。當數個物件變數同時引用一個物件，那麼和該物件有關連的記憶體、系統資源中被物件變數所引用到的部份，只有在全部的物件變數都設成 Nothing 後才會被釋放。而變數被設成 Nothing 的方法不外是直接使用 Set，或等待最後被設成 Nothing 的物件變數超出範圍之後。

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題