Ako odstrániť duplicitné riadky v Exceli pomocou VBA

Niektoré tabuľky sú používané a aktualizované veľa . Tie sú často naplnené dátami , ktorý sa opakuje viackrát . Existujú spôsoby , ako nájsť a odstrániť všetky riadky , ktoré obsahujú , že duplicitné dáta , ale jeden z najjednoduchších a automatických spôsobov , ako to dosiahnuť , je pomocou makra jazyka Visual Basic . Excel obsahuje aplikáciu pre programovanie s názvom Excel VBA , ktoré môžu byť použité , aby sa ľubovoľný počet maker - kusy kódu , ktoré majú robiť vlastnú prácu kedykoľvek predvolaný . Veci , ktoré budete potrebovať v Microsoft Excel
Zobraziť ďalšie inštrukcie
Programovanie makro foto 1

Otvorte si tabuľku v Exceli a otvoriť VBA editor stlačením Alt a kláves F11 na vašom počítači .
2

Spustenie nového projektu kliknutím pravým tlačidlom myši zošit v ponuke vpravo a výberom voľby " Nový " .
3

Začať novú funkciu s " Sub DeleteDuplicateRows ( ) . " Tento informuje VBA kompilátora , že je nový podprogram , že by mali byť vedomí .
4

Vytvorenie premenné s nasledujúci kód :

Dim Row Ako Počet LongDim Ako LongDim porovnaní Ako VariantDim rozsah Ako

To hovorí systému , aby zrušil štyri premenné ( riadok , počítať , porovnanie a rozsah ) na použitie v kóde . Môžete použiť akékoľvek názvy premenných väčší zmysel pre vás , ale nezabudnite ich zmeniť v neskoršej kóde
5

Nastavenie makra s nejakou ďalšie základné kód : .

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

Set Rozsah = Application.Intersect ( ActiveSheet.UsedRange , _ActiveSheet.Columns ( ActiveCell.Column ) ) Application.StatusBar = " Spracovanie Row : " & Format ( Rng.Row , " # , # # 0 " )

Prvá skupina kódu hovorí systéme spustiť makro v prípade , že beží do problémov . Druhá skupina nastaví premennú rozsahu podľa čokoľvek vybrala užívateľ
6

Zadajte nasledujúci kód : .

Count = 0For riadok = Range.Rows.Count Pre 2. krok - 1Pokud Row Mod 500 = 0 ThenApplication.StatusBar = " Spracovanie Row : " & Format ( R , " # , # # 0 " ) End If

Porovnajte = Range.Cells ( riadok , 1 ) . Hodnota

To hovorí , že systém prechádzať každý z riadkov vybraných užívateľom a zmeňte Porovnať premennú na danom riadku zakaždým , keď sa pohybuje na .
7

vstup nasledujúci kód nasledujúce :

Ak V = vbNullString ThenIf Application.WorksheetFunction.CountIf ( Rng.Columns ( 1 ) , vbNullString ) > 1 ThenRng.Rows ( R ) EntireRow.DeleteN = N + 1End ifelseif aplikácie . . WorksheetFunction.CountIf ( Rng.Columns ( 1 ) , V ) > 1 ThenRng.Rows ( R ) . EntireRow.DeleteN = N + 1End IfEnd Ak

Tieto tvrdenia sú tie , ktoré skutočne povedať , že systém nákupný Porovnať premenné do ďalšej bunky a odstrániť riadok , ak dva sú rovnaké .
8

Stlačením klávesu ENTER vložte niekoľko nových liniek , a potom zadajte " Ďalšie Row " . To hovorí , že systém prestane pri pohľade na prvom riadku , a presunúť na ďalšie
9

Zatvorte z funkcie s : .

EndMacro :

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

End Sub

Tieto záverečnej riadky vysvetliť systému , ako ukončiť podprogram von , a tiež sa zobrazí užitočné správou informujúca užívateľa , že makro vlastne robil to , čo mal urobiť .
Použitie makro
10

Uložte tabuľku . Uložiť druhý , záložnú kópiu pred použitím makra . Buď skopírovať a vložiť súbor do priečinka zálohy , alebo nám " Uložiť ako " súbor uložiť druhá kópia , budete musieť ukončiť aplikáciu Excel a znova otvorte .
11

Kliknite a pretiahnite kurzor okolo najdôležitejších stĺpec dát . To je ten , o ktorom všetky záznamy by sa mali líšiť , ako , keby všetko bolo zadané správne , by nemali byť žiadne duplicitné položky .
12

Otvorte menu " Nástroje " a vyberte " ; . makrá " Toto otvorí dialógové okno makrá , ktorá vám umožní vybrať a spustiť makro
13

Vyberte makrá ; . ak ste použili vyššie uvedený príklad , bude nazývaný " . DelDuplicateR " , potom kliknite na tlačidlo " Spustiť " . Makro sa spustí automaticky , a pop - up správy o tom , že sa duplicity boli odstránené .

• Predchádzajúca strana: Ako upraviť Microsoft Excel 
• Ďalšia strana: Ako používať Word makrá vložiť tabuľky programu Excel