Microsoft Visual Basic for Applications ( VBA ) er et brukervennlig programmeringsspråk som kan tilpasse Microsoft Office-produkter som Microsoft Excel. I stedet for å fordype gjennom et Excel- regneark for å identifisere dupliserte rader , kan en Excel makro identifisere eventuelle like rader . En Excel makro er en liten del av VBA-kode som du kan kjøre direkte fra Visual Basic-redigering . Instruksjoner
en

Velg kolonner av data som du ønsker å sammenligne for like rader . For eksempel, hvis du ønsker å sjekke kolonne A for duplikatrader , klikk på " A."
2

Åpne VBE ved å trykke " Alt" og " F11 " sammen på tastaturet . Dette åpner VBE vinduet.
3

Klikk på "Open" og klikk på " Module . " En tom åpnes i VBE .
4

Klipp ut og lim inn følgende kode inn i tomt vindu fra Trinn 3 :

Public Sub DeleteDuplicateRows ( ) ' DeleteDuplicateRows

Dim R As LongDim N As LongDim V Som VariantDim Rng Som Range

On Error GoTo EndMacroApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManual

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

Application . Statuslinjekontrollen = " Processing Row :" & Format ( Rng.Row , "# , # # 0 ")

N = 0 ° C R = Rng.Rows.Count til to Step- 1Hvis R Mod 500 = 0 ThenApplication.StatusBar = " Processing Row: " . & Format (R , "# , # # 0 ") End If

V = Rng.Cells ( R 1) Verdi
p Hvis V = vbNullString ThenIf Application.WorksheetFunction.CountIf ( Rng.Columns ( 1 ) , vbNullString ) > 1 ThenRng.Rows ( R ) . EntireRow.DeleteN = N + 1End IfElseIf Application.WorksheetFunction.CountIf ( Rng . . Søyler ( 1 ) , V) > 1 ThenRng.Rows ( R ) EntireRow.DeleteN = N + 1End IfEnd IfNext R

EndMacro : en

Application.StatusBar = FalseApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticMsgBox " duplikatrader slettede :" & CStr ( N)

End Sub
5

Trykk " F5 " for å kjøre prosedyren . Makroen vil kjøre og slette eventuelle like rader .