Ako odstrániť duplicity z Excelu Makro

duplicitné záznam v programe Microsoft Excel je zápis v stĺpci alebo riadku , ktorý zodpovedá iné položky v rovnakom stĺpci alebo riadku . Možno budete chcieť odstrániť tieto duplicitné položky na sprísniť vaše dáta , ale môžete to urobiť ručne , a to najmä ak máte stovky buniek dát . Bohužiaľ , ak pracujete v aplikácii Microsoft Office Excel , najmä Excel 2002 a Excel 2003 , odstránenie duplicitných položiek v stĺpcoch alebo riadkoch automaticky , nie je zrejmé . Návod
Build makro odobrať prvý stĺpec Duplikáty
1

Prehľadávať Nástroje na paneli nástrojov a dole na príkaz Makro . Na pravej strane nájdite Editor jazyka Visual Basic a kliknite ľavým tlačidlom myši na neho . Potom, čo v editore jazyka Visual Basic , nájdete na rozbaľovací zoznam , ktorý vám umožní vytvoriť Užívateľ formulár , modul alebo modul triedy . Vyberte " . Modul "
2

Skopírujte a vložte nasledujúci do editačného poľa , ktoré sa otvorí : Sub DelDups_OneList ( ) Dim iListCount Ako IntegerDim ICTR As Integer ' Vypnite aktualizáciu obrazovky na urýchlenie macro.Application . ScreenUpdating = False ' Get počet záznamov na vyhľadávanie through.iListCount = Sheets ( " Hárok1 " ) Range ( " A1 : A100 " ) .... Rows.CountSheets ( " Hárok1 " ) Range ( " A1 " ) Zvoľte " Loop , kým koniec records.Do Do ActiveCell = " " ' Loop through records.For ICTR = 1 Ak iListCount " Neporovnávajte proti sebe . " Ak chcete zadať iný stĺpec , zmeniť 1 na stĺpec number.If ActiveCell.Row < > Sheets ( " Hárok1 " ) . Bunky ( ICTR , 1 ) . Riadok Then ' Páči porovnaní najbližších record.If ActiveCell.Value = listy ( " Hárok1 " ) . Cells ( ICTR , 1 ) . Value Then ' Ak je zápas je pravda , potom odstráňte row.Sheets ( " Hárok1 " ) . Cells ( ICTR , 1 ) . Zmazať xlShiftUp " prírastok počítadlo zodpovedať za odstránenej row.iCtr = ICTR + 1End IfEnd IfNext ICTR " Prejsť na ďalšiu record.ActiveCell.Offset ( 1 , 0 ) . SelectLoopApplication.ScreenUpdating = TrueMsgBox " Hotovo ! " End Sub
3

Kliknite na " Súbor " a potom " Zavrieť a vrátiť sa do programu Excel . " Potom, čo sa vrátil do programu Excel , prejdite na položku Nástroje v paneli nástrojov a potom na tlačidlo Makrá . Na pravej strane vyberte možnosť " makrá " . V Makro možnosť boxe , pozri makro s názvom DelDups_OneList . Zvoľte " Možnosti " a priradiť klávesovú skratku pre " q " . Kliknite na tlačidlo " OK " .
4

Kliknite na " Spustiť " . " Hotovo " sa zobrazí . Duplicitné položky v prvom stĺpci vypúšťajú .
5

Pretože ste nastavili klávesovú skratku pre Ctrl + Q , len musíte zadať Ctrl + Q v budúcnosti a duplicitné položky vo vašom prvý stĺpec dát budú odstránené .

• Predchádzajúca strana: Ako používať Excel 2007 
• Ďalšia strana: Ako nakupovať Microsoft Excel Software