Entfernen von doppelten Werten durch Werte in zwei aufeinanderfolgenden Spalten zu vergleichen
In diesem Artikel erstellen wir ein Makro, um die Duplizierung zu überprüfen und doppelte Werte aus zwei aufeinander folgenden Spalten zu entfernen.
Rohdaten bestehen aus Zieldetails, einschließlich Agentenname, Zielmodellname und gewünschter Modellname.
In diesem Artikel möchten wir die Datensätze löschen, die einen ähnlichen Zielmodellnamen und einen gewünschten Modellnamen haben.
Code Erklärung
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row Der obige Code wird verwendet, um die Zeilennummer der letzten Zelle abzurufen.
For i = LastRow To 12 Schritt -1 Weiter Die obige For-Schleife wird für die Rückwärtsschleife verwendet. Es beginnt eine Schleife von der letzten Reihe bis zur 12. Reihe.
Wenn Zellen (i, 2) = Zellen (i, 3), dann haben wir im obigen Code Werte in den Zellen der 2. Spalte mit der 3. Spalte verglichen.
Zeilen (i). Löschen Mit dem obigen Code wird die gesamte Zeile gelöscht.
Bitte folgen Sie unten für den Code
Option Explicit Sub DeleteMatches() 'Declaring variables Dim LastRow, i As Long 'Getting the row number of last cell LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row 'Looping from last row to 12th row For i = LastRow To 12 Step -1 If Cells(i, 2) = Cells(i, 3) Then Rows(i).Delete End If Next End Sub
Wenn dir dieser Blog gefallen hat, teile ihn mit deinen Freunden auf Facebook und Facebook.
Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]