當前位置:成語大全網 - 書法字典 - 用vba比較兩個excel表格

用vba比較兩個excel表格

Sub?備註1()?比較離線系統和在線系統的E列。在線系統中不可用的整行數據會自動復制到sheet3。

申請。屏幕更新?=?錯誤的

暗淡?Dic?我%,?n%

工作表(“離線系統”)。[1:1].復制?紙張(“紙張3”)。【A1】

sheets(“sheet 3“)used range . offset(1)。刪除

n?=?1

表格(“在線系統”)。使活動

設置?Dic?=?CreateObject(“腳本。詞典》)

為了什麽?我?=?2?去哪?【a 1】。current region。rows。count

Dic(細胞(I“E”)。值)?=?""

然後

工作表(“離線系統”)。使活動

為了什麽?我?=?2?去哪?【a 1】。current region。rows。count

如果?不是嗎?Dic。存在(單元格(I,“E”)。值)?然後

n?=?n?+?1

行(壹)。復制?紙張(“紙張3”)。行數

結束?如果

然後

紙張(“紙張3”)。使活動

申請。屏幕更新?=?真實的

結束?子註釋1運行結果:

Sub?註2()?比較在線系統和離線系統的E列。脫機系統中不可用的整行數據被自動復制到sheet3。

申請。屏幕更新?=?錯誤的

暗淡?Dic?我%,?n%

工作表(“離線系統”)。[1:1].復制?紙張(“紙張3”)。【A1】

sheets(“sheet 3“)used range . offset(1)。刪除

n?=?1

工作表(“離線系統”)。使活動

設置?Dic?=?CreateObject(“腳本。詞典》)

為了什麽?我?=?2?去哪?【a 1】。current region。rows。count

Dic(細胞(I“E”)。值)?=?""

然後

表格(“在線系統”)。使活動

為了什麽?我?=?2?去哪?【a 1】。current region。rows。count

如果?不是嗎?Dic。存在(單元格(I,“E”)。值)?然後

n?=?n?+?1

行(壹)。復制?紙張(“紙張3”)。行數

結束?如果

然後

紙張(“紙張3”)。使活動

申請。屏幕更新?=?真實的

結束?子註釋2運行結果: