更新資料但列位不同 - Excel程式區

[發問] 更新資料但列位不同

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2010-6-12 06:30 | 顯示全部帖子

回復 1# aok669

Sub Ex()
Dim d As Object, Rng As Range, R As Range, C As Range
Set d = CreateObject("Scripting.Dictionary")
With Sheets("in")
Set Rng = .Range("B2", .Cells(1, Columns.Count).End(xlToLeft).Offset(1)).Resize(.Cells(Rows.Count, 1).End(xlUp).Row - 1, .Cells(1, Columns.Count).End(xlToLeft).Column - 1)
For Each R In Rng.Rows
For Each C In R.Cells
d(.Cells(C.Row, 1) & .Cells(1, C.Column)) = C
Next
Next
End With
With Sheets("本")
Set Rng = .Range("B2", .Cells(1, Columns.Count).End(xlToLeft).Offset(1)).Resize(.Cells(Rows.Count, 1).End(xlUp).Row - 1, .Cells(1, Columns.Count).End(xlToLeft).Column - 1)
For Each R In Rng.Rows
For Each C In R.Cells
If d.EXISTS(.Cells(C.Row, 1) & .Cells(1, C.Column)) Then C = d(.Cells(C.Row, 1) & .Cells(1, C.Column))
Next
Next
End With
End Sub

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-6-12 08:05 | 顯示全部帖子

回復 3# Hsieh
樓主的檔案 "本"工作表中有一些欄位是 "IN"工作表所沒有的直接複製整個工作表會覆蓋掉 "本" 原有的資料

靜思自在 : 是非當教育，讚美作警惕。