快速標出資料差異－VBA 巨集
上篇文章(條件式格式設定)教大家如何利用格式化條件來做資料比對，有同學在社團中發問，除了比對差異外，能不能列出舊資料內容，方便比對？
這個時候，我們就需要Excel強大的巨集功能… 我們一樣用上次的例子做範例
有一張工作表名叫”舊資料”的內容,長以下這樣：
另一張工作表名叫”新資料”的內容,長以下這樣:
到底新資料與舊資料的哪幾格內容不一樣、而且要標記出舊資料內容….該怎麼做嗎？
操作步驟
1.先到Excel中的”檔案”功能，開啟”開發人員”的功能選單
檔案＞選項＞自訂功能區＞將開發人員的選項勾選起來
2.新增一個模組來放要執行的巨集程式內容
3.在模組中,鍵入以下程式碼（請直接複製貼上）
【
Sub 快速附註差異()
‘自動判斷出資料有幾欄
For i = 1 To Range(“A1”).End(xlDown).Row
‘再判斷資料有幾列
For j = 1 To Range(“A1”).End(xlToRight).Column
‘接著依序判斷儲存格內容是否前後相同,同時指示如何處理
If Cells(i, j) <> Sheets(2).Cells(i, j) Then
Cells(i, j).AddComment ‘加附註
Cells(i, j).Comment.Text Text:=”舊資料:” & Sheets(2).Cells(i, j) ‘附註內容
End If
Next j
Next i
End Sub
】
Sub 快速附註差異()
‘自動判斷出資料有幾欄
For i = 1 To Range(“A1”).End(xlDown).Row
‘再判斷資料有幾列
For j = 1 To Range(“A1”).End(xlToRight).Column
‘接著依序判斷儲存格內容是否前後相同,同時指示如何處理
If Cells(i, j) <> Sheets(2).Cells(i, j) Then
Cells(i, j).AddComment ‘加附註
Cells(i, j).Comment.Text Text:=”舊資料:” & Sheets(2).Cells(i, j) ‘附註內容
End If
Next j
Next i
End Sub
】
上述程式是利用程式先偵測出資料範圍的大小，再設計迴圈去做儲存格的逐一比對。
VBA語法不用硬背，它有一個貼心功能叫『錄製巨集』，再複雜的動作也能自動破解，我們再從中擷取出精要的程式碼即可。
4.至第１頁的工作表，新增程式執行按鈕
並將此按鈕指定為剛寫好的巨集,之後再修改按鈕的名稱
5.完成畫面如下：
6.要執行此巨集，請按下巨集按鈕
最後完成畫面如下：
有差異的儲存格都被加註＂附註＂，出現紅色小三角了哦！
若將滑鼠點到其中一個儲存格就會出現以下畫面
新舊資料內容比對一目瞭然，立馬變身資料科南！
作者：Excel探險家 Jackie
以學習和分享為樂，最愛在無窮無盡的Excel裡探索Excel無限可能！
目標用愛和數據工具改善生活！每天都是最棒的一天！
