Entfernen von Duplikaten aus Excel-Makro

April 16

Ein doppelter Eintrag in Microsoft Excel ist ein Eintrag in einer Spalte oder Zeile, die anderen Einträgen in derselben Spalte oder Zeile entspricht. Vielleicht möchten, Ihre Daten zu verschärfen diese doppelte Einträge entfernen, aber Sie können nicht dies manuell machen, vor allem wenn Sie Hunderte von Zellen mit Daten. Leider, wenn Sie in Microsoft Office Excel arbeiten, insbesondere Excel 2002 und Excel 2003, Entfernen doppelte Einträge in Spalten oder Zeilen automatisch ist nicht offensichtlich.

Anweisungen

Erstellen eines Makros zum ersten Spalte Duplikate entfernen

1 Wechseln Sie zu Tools auf der Symbolleiste und hinunter nach Makro. Finden Sie auf der rechten Seite die Visual Basic-Editor und Linksklick drauf. Einmal im Visual Basic-Editor finden der Dropdown-Liste, die Sie ein Benutzerformular, Modul oder Klassenmodul erstellen kann. Wählen Sie "Modul."

2 Kopieren Sie und fügen Sie Folgendes in das Bearbeiten, das geöffnet wird:

Sub DelDups_OneList()Dim iListCount As IntegerICtr As Integer Dim' Bildschirmaktualisierung Makro beschleunigen deaktivieren.Application.ScreenUpdating = False' Get Zählung der Datensätze zu durchsuchen.iListCount = Sheets("Sheet1"). Range("a1:A100"). Rows.CountSheets("Sheet1"). Range("a1"). Wählen Sie' Schleife bis zum Ende der Datensätze.Tun bis ActiveCell = ""' Schleife durch Datensätze.Für iCtr = 1 To iListCount

' Don't compare against yourself. ' To specify a different column, change 1 to the column number. If ActiveCell.Row <> Sheets("Sheet1").Cells(iCtr, 1).Row Then ' Do comparison of next record. If ActiveCell.Value = Sheets("Sheet1").Cells(iCtr, 1).Value Then ' If match is true then delete row. Sheets("Sheet1").Cells(iCtr, 1).Delete xlShiftUp ' Increment counter to account for deleted row. iCtr = iCtr + 1 End If End If

Nächsten iCtr"Gehen Sie zum nächsten Datensatz.ActiveCell.Offset (1, 0). Wählen SieLoopApplication.ScreenUpdating = TrueMsgBox "Fertig!"EndSub

3 Klicken Sie auf "Datei" und dann "schließen und zurück zu Microsoft Excel." Nachdem an Excel zurückgegeben wird, wechseln Sie auf die Option Tools in der Symbolleiste und dann auf Makros. Wählen Sie auf der rechten Seite "Makros". Sehen Sie im Feld Makroname Möglichkeit das Makro DelDups_OneList aufgerufen. Wählen Sie "Optionen" und Zuweisen einer Tastenkombination von "Q." Klicken Sie auf "OK".

4 Klicken Sie auf "Ausführen". "Done" erscheint. Die doppelten Einträge in der ersten Spalte werden gelöscht.

5 Weil Sie die Tastenkombination STRG + Q eingerichtet haben, musst du nur STRG + Q in der Zukunft zu geben und die doppelten Einträge in der ersten Spalte der Daten entfernt werden.

Tipps & Warnungen

  • Weitere Makrocodes finden Duplikate oder Entfernen von doppelten Zeilen. Links zu diesen Makrocodes finden Sie unter Ressourcen unten.
  • Da Sie mit einem Makro, die Daten löscht arbeiten, sichern Sie Ihre Excel-Dokument vor dem Anwenden des Makros.

SIE KÖNNEN AUCH GERNE