Vergleichen Sie zwei Spalten mit VBA, und markieren Sie Unterschiede

Question

Ich bin auf der Suche nach einem VBA-Code, um Unterschiede in zwei Spalten vergleichen zu können, markieren Sie diese Unterschiede. Meine erste Säule ist in Blatt 1 und die zweite Spalte Blatt 2, das ist sowohl in Spalte A

Bitte helfen, danke

Answer 1

Ich habe einen Code bereit dafür. Sie müssen die zwei Datenbereiche auswählen, wenn Sie danach gefragt werden.

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 

Dadurch werden die Unterschiede im zweiten Bereich hervorgehoben.

Sie können diesen Code auch verwenden, um zwei Tabellen zu vergleichen.