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.

ArrowRawData

In diesem Artikel möchten wir die Datensätze löschen, die einen ähnlichen Zielmodellnamen und einen gewünschten Modellnamen haben.

ArrowOutput

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]