In diesem Artikel erstellen wir ein Makro, um Duplikate zu überprüfen und doppelte Werte aus zwei aufeinanderfolgenden Spalten zu entfernen.
Rohdaten bestehen aus Zieldetails, darunter Agentenname, Zielmodellname und gewünschter Modellname.
In diesem Artikel möchten wir diejenigen Datensätze löschen, die einen ähnlichen Zielmodellnamen und gewünschten Modellnamen haben.
Codeerklärung
LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
Der obige Code wird verwendet, um die Zeilennummer der letzten Zelle zu erhalten.
Für i = LastRow bis 12 Schritt -1
Nächste
Die obige For-Schleife wird für die Rückwärtsschleife verwendet. Es beginnt eine Schleife von der letzten Reihe bis zum 12NS Reihe.
Wenn Zellen(i, 2) = Zellen(i, 3) Dann
Im obigen Code haben wir Werte in den Zellen von 2 . verglichennd Spalte mit 3rd Säule.
Zeilen(i).Löschen
Der obige Code wird verwendet, um die gesamte Zeile zu löschen.
Bitte folgen Sie unten für den Code
Option Explicit Sub DeleteMatches() 'Variablen deklarieren Dim LastRow, i As Long 'Zeilennummer der letzten Zelle abrufen LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row 'Looping von letzter Zeile bis 12. Zeile For i = LastRow To 12 Step -1 If Cells(i, 2) = Cells(i, 3) Then Rows(i).Delete End If Next End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site