Ako odstrániť duplicitné riadky VBA v programe Excel

Microsoft Visual Basic for Applications ( VBA ) je užívateľsky príjemný programovací jazyk , ktorý je možné prispôsobiť produkty Microsoft Office , ako je Microsoft Excel . Miesto Žirany cez tabuľky programu Excel pre identifikáciu duplicitných riadkov , makro programu Excel môže identifikovať duplicitné riadky . Makro Excel je krátky kus VBA kód , ktorý môžete spustiť priamo z editora jazyka Visual Basic . Pokyny dovolená 1

Vyberte stĺpce dát , ktoré chcete porovnať duplicitné riadky . Napríklad , ak chcete skontrolovať stĺpec A duplicitné riadky , kliknite na " A. "
2

Otvorte VBE stlačením " Alt " a " F11 " spoločne na klávesnici . Tým sa otvorí okno VBE .
3

Kliknite na " Otvoriť " , potom kliknite na " modulu . " Prázdne okno sa otvorí vo VBE .
4

Cut a vložte nasledujúci kód do prázdneho okna z kroku 3 : Spojené

Public Sub DeleteDuplicateRows ( ) " DeleteDuplicateRows

Dim R ako LongDim N , LongDim V ako VariantDim RNG ako výbeh

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

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

Aplikácie . StatusBar = " Spracovanie Row : " & Format ( Rng.Row , " # , # # 0 " )

N = 0For R = Rng.Rows.Count Pro 2 Step - 1Pokud R Mod 500 = 0 ThenApplication.StatusBar = " Spracovanie Row : " & Format ( R , " # , # # 0 " ) End If

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

Ak V = vbNullString ThenIf Application.WorksheetFunction.CountIf ( Rng.Columns ( 1 ) , vbNullString ) > 1 ThenRng.Rows ( R ) . EntireRow.DeleteN = N + 1End ifelseif Application.WorksheetFunction.CountIf ( Rng . Stĺpce ( 1 ) , V ) > 1 ThenRng.Rows ( R ) EntireRow.DeleteN = N + 1End IfEnd IfNext R

EndMacro : .

Application.StatusBar = FalseApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticMsgBox " duplicitné riadky odstránené : " & CStr ( N )

End Sub
5

Stlačte " F5 " pre spustenie procedúry . Makro sa spustí a odstráňte všetky duplicitné riadky .

• Predchádzajúca strana: Čo je Microsoft Excel ? 
• Ďalšia strana: Ako Uvoľniť sa okno tably v programe Excel 2007