En kopi af posten i Microsoft Excel er en post i en kolonne eller række , der matcher andre poster i samme kolonne eller række . Du ønsker måske at fjerne disse dublerede poster at stramme op dine data, men du kan ikke gøre det manuelt , især hvis du har hundredvis af celler af data. Desværre, hvis du arbejder i Microsoft Office Excel , især Excel 2002 og Excel 2003 , fjerne dublerede poster i kolonner eller rækker automatisk er ikke indlysende . Instruktioner
Byg en makro til at fjerne første kolonne dubletter
1
Gennemse til Værktøjer på værktøjslinjen og ned på Makro . Til højre Visual Basic Editor og venstre -klik på den finde . Når i Visual Basic Editor , finde drop- down , der tillader dig at oprette en bruger formular , modul eller klasse modul . Vælg " Modul ".
2
Kopier og indsæt følgende i redigering boks, der åbnes: Sub DelDups_OneList ( ) Dim iListCount Som IntegerDim ICTR As Integer ' Sluk skærmen opdatering til at fremskynde macro.Application . ScreenUpdating = False 'Get optælling af records at søge through.iListCount = Sheets ( " Ark1 " ) Range (" A1: A100 "). . Rows.CountSheets ( " Ark1 " ) Range (" A1" ) Select . '. Loop indtil ultimo records.Do Indtil ActiveCell = "" ' Loop igennem records.For ICTR = 1 til iListCount ' Må ikke sammenligne imod dig selv. ' At angive en anden kolonne , ændre 1 til kolonnen number.If ActiveCell.Row <> Sheets ( " Ark1 "). Celler ( ICTR , 1). Row derefter ' Gør sammenligning af næste record.If ActiveCell.Value = Sheets ( " Ark1 "). Cells ( ICTR , 1). Value Then ' Hvis match er sandt, så slet row.Sheets ( " Ark1 "). Celler ( ICTR , 1). Slet xlShiftUp ' Increment counter til at redegøre for slettede row.iCtr = ICTR + 1End IfEnd IfNext ICTR ' Gå til næste record.ActiveCell.Offset (1, 0) . SelectLoopApplication.ScreenUpdating = TrueMsgBox "Done ! " End Sub
3
Klik på " File" og derefter " Luk og vend tilbage til Microsoft Excel. " Når tilbage til Excel , gå til funktionen Værktøjer på værktøjslinjen og derefter til Makroer. Til højre på " makroer" valgmulighed vælger. I Macro option box , se makroen kaldes DelDups_OneList . Vælg "Options" og tildele en genvejstast af "q ". Klik på "OK".
4
Klik på " Kør". "Done " vises . De dublerede poster i den første kolonne er slettet.
5.
Fordi du har oprettet din genvejstast til Ctrl + q, behøver du kun at skrive Ctrl + q i fremtiden, og de dublerede poster i din første kolonne af data vil blive fjernet.