Microsoft Visual Basic for Applications ( VBA ) er et brugervenligt programmeringssprog, som kan tilpasse Microsoft Office-produkter som Microsoft Excel. I stedet for poring gennem et Excel-regneark til at identificere dubletter kan en Excel-makro identificere eventuelle dubletter . En Excel makro er et kort stykke VBA-kode , som du kan køre direkte fra Visual Basic Editor. Instruktioner
1

Vælg de kolonner af data, som du ønsker at sammenligne for dubletter rækker. For eksempel, hvis du ønsker at kontrollere kolonne A for dubletterne klik på "A. "
2

Åben VBE ved at trykke på "Alt " og " F11 " sammen på tastaturet . Dette åbner VBE -vinduet.
3

Klik på "Åbn " og derefter klikke på " Modul ". En tom vindue vil åbne i VBE .
4

klippe og indsætte følgende kode i tomt vindue fra Trin 3:

Public sub DeleteDuplicateRows ( ) " DeleteDuplicateRows

Dim R Som LongDim N Som LongDim V Som VariantDim Rng Som Range < br >

Ved fejl GoTo EndMacroApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManual

Set Rng = Application.Intersect ( ActiveSheet.UsedRange , _ActiveSheet.Columns ( ActiveCell.Column ) )

Application . StatusBar = " Behandler Row: " & Format ( Rng.Row , "# , # # 0")

N = 0For R = Rng.Rows.Count Til 2 Step- 1Hvis R Mod 500 = 0 ThenApplication.StatusBar = " Behandler Row: " . & format (R, "# , # # 0") End If

V = Rng.Cells ( R 1 ) Value < br >

Hvis V = vbNullString ThenIf Application.WorksheetFunction.CountIf ( Rng.Columns (1), vbNullString ) > 1 ThenRng.Rows (R). EntireRow.DeleteN = N + 1End IfElseIf Application.WorksheetFunction.CountIf ( Rng . . kolonner ( 1 ) , V )> 1 ThenRng.Rows ( R) EntireRow.DeleteN = N + 1End IfEnd IfNext R

EndMacro : Hej

Application.StatusBar = FalseApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticMsgBox " Duplicate slettede rækker :" & CStr (N)

End Sub
5

Tryk på " F5 " for at køre proceduren. Makroen vil køre og slette dublerede rækker.