如何用VBA比較兩個EXCEL工作表

更新於 發佈於 閱讀時間約 3 分鐘

為什麼要比較Excel 工作表(Worksheet)

工作中,常常會儲存多個同一目的,但不同時間的工作。或者,有時要檢查兩個人做的EXCEL工作表,是否有所不同。當然,若工作表很小,肉眼看是最快的,但是,如果是庫存的大量資料如1萬筆以上的財務資訊等,這時靠肉眼看,速度實在是太慢了,而且也容易出錯。

 

當然另外一種方式是另起一個工作表,譬如說,如要檢查工作表A 和 工作表B的不同,主要另起一個工作表C ,令工作表C的每一欄位其公式為工作表A的欄位-工作表C的欄位就可以了。

可行的VBA程式碼

不過,聰明的人還是喜歡用可以偷懶的方式。可行的VBA程式碼如下

Sub Compare_Two_Worksheets()
Application.Calculation = xlCalculationManual '先關掉EXCEL 裏的自動計算功能
Dim iR As Double, iC As Double '計數用的
Dim iRow_M As Double, iCol_M As Double '定義要比較到的最大列及最大欄
Dim source1_sheet As Worksheet, source2_sheet As Worksheet
Set source1_sheet = ThisWorkbook.Worksheets(SHEETNAME1) '這裏要指定SHEETNAME1為工作表名稱
Set source2_sheet = ThisWorkbook.Worksheets(SHEETNAME2) '這裏要指定SHEETNAME2為工作表名稱
iRow_M = source1_sheet.UsedRange.Rows.Count '這裏確定要比較到的最大列
iCol_M = source1_sheet.UsedRange.Columns.Count '這裏確定要比較到的最大欄

For iR = 1 To iRow_M
For iC = 1 To iCol_M
If (source1_sheet.Cells(iR, iC).Value <>source2_sheet.Cells(iR, iC).Value) Then
source1_sheet.Cells(iR, iC).Interior.ColorIndex = 6 '用黃色標註
source2_sheet.Cells(iR, iC).Interior.ColorIndex = 6
End If
Next iC
Next iR

Application.Calculation = xlAutomatic '重新打開自動計算功能

End Sub

 希望常常在比較EXCEL的上班族,可以用的上。

當然還有一些可以再調整的地方,譬如說,把比對不同的資訊,再寫在另外一個工作表上。

