So finden Sie verschiedene Zellen aus zwei Excel-Tabellen mit dem gleichen Format

Question

Ich habe zwei Excel-Dateien, jede hat 1553 Zeilen und 40 Spalten. Sie haben die gleichen Spaltennamen und sollten identisch sein. Aber es scheint, dass es einige Unterschiede gibt. Ich frage mich, ob es einige Codes gibt, die die verschiedenen Zellen erkennen und markieren/zusammenfassen können (welche Zeile/Spalte).

Answer 1

Es gibt zwei Möglichkeiten, es

• Sie können zu tun, wenn Formel wie IF(cell1=cell2,"","Not Matching")
• Sie auch die bedingte Formatierung verwenden können zwei Bereiche und Farbe übereinstimmen unterschiedlich: Wählen ersten Bereich und gehen Sie zu Bedingte Formatierung -> Neue Regeln -> Nur Zellen formatieren, die "Zellenwert" und "Ungleich" enthalten und auswählen -> dann die Anfangszelle des nächsten Bereichs in einem anderen Arbeitsblatt auswählen (Hinweis: Bitte entfernen Sie den Verweis z. B. $ aus der Zelle) und fülle jede Farbe mit einem nicht übereinstimmenden Wert.

Answer 2

Excel hat ein Add-In zum Vergleichen von Dateien namens "Inquire". Könnte es wert sein, auschecken. Beachten Sie, dass Versionsanforderungen bestehen.

Beschreibung der Features: https://support.office.com/en-us/article/What-you-can-do-with-Spreadsheet-Inquire-ebaf3d62-2af5-4cb1-af7d-e958cc5fad42

Wie es einzuschalten: https://support.office.com/en-us/article/Turn-on-the-Inquire-add-in-6bc668e2-f3c6-4729-8ce1-75ea20aa9d90

Answer 3

Ich schrieb diesen Code nicht übereinstimmen Zellen zu finden und jedes Highlight für Sie. Sie müssen Sheet1 und Sheet2 mit den entsprechenden Blattnamen ändern und sicherstellen, dass die Zeilen- und Spaltenanzahl mit den richtigen Zahlen beginnt und endet. Ich hoffe, das hilft!

Sub comparison() 

Dim ws1 As Worksheet 
Dim ws2 As Worksheet 
Dim CellValuews1 As Variant 
Dim CellValuews2 As Variant 
Dim ErrorCount As Integer 

Set ws1 = Sheets("Sheet1") 
Set ws2 = Sheets("Sheet2") 
ErrorCount = 0 

For I = 1 To 40 
    For X = 1 To 1553 
     CellValuews1 = ws1.Cells(X, I).Value 
     CellValuews2 = ws2.Cells(X, I).Value 

     If CellValuews1 = CellValuews2 Then 
     Else 
      ws1.Cells(X, I).Interior.ColorIndex = 6 
      ws2.Cells(X, I).Interior.ColorIndex = 6 

      ErrorCount = ErrorCount + 1 

     End If 
    Next 
Next 

MsgBox "There were " & ErrorCount & " Cells that didn't match. These are now highlighted yellow" 

End Sub