Microsoft Visual Basic for Applications ( VBA ) är en användarvänlig programmeringsspråk som kan skräddarsy Microsoft Office-produkter som Microsoft Excel . Istället för poring genom ett Excel-ark för att identifiera dubblerade rader , kan ett Excel-makro identifiera eventuella dubblerade rader . En Excel-makro är en kort bit av VBA -kod som du kan köra direkt från Visual Basic Editor . Instruktioner
1
Markera kolumner med data som du vill jämföra för dubblettrader . Till exempel , om du vill kontrollera kolumn A för dubbla rader , klicka på " A. "
2
Öppna VBE genom att trycka på " Alt " och " F11 " tillsammans på tangentbordet . Detta öppnar VBE fönstret .
3
Klicka på " Öppna " och klicka på " Modul . " Ett tomt fönster öppnas i VBE .
4
Klipp och klistra in följande kod i det tomma fönstret från Steg 3 :
Public sub DeleteDuplicateRows ( ) ' DeleteDuplicateRows
Dim R Som LongDim N Som 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 ) ) katalog
Application . StatusBar = " Processing Row : " & Format ( Rng.Row , " # , # # 0 " ) katalog
N = 0For R = Rng.Rows.Count Till 2 Step - 1Om R Mod 500 = 0 ThenApplication.StatusBar = " Processing Row : " . & Format ( R , " # , # # 0 " ) End If
V = Rng.Cells ( R , 1 ) Värde
Om 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 :
Application.StatusBar = FalseApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticMsgBox " dubbletter borttagna rader : " & CStr ( N ) katalog
End Sub
5
Tryck " F5 " för att köra proceduren . Makrot körs och ta bort eventuella dubblerade rader .
