使用VBA比較兩列並突出顯示差異

Question

我正在查找VBA代碼以便能夠比較兩列中的差異，突出顯示這些差異。我的第一列是第1頁，第二欄是第2頁，這些都在A列中

請幫幫忙，謝謝

Answer 1

我有一個代碼，爲此做好準備。詢問時您必須選擇兩個範圍的數據。

Sub Compare_Table() 

    Dim oldTable As Range, newTable As Range, i As Integer, J As Integer, m As Integer, n As Integer 

    On Error Resume Next 

    Set oldTable = Application.InputBox(Prompt:="Please Select First Column", Title:="Range Select", Type:=8) 
    Set newTable = Application.InputBox(Prompt:="Please Select Second Column", Title:="Range Select", Type:=8) 

    i = oldTable.Rows.Count 
    J = oldTable.Columns.Count 

    For m = 1 To i 
     For n = 1 To J 
      If oldTable.Cells(m, n) <> newTable.Cells(m, n) Then 
       newTable.Cells(m, n).Interior.ColorIndex = 6 
      End If 
     Next n 
    Next m 

End Sub 

這將突出顯示所選第二範圍的差異。

此外，您也可以使用此代碼來比較兩個表。