Wanneer een Excel-spreadsheet groeit tot duizenden of zelfs honderdduizenden omvatten , rijen , het handmatig verwijderen van elke individuele rij zou eeuwig duren . Terwijl een snelle soort gewoon elke lege rij zou verhuizen naar de bodem , in wezen " verwijderen " , zal deze niet werken als je de gegevens nodig hebt voor een verblijf in zijn huidige bestelling . Om lege rijen te verwijderen zonder de volgorde van een werkblad wijzigen , moet u toegang tot Visual Basic console Excel en maak een macro . Instructies
1 Open het Excel-werkblad dat u nodig wilt werken . Druk vervolgens op " Alt " en " F11 " om het openstellen van de Visual Basic -console . Kopen van 2 Klik met de rechtermuisknop op een van de ingangen onder de " VBAProject " rubriek aan de linkerzijde van de VBA -console . Beweeg de muis over " Insert " en kies " Module " uit de lijst met opties . Uw nieuwe module wordt automatisch geselecteerd , en de rechter helft van de console zal een lege witte pagina geworden . Als u meerdere werkbladen geopend , er zeker van zijn dat u het toevoegen van de module naar de juiste " VBAProject . " De naam van het specifieke document zal worden gevestigd aan de rechterkant van de " VBAProject " rubriek
3 Kopieer de volgende code naar de top van de lege module pagina : .
Sub DeleteBlankRows ( ) Dim x
As Long
Met Application
. Berekening = xlCalculationManual
. ScreenUpdating = False End
met
de " Sub " commando maakt de macro- en de " Dim " commando wordt een variabele die je later zult gebruiken . De " Berekening " en " ScreenUpdating " commando uit te schakelen hun respectievelijke functies , waardoor de macro draaien probleemloos op grote spreadsheets
4 Plak de volgende code direct onder de laatste set : .
met ActiveSheet Cells.Replace
_
Wat : = " " , Replacement : = " " , _ LookAt
: = xlWhole , MatchCase : = False
Voor x = . Cells.SpecialCells ( xlCellTypeLastCell ) . Rij _
To 1 Step -1
Als WorksheetFunction.CountA ( . Rijen ( x ) ) = 0 Then
ActiveSheet.Rows ( x ) . Verwijder End
Als Volgende Eind met
de " Cells.Replace " commando , die het bevat twee lijnen direct eronder , ziet er voor alle cellen die net onder een lege ruimte , en vervangt die ruimte met niets . De schrapping proces niet herkent een lege ruimte als een lege cel , dus zonder dat dit stukje code , zou elke rij met slechts een lege ruimte niet krijgen geschrapt . De "For " commando heeft de code start op de laatste cel op het blad en werk zijn weg terug naar de top . De " Als ' statement controleert of de rij leeg is , en vervolgens verwijdert als het
Kopieer 5 en plak de volgende code direct onder het laatste stukje code : .
Met Application . Berekening
= xlCalculationAutomatic
. ScreenUpdating = True End
Met End Sub
Deze code gewoon zet de " Berekening " en " ScreenUpdating " instellingen terug naar normaal en dan sluit je de code met "End sub . " Druk op " Alt " en " F11 " om de VBA console af te sluiten . Al uw wijzigingen worden automatisch opgeslagen .
6 Klik op het tabblad "Ontwikkelaar " aan de bovenkant van het scherm . Klik op de knop " Macro " om een lijst van uw macro's . Selecteer de " DeleteBlankRows " macro en druk op " Run . " De macro zal alle lege rijen van het werkblad te verwijderen .
|