留言
avatar-img
留言分享你的想法!
avatar-img
bot.學習.人的沙龍
1會員
36內容數
2025/03/01
如果在一個群組裏,大家講不同的語言怎麼辦呢? 「bot.學習.人」因為工作的需要,團隊裏有外國人,為了避免大家溝通有困難,也免去了時時要線上翻譯,所以作了一個在群組裏自動翻譯的機器人。用到的是Google 提供的免費服務哦。 如果您有使用google app script,下面這一行就可以有
2025/03/01
如果在一個群組裏,大家講不同的語言怎麼辦呢? 「bot.學習.人」因為工作的需要,團隊裏有外國人,為了避免大家溝通有困難,也免去了時時要線上翻譯,所以作了一個在群組裏自動翻譯的機器人。用到的是Google 提供的免費服務哦。 如果您有使用google app script,下面這一行就可以有
2025/02/28
如果您要管理telegram 社群,那您需要一個群管機器人,群管機器人可以把您設定歡迎信息,和初入群的群友打招呼,做基本的驗證,並且說明群規。 今天,「bot.學習.人」就說明一下如何用GroupHelp群管機器人 一、把群管機器人加到您的群 二、把它變成群管理員 三、變成群管理員之後,
Thumbnail
2025/02/28
如果您要管理telegram 社群,那您需要一個群管機器人,群管機器人可以把您設定歡迎信息,和初入群的群友打招呼,做基本的驗證,並且說明群規。 今天,「bot.學習.人」就說明一下如何用GroupHelp群管機器人 一、把群管機器人加到您的群 二、把它變成群管理員 三、變成群管理員之後,
Thumbnail
2024/12/23
保險保障和銀行存款那裏不同呢?或許最大的不同,就是這句「平時注入一滴水,難時擁有太平洋」吧。
Thumbnail
2024/12/23
保險保障和銀行存款那裏不同呢?或許最大的不同,就是這句「平時注入一滴水,難時擁有太平洋」吧。
Thumbnail
看更多
你可能也想看
Thumbnail
TOMICA第一波推出吉伊卡哇聯名小車車的時候馬上就被搶購一空,一直很扼腕當時沒有趕緊入手。前陣子閒來無事逛蝦皮,突然發現幾家商場都又開始重新上架,價格也都回到正常水準,估計是官方又再補了一批貨,想都沒想就立刻下單! 同文也跟大家分享近期蝦皮購物紀錄、好用推薦、蝦皮分潤計畫的聯盟行銷!
Thumbnail
TOMICA第一波推出吉伊卡哇聯名小車車的時候馬上就被搶購一空,一直很扼腕當時沒有趕緊入手。前陣子閒來無事逛蝦皮,突然發現幾家商場都又開始重新上架,價格也都回到正常水準,估計是官方又再補了一批貨,想都沒想就立刻下單! 同文也跟大家分享近期蝦皮購物紀錄、好用推薦、蝦皮分潤計畫的聯盟行銷!
Thumbnail
每年4月、5月都是最多稅要繳的月份,當然大部份的人都是有機會繳到「綜合所得稅」,只是相當相當多人還不知道,原來繳給政府的稅!可以透過一些有活動的銀行信用卡或電子支付來繳,從繳費中賺一點點小確幸!就是賺個1%~2%大家也是很開心的,因為你們把沒回饋變成有回饋,就是用卡的最高境界 所得稅線上申報
Thumbnail
每年4月、5月都是最多稅要繳的月份,當然大部份的人都是有機會繳到「綜合所得稅」,只是相當相當多人還不知道,原來繳給政府的稅!可以透過一些有活動的銀行信用卡或電子支付來繳,從繳費中賺一點點小確幸!就是賺個1%~2%大家也是很開心的,因為你們把沒回饋變成有回饋,就是用卡的最高境界 所得稅線上申報
Thumbnail
這篇文章探討如何使用 VBA 來設計一個隨機生成不重覆的排班表,解決依據每日、每站、每人進行的排班需求。文章分享了設定人員、站點及工作日的基本步驟,並使用 AI - ChatGPT 4o 做為互動,最終產生了滿意的結果,並提供了一個 VBA設計完成 的影片 以及 免費的檔案下載。
Thumbnail
這篇文章探討如何使用 VBA 來設計一個隨機生成不重覆的排班表,解決依據每日、每站、每人進行的排班需求。文章分享了設定人員、站點及工作日的基本步驟,並使用 AI - ChatGPT 4o 做為互動,最終產生了滿意的結果,並提供了一個 VBA設計完成 的影片 以及 免費的檔案下載。
Thumbnail
某單位志工服務時數記錄在檔案內,需匯入衛福部志工系統,但由於志工多、檔案多,進行人工計算耗時費工且常累計算錯。故提此法改善,提高效率。文章內容包含了作業流程、作業說明、實例說明、改善前後、展開運用和設計編寫。
Thumbnail
某單位志工服務時數記錄在檔案內,需匯入衛福部志工系統,但由於志工多、檔案多,進行人工計算耗時費工且常累計算錯。故提此法改善,提高效率。文章內容包含了作業流程、作業說明、實例說明、改善前後、展開運用和設計編寫。
Thumbnail
科技發達的現代,就要善用科技化產品,來處理店裡的大小事務!排假是每個企業都會遇到的問題,該如何安排才能同時符合員工以及現場的需求?
Thumbnail
科技發達的現代,就要善用科技化產品,來處理店裡的大小事務!排假是每個企業都會遇到的問題,該如何安排才能同時符合員工以及現場的需求?
Thumbnail
當你剛進入職場時,可能會覺得工作效率低,事情多且繁瑣。這篇文章提供了3種簡單的優化方法:模板化、流程化和清單化,可以幫助你顯著提高工作效率。
Thumbnail
當你剛進入職場時,可能會覺得工作效率低,事情多且繁瑣。這篇文章提供了3種簡單的優化方法:模板化、流程化和清單化,可以幫助你顯著提高工作效率。
Thumbnail
資料整理是職場上的重要技能,也是一大挑戰! 透過專案管理的手法建立一套有效的資料管理系統,進而提升工作效率並獲得成功。
Thumbnail
資料整理是職場上的重要技能,也是一大挑戰! 透過專案管理的手法建立一套有效的資料管理系統,進而提升工作效率並獲得成功。
Thumbnail
在職場上,我們經常需要舉辦會議來討論工作事項或進行決策。會議結束後,我們需要統計出席資訊,以便了解會議的參與狀況。傳統的統計出席資訊的方法是人工逐行檢查會議記錄,這不僅耗時耗力,而且容易出錯。 今天,我將介紹一個使用 Excel 快速統計出席資訊的技巧,那就是使用 COUNTIF 函數。
Thumbnail
在職場上,我們經常需要舉辦會議來討論工作事項或進行決策。會議結束後,我們需要統計出席資訊,以便了解會議的參與狀況。傳統的統計出席資訊的方法是人工逐行檢查會議記錄,這不僅耗時耗力,而且容易出錯。 今天,我將介紹一個使用 Excel 快速統計出席資訊的技巧,那就是使用 COUNTIF 函數。
Thumbnail
其實流程不是不能改,只是考量要長遠、考慮周到。財會工作就是搜集、整理、統計、分析資料,不是只「記帳」而已,任何流程的建立都是為了能便於分析,快速找到問題。如果沒有意識到這一點,就是連自己也輕看自己的工作了。
Thumbnail
其實流程不是不能改,只是考量要長遠、考慮周到。財會工作就是搜集、整理、統計、分析資料,不是只「記帳」而已,任何流程的建立都是為了能便於分析,快速找到問題。如果沒有意識到這一點,就是連自己也輕看自己的工作了。
Thumbnail
在工作中,我們經常需要處理各種報表,而其中一項任務就是每天手動更新報表。這可能是一個繁瑣且容易被遺忘的工作,但有幸的是,我們可以利用VBA(Visual Basic for Applications)和Windows工作排程器來自動化這個過程,讓我們在不知不覺中完成這項任務。
Thumbnail
在工作中,我們經常需要處理各種報表,而其中一項任務就是每天手動更新報表。這可能是一個繁瑣且容易被遺忘的工作,但有幸的是,我們可以利用VBA(Visual Basic for Applications)和Windows工作排程器來自動化這個過程,讓我們在不知不覺中完成這項任務。
Thumbnail
在現代辦公環境中,智慧辦公室系統成為了更有效和便捷的會議預約解決方案。本文將探討使用Excel表格和智慧辦公室系統進行會議預約的差異,並指出智慧辦公室系統提供了更高效、便捷和全面的會議預約解決方案的原因。
Thumbnail
在現代辦公環境中,智慧辦公室系統成為了更有效和便捷的會議預約解決方案。本文將探討使用Excel表格和智慧辦公室系統進行會議預約的差異,並指出智慧辦公室系統提供了更高效、便捷和全面的會議預約解決方案的原因。
Thumbnail
職場中數據或資料找差異,一直是粉絲私訊詢問的常勝軍,而且根據資料型態不同找差異的方式也完全不一樣哦!!今天就來分享3種常見的需要找差異的情境吧 第一種:找出同列差異 這種情況很常出現於庫存盤點,發票金額核對等等... 需要去核對同列左邊或右邊的儲存格是否相同,不同則視為異常要去檢查 第二種
Thumbnail
職場中數據或資料找差異,一直是粉絲私訊詢問的常勝軍,而且根據資料型態不同找差異的方式也完全不一樣哦!!今天就來分享3種常見的需要找差異的情境吧 第一種:找出同列差異 這種情況很常出現於庫存盤點,發票金額核對等等... 需要去核對同列左邊或右邊的儲存格是否相同,不同則視為異常要去檢查 第二種
追蹤感興趣的內容從 Google News 追蹤更多 vocus 的最新精選內容追蹤 Google News