En kopia av posten i Microsoft Excel är en post i en kolumn eller rad som matchar övriga poster i samma kolumn eller rad . Du kanske vill ta bort dessa dubbletter för att strama upp dina data , men du kan inte göra detta manuellt , särskilt om du har hundratals celler av data. Tyvärr , om du arbetar i Microsoft Office Excel , i synnerhet Excel 2002 och Excel 2003 , ta bort dubbletter i kolumner eller rader automatiskt är inte självklart . Instruktioner
Bygg ett makro för att ta bort första kolumnen dubbletter
1
Bläddra till Verktyg i verktygsfältet och ner på Makro . Till höger hittar Visual Basic Editor och vänster -klicka på det . Väl i Visual Basic Editor , hitta den nedrullningsbara som låter dig skapa en User Form , modul eller klass modul . Välj " Modul . "
2
Kopiera och klistra in följande i redigering rutan som öppnas : Sub DelDups_OneList ( ) Dim iListCount Som IntegerDim ICTR As Integer ' Stäng av skärmen uppdateras för att påskynda macro.Application . ScreenUpdating = False ' Get räkna poster att söka through.iListCount = Sheets ( " Blad1 " ) Range ( " A1 : A100 " ) . . Rows.CountSheets ( " Blad1 " ) Range ( " A1 " ) Select . . " Loop tills slutet av records.Do tills ActiveCell = " " 'Gå igenom records.For ICTR = 1 att iListCount " jämför inte mot dig själv . " Om du vill ange en annan kolumn , ändra 1 till kolonnen number.If ActiveCell.Row < > Sheets ( " Blad1 " ) . Cells ( ICTR , 1 ) . Row Then ' Gör jämförelse av nästa record.If ActiveCell.Value = Ark ( " Blad1 " ) . Celler ( ICTR , 1 ) . Value Then ' Om matchen är sant då radera row.Sheets ( " Blad1 " ) . Celler ( ICTR , 1 ) . radera xlShiftUp " Tillväxt motverka att redovisa raderade row.iCtr = ICTR + 1End IfEnd IfNext ICTR ' Gå till nästa record.ActiveCell.Offset ( 1 , 0 ) . SelectLoopApplication.ScreenUpdating = TrueMsgBox " Done ! " End Sub
3
Klicka på " File " och sedan " Stäng och gå tillbaka till Microsoft Excel . " När återvände till Excel , bläddra till alternativet Verktyg i verktygsfältet och sedan på Makron . Till höger , välj " Makron " alternativet . I Macro alternativet rutan , se makrot kallas DelDups_OneList . Välj "Alternativ" och tilldela ett kortkommando för " q ". Klicka på " OK . "
4
Klicka på " Kör". " Klar " visas . De dubbla poster i den första kolumnen utgå .
5
Eftersom du har ställt in kortkommando för Ctrl + Q , behöver du bara skriva Ctrl + Q i framtiden och de dubbla poster i din första kolumnen av data kommer att tas bort .
