Bij het maken van rijen en kolommen in Excel , kan je eindigen met een aantal duplicaten van een object , vooral als je lijst songs . Gebruikers hebben de mogelijkheid om te filteren deze en ze te verwijderen via het Excel-werkblad gereedschappen . Maar wanneer een spreadsheet is lang en voortdurend verandert , kunt u een kleine Visual Basic Script ( VBScript ) naar Excel naar de dubbele inhoud te identificeren en snel te verwijderen het uit te voeren . Instructies 1 Open de data sheet in Excel . Druk " Alt " 2 en " F11 " om de Visual Basic Editor te openen . < br > 3 Selecteer het tabblad "Invoegen " in de bovenste werkbalk en kies 4 Plak de volgende code in het vak dat verschijnt " Module . " : " Option Explicit Sub DeleteDups ( ) Dim x Zoals LongDim LastRow zoals lang LastRow = Range ( " A65536 " ) . End ( xlUp ) . RowFor x = LastRow To 1 Step - 1Als Application . WorksheetFunction.CountIf ( Range ( " A1 : A " . & x ) , Range ( " A " & x ) tekst ) . > 1 ThenRange ( " A " & x ) EntireRow.DeleteEnd IfNext x < br End > Sub " 5 Sluit het venster door te klikken op de " X "in de rechterbovenhoek . Test 6 de functie door het toevoegen van gegevens aan kolom A. Dupliceer een aantal van de gegevens met opzet . 7 Selecteer " Macro's " van de bovenste werkbalk en kies " DeleteDups " en druk op " Enter ".
|