Wie für Duplikate in Excel Visual Basic Suchen

Mitglieder-Login

InformationenMicrosoft Access

Wie man Kosten und Aufwendungen She… Kosten und Aufwendungen Blätter sind etwas, dass alle Unternehmer und Selbstständige , um im Platz z
Wie man mit Chebyshev Theorem in Ex… Chebyshev -Theorem beschreibt , wie viel Prozent der Daten wird innerhalb einer bestimmten Anzahl vo
Wie durch ein Passwort schützt ein… Microsoft Excel 2004 wurde nur für Macs veröffentlicht , im Jahr 2004 war ein off- Jahr für Microsof
Wie Excel 07 erstellte Grafiken Microsoft Excel 2007 , ein Teil der Microsoft Office Reihe von Produktivitäts-Software , ist so konz

Software

HOME

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

Wie für Duplikate in Excel Visual Basic Suchen

Microsoft Excel 2010 können doppelte Werte markieren mit einem voreingestellten bedingte Formatierung Befehl , aber wenn Sie die Duplikate mithilfe eines Makros finden müssen, können Sie Visual Basic für Applikationen ( VBA) verwenden , welches ist in Microsoft Excel integriert . Während VBA nicht über eine Funktion, die Duplikate finden , können Sie nutzen die Funktion ZÄHLENWENN , um herauszufinden, welche Zellen halten doppelte Informationen . Anleitung
1

Öffnen Sie das Microsoft Excel 2010-Datei , die die Daten , die Sie für Duplikate überprüfen enthält . Wenn die Tabelle erscheint, drücken Sie die " Alt" und " F11 ", um den VBA -Konsole laden.
2

der rechten Maustaste auf das Arbeitsblatt auf der linken Seite des Bildschirms VBA . Bewegen Sie die Maus über "Einfügen" und wählen Sie "Module ". Doppelklicken Sie auf das neue Modul, das ein paar Zeilen unter dem Arbeitsblatt angezeigt.
3

Platzieren Sie den Cursor in den weißen Raum auf der rechten Seite des Bildschirms. Geben Sie in " Sub DupeCheck ()" und drücken Sie die Eingabetaste . VBA automatisch in den "End Sub "-Befehl für Sie.
4

Platzieren Sie den Cursor auf die Linie zwischen den "Sub" und "End Sub " Linien . Geben Sie die folgenden Codezeilen : . .

Dim x As Long Dim

endrow As Long

endrow = Range (" A50000 ") End ( xlUp ) Row < br >

Dieser Code erstellt zwei Variablen " endrow " und " x ", und baut dann den Wert für " EndRow . " Dieser Code wird durch 50.000 Zeilen in einer einzigen Spalte zu suchen, aber wenn man so durch mehrere Zeilen suchen müssen , erhöhen Sie einfach auf das, was 50.000 Anzahl Sie benötigen. Dieser Code wird auch entwickelt, um durch Spalte aussehen "A", aber man kann einfach ändern "A" , was auch immer Spaltenbuchstaben Sie brauchen.
5

Platzieren Sie den Cursor in die nächste Zeile und geben Sie den folgenden Code :

Für x = endrow To 1 Step -1

Wenn Application.WorksheetFunction.CountIf ( Range (" A1: A". & x ) , Range (" A" & x ) Text ) > 1 Then

Range (" A" & x ) . Interior.Color = RGB (200 , 160, 35)

End If Next

Dies ist das Herz des Codes, der durch jede Zelle aussehen wird und festzustellen, ob eine identische Zelle existiert darüber. Wenn es einen doppelten findet , schaltet die Zelle Hintergrund eine gelbe Farbe . Sie können jede Instanz von "A" , wenn Sie auf einer anderen Spalte arbeiten . Sie können auch die drei Zahlen nach " Interior.Color " zu ändern, was die Farbe der Zelle dreht .
6

Klicken Sie auf das "x " in der oberen rechten Ecke des Bildschirms , um den VBA -Konsole schließen . Klicken Sie auf die Registerkarte "Entwicklertools" am oberen Rand des Bildschirms. Finden Sie die "Macro " -Taste auf der linken Seite der Band und klicken Sie darauf. Wählen Sie " DupeCheck " aus der Liste der verfügbaren Makros und klicken Sie auf "Ausführen". Excel wird nun markieren jedes Duplikat in der Spalte von Daten.