Microsoft Visual Basic für Applikationen ( VBA) ist eine benutzerfreundliche Programmiersprache, die Microsoft -Office-Produkten wie Microsoft Excel anpassen können. Anstatt das Durchblättern einer Excel-Tabelle , um doppelte Zeilen zu identifizieren , kann ein Excel-Makro identifizieren doppelte Zeilen . Eine Excel- Makro ist ein kurzes Stück von VBA-Code, können Sie direkt von der Visual Basic -Editor. Anleitung
1
Wählen Sie die Spalten mit Daten , die Sie für doppelte Zeilen vergleichen möchten. Zum Beispiel, wenn Sie die Spalte A für doppelte Zeilen überprüfen möchten, auf "A"
2
klicken Sie auf Öffnen der VBE mit der Taste " Alt" und " F11 " gemeinsam auf der Tastatur . Es öffnet sich das Fenster VBE .
3
Klicken Sie auf "Öffnen" klicken Sie auf " Module . " Ein leeres Fenster wird in der VBE öffnen.
4
Cut und fügen Sie den folgenden Code in das leere Fenster aus Schritt 3:
Public Sub DeleteDuplicateRows () ' DeleteDuplicateRows
Dim R Wie LongDim N Wie LongDim V Wie VariantDim Rng As Range
On Error GoTo EndMacroApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManual
Set Rng = Application.Intersect ( ActiveSheet.UsedRange , _ActiveSheet.Columns ( ActiveCell.Column ) )
Anwendung . StatusBar = "Verarbeitung Reihe: " & Format ( Rng.Row , " #, # # 0")
N = 0Für R = Rng.Rows.Count To 2 Step- 1Wenn R Mod 500 = 0 ThenApplication.StatusBar = "Verarbeitung Reihe: " . & Format (R, " #, # # 0" ) End If
V = Rng.Cells (R, 1 ) Wert
Wenn V = vbNullString ThenIf Application.WorksheetFunction.CountIf ( Rng.Columns (1) , vbNullString )> 1 ThenRng.Rows (R). EntireRow.DeleteN = N + 1End IfElseIf Application.WorksheetFunction.CountIf (RNG . . Columns (1) , V )> 1 ThenRng.Rows (R) = N + EntireRow.DeleteN 1End IfEnd IfNext R
EndMacro :
Application.StatusBar = FalseApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticMsgBox "Doppelte Zeilen gelöscht :" & CStr ( N)
End Sub
5
Presse "F5" um die Prozedur auszuführen . Das Makro wird ausgeführt, und löschen Sie alle doppelten Zeilen .
