使用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 

这将突出显示所选第二范围的差异。

此外，您也可以使用此代码来比较两个表。