Wie Duplikate aus Excel Makro entfernen

Mitglieder-Login

InformationenMicrosoft Access

Wie Handy Sheets in Excel 2007 Link… Bei Verwendung von Microsoft Excel mit verschiedenen Arbeitsblättern , können Sie zwischen den Zelle
Wie Borders Kopieren einer Tabelle … Tabellen in Microsoft Excel erstellt pflegen die bestehenden Grenzen und Gitternetzlinien , wenn sie
Wie man eine Excel- Datei Link zu e… Hyperlinks sind in der Regel aus einem Dokument auf einer Webseite gemacht , aber Sie können auch di
Wie Spin Buttons in Excel verwenden… Beim Erstellen eines Diagramms oder Dokument in Excel 2007 , möchten Sie vielleicht , um sich selbst

Software

HOME

* Computer Wissen >> Software >> Microsoft Access >> .

Wie Duplikate aus Excel Makro entfernen

Ein doppelter Eintrag in Microsoft Excel ist ein Eintrag in einer Spalte oder Zeile, die anderen Einträge entspricht in der gleichen Spalte oder Zeile . Vielleicht möchten Sie diese doppelten Einträge zu straffen Ihre Daten zu löschen , aber Sie können dies nicht manuell , vor allem wenn Sie Hunderte von Zellen von Daten haben. Leider, wenn Sie in Microsoft Office Excel , insbesondere Excel 2002 und Excel 2003 arbeiten Entfernen von doppelten Einträgen in Spalten oder Zeilen automatisch ist nicht offensichtlich. Anleitung
Baue ein Makro Zur ersten Spalte Duplikate
1

entfernen Navigieren Sie zu Extras in der Symbolleiste auf und ab auf Makro . Auf der rechten Seite finden Sie den Visual Basic-Editor und mit der linken Maustaste darauf . Einmal in der Visual Basic-Editor , um den Drop-down die Sie zu einem User Form , Modul oder Klasse Modul erstellen können. Wählen Sie "Module ".
2

Kopieren Sie den folgenden in den Editing-Fach , das sich öffnet : Sub DelDups_OneList () Dim iListCount Wie IntegerDim ICTR As Integer ' außerhalb des Bildschirms drehen Aktualisierung zu beschleunigen macro.Application . ScreenUpdating = False 'Get Anzahl der Datensätze, die through.iListCount = Sheets (" Tabelle1 " ) suchen Range (" A1: A100 " ) . . Rows.CountSheets ( " Tabelle1 " ) Range (" A1") wählen . . ' Loop bis bis Ende records.Do ActiveCell = "" 'Schleife durch records.For ICTR = 1 To iListCount ' nicht gegen sich selbst zu vergleichen. " Um eine andere Spalte anzugeben, ändern an der Säule 1 Anzahl.Wenn ActiveCell.Row <> Sheets (" Tabelle1 " ) . Cells ( ICTR , 1). Row Then ' Do Vergleich der nächsten record.If ActiveCell.Value = Sheets ( " Tabelle1 " ) . Cells ( ICTR , 1). Wert Then ' Wenn Spiel wahr ist, dann löschen row.Sheets ( " Tabelle1 " ) . Cells ( ICTR , 1). löschen xlShiftUp ' Zähle zu berücksichtigen gelöscht row.iCtr = ICTR + 1End IfEnd IfNext ICTR ' zum nächsten record.ActiveCell.Offset (1, 0) gehen . SelectLoopApplication.ScreenUpdating = TrueMsgBox "Done! " End Sub
3

Klicken Sie auf " File" und dann auf " Schließen und zurück zu Microsoft Excel. " Einmal an Excel zurückgegeben , auf die Option Extras in der Symbolleiste und dann auf Makros durchsuchen. Auf der rechten Seite , wählen Sie die "Macros "-Option. In der Option Makro -Box finden Sie das Makro aufgerufen DelDups_OneList . Wählen Sie "Optionen " , und weisen Sie eine Tastenkombination von "q ". Klicken Sie auf " OK".
4

Klicken Sie auf " Ausführen". "Fertig" wird angezeigt. Die doppelte Einträge in der ersten Spalte werden gelöscht.
5

Weil Sie Ihre Tastenkombination für Strg + q eingestellt haben, müssen Sie nur Strg + q in die Zukunft und die doppelten Einträge in Ihrer Art ersten Spalte der Daten werden entfernt.