Een dubbele vermelding in Microsoft Excel is een vermelding in een kolom of rij die overeenkomt met andere items in dezelfde kolom of rij . Misschien wilt u deze dubbele items aan te scherpen uw gegevens te verwijderen , maar je kunt dit niet handmatig te doen , vooral als je honderden cellen van gegevens . Helaas , als je werkt in Microsoft Office Excel , met name Excel 2002 en Excel 2003 , het verwijderen van dubbele vermeldingen in kolommen of rijen is automatisch niet voor de hand . Instructies Bouw een macro naar eerste kolom duplicaten 1 Verwijder Blader naar Extra op de werkbalk en neer te Macro . Naar rechts , vinden de Visual Basic Editor en klik met de linkermuisknop op het. Eenmaal in de Visual Basic Editor , vinden de keuzelijst die u toelaat om een User Form , Module of Class Module te creëren . Kies " Module . " Copy 2 en plak het volgende in het veld editing dat wordt geopend : Sub DelDups_OneList ( ) Dim iListCount Zoals IntegerDim ICTR als Geheel ' Schakel scherm updaten te versnellen macro.Application . ScreenUpdating = False ' Haal tellen van records through.iListCount = Sheets ( " Blad1 " ) zoeken Range ( " A1 : A100 " ) . . Rows.CountSheets ( " Blad1 " ) Range ( " A1 " ) Select . . ' Loop tot eind records.Do Tot ActiveCell = " " ' Loop door records.For ICTR = 1 To iListCount ' Niet te vergelijken tegen jezelf. ' Naar een andere kolom opgeeft , verandert 1 op de kolom number.If ActiveCell.Row < > Sheets ( " Blad1 " ) . Cells ( ICTR , 1 ) . Rij vervolgens ' Do vergelijking van volgende record.If ActiveCell.Value = Sheets ( " Blad1 " ) . Cells ( ICTR , 1 ) . Value Then ' Als wedstrijd waar is, dan verwijdert row.Sheets ( " Blad1 " ) . Cells ( ICTR , 1 ) . verwijder xlShiftUp ' Increment teller om rekening te houden verwijderde row.iCtr = ICTR + 1End IfEnd IfNext ICTR ' Ga naar volgende record.ActiveCell.Offset ( 1 , 0 ) . SelectLoopApplication.ScreenUpdating = TrueMsgBox "Klaar ! " End Sub 3 Klik op " Bestand " en vervolgens " Sluiten en terugkeren naar Microsoft Excel . " Eenmaal teruggekeerd naar Excel , blader naar de optie Extra in de werkbalk en vervolgens op Macro's . Naar rechts , kiest u de optie " Macro's " . In de Macro optie doos , zie de macro genaamd DelDups_OneList . Klik op "Opties " en wijs een sneltoets van " q ". Klik op "OK . " Klik 4 " Run . " " Gereed " verschijnt . De dubbele vermeldingen in de eerste kolom geschrapt . 5 Omdat u uw sneltoets hebt ingesteld voor Ctrl + q , hoeft u alleen maar te typen Ctrl + q in de toekomst en de dubbele vermeldingen in uw eerste kolom van de gegevens zullen worden verwijderd .
|