返回列表 上一主題 發帖

請教如何比對資料，並更新。

alpha

帖子
9 
主題
4 
精華
0 
積分
56 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2007 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-23 
最後登錄
2024-9-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-1-15 14:06 | 只看該作者

請教如何比對資料，並更新。

收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
239  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-4 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2013-1-15 14:41 | 只看該作者
回復 1# alpha
  1. Sub nn()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. Set d1 = CreateObject("Scripting.Dictionary")
  4. For Each a In Range([A2], [A2].End(xlDown))
  5.   d(a.Value) = a.Offset(, 1).Value
  6.   d1(a.Value) = a.Offset(, 2).Value
  7. Next
  8. For Each a In Range([H2], [H2].End(xlDown))
  9.    a.Offset(, 1) = a.Offset(, 1).Value + d(a.Value)
  10.    d.Remove a.Value
  11.    a.Offset(, 2) = a.Offset(, 2).Value + d1(a.Value)
  12.    d1.Remove a.Value
  13. Next
  14. For Each ky In d.keys
  15.   [H65536].End(xlUp).Offset(1, 0).Resize(, 3) = Array(ky, d(ky), d1(ky))
  16. Next
  17. End Sub
複製代碼
學海無涯_不恥下問

TOP

alpha

帖子
9 
主題
4 
精華
0 
積分
56 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2007 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-23 
最後登錄
2024-9-28 
3#
發表於 2013-1-15 15:02 | 只看該作者
謝謝超版協助。
研究中。
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題