En kopi av oppføringen i Microsoft Excel er en oppføring i en kolonne eller rad som matcher andre oppføringer i samme kolonne eller rad . Det kan være lurt å fjerne disse doble oppføringer å stramme opp dine data , men du kan ikke gjøre dette manuelt , spesielt hvis du har hundrevis av celler av data . Dessverre, hvis du arbeider i Microsoft Office Excel , særlig Excel 2002 og Excel 2003 , fjerne duplikater i kolonner eller rader er automatisk ikke opplagt. Instruksjoner
Bygg en makro for å fjerne første kolonne duplikater
en

Bla til Verktøy på verktøylinjen og ned til makro. Til høyre finner Visual Basic-redigering og venstre -klikk på den. En gang i Visual Basic-redigering , finne drop- down som lar deg lage en bruker skjema , modul eller klasse Module . Velg " Module ".
2

Kopier og lim inn følgende i redigering boksen som åpnes: Sub DelDups_OneList ( ) Dim iListCount Som IntegerDim ICTR As Integer ' Slå av skjermen oppdateres å fremskynde macro.Application . ScreenUpdating = False ' Få telling av postene for å søke through.iListCount = Sheets ( " Ark1 ") Range (" A1 : A100 ") . . Rows.CountSheets ( " Ark1 ") Range (" A1 ") Select . '. Loop til slutten av records.Do inntil ActiveCell = "" ' Loop gjennom records.For ICTR = 1 To iListCount ' Ikke sammenligne mot deg selv . ' Hvis du vil angi en annen kolonne , endre en til kolonnen nummer.Hvis ActiveCell.Row <> Sheets ( " Ark1 ") . Cells ( ICTR , 1 ) . Row Then ' Gjør sammenligning av neste record.If ActiveCell.Value = Sheets ( " Ark1 ") . Cells ( ICTR , 1 ) . Verdi Then ' Hvis kampen er sant deretter slette row.Sheets ( " Ark1 ") . Cells ( ICTR , 1 ) . Slett xlShiftUp ' Increment mot å redegjøre for slettet row.iCtr = ICTR + 1End IfEnd IfNext ICTR ' Gå til neste record.ActiveCell.Offset ( 1 , 0 ) . SelectLoopApplication.ScreenUpdating = TrueMsgBox " Ferdig ! " End Sub
3

Klikk på "File " og deretter " Lukk og gå tilbake til Microsoft Excel. " Når tilbake til Excel , bla til alternativet Verktøy i verktøylinjen og deretter til Makroer . Til høyre , velg " Makroer " alternativet . I Macro alternativet boksen , se makro kalt DelDups_OneList . Velg "Valg" og tildele en hurtigtast for "q ". Klikk "OK".
4

Klikk "Kjør". "Ferdig " vises . Er de doble oppføringer i den første kolonnen slettet.
5

Fordi du har satt opp din hurtigtast for Ctrl + q , trenger du bare å skrive Ctrl + q i fremtiden og du duplikater i første kolonnen av data vil bli fjernet.