Note: The other languages of the website are Google-translated. Back to English

Hoe verwijder ik alle behalve geselecteerde bereiken in Excel?

In Excel kunnen we de geselecteerde bereiken snel en direct verwijderen, maar heb je ooit geprobeerd om andere celinhoud te verwijderen dan de geselecteerde bereiken? In dit artikel zal ik enkele trucs voor u introduceren om deze taak snel en gemakkelijk in Excel op te lossen.

Verwijder alle behalve geselecteerde bereiken met VBA-code

Verwijder alle behalve geselecteerde bereiken met Select Range Helper van Kutools voor Excel

Verwijder alle behalve geselecteerde bereiken met Copy Ranges of Kutools voor Excel


Verwijder alle behalve geselecteerde bereiken met VBA-code

Er is geen directe manier om alle niet-geselecteerde celwaarden in één keer te verwijderen, maar de volgende VBA-code kan u helpen, doe dit als volgt:

1. Houd de Ctrl toets om de cellen te selecteren die u wilt behouden.

doc alles verwijderen behalve geselecteerde 1

2. pers Alt + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassing venster.

3. In de Microsoft Visual Basic voor toepassing dialoogvenster, klik op Invoegen > Module, kopieer en plak vervolgens de onderstaande VBA-code in het Module venster.

VBA-code: verwijder alle celwaarden, maar de geselecteerde bereiken

Sub ClearAllExceptSelection()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the ranges want to keep", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In ActiveSheet.UsedRange
        If Intersect(xCell, xRg) Is Nothing Then
            xCell.Clear
        End If
    Next
    Application.ScreenUpdating = xUpdate
End Sub

4. Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het celbereik te selecteren dat u wilt behouden.Als u de bereiken in stap1 hebt geselecteerd, klikt u op OKAls dit niet het geval is, kunt u de gewenste cellen in het promptvenster selecteren en de komma's invoeren om de meerdere bereiken te scheiden, en vervolgens klikken op OK knop, zie screenshot:

doc alles verwijderen behalve geselecteerde 2

5. Na het klikken OK, alle andere celwaarden zijn verwijderd, maar verlaten gewoon de geselecteerde bereiken, zie screenshot:

doc alles verwijderen behalve geselecteerde 3


Verwijder alle behalve geselecteerde bereiken met Select Range Helper van Kutools voor Excel

Als je hebt geïnstalleerd Kutools for Excel, Met Inverse selectie kenmerk van Selecteer Range Helper hulpprogramma kunt u de selectie snel ongedaan maken en vervolgens de omgekeerde selecties in één keer verwijderen.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. 

Na het installeren van Kutools for Excel, doe dan als volgt :( Gratis download Kutools voor Excel nu! )

1. Selecteer het celbereik dat u wilt behouden.

2. Dan klikken Kutools > kies > Selecteer Range Helper, zie screenshot:

3. In de Selecteer Range Helper dialoogvenster, vink aan Inverse selectie, zie screenshot:

doc alles verwijderen behalve geselecteerde 5

4. En sleep vervolgens de muis om het bereik te selecteren waarvan u de selecties wilt omkeren. Wanneer u de muis loslaat, zijn de geselecteerde cellen gedeselecteerd en zijn de niet-geselecteerde cellen meteen geselecteerd. Zie screenshot:

doc alles verwijderen behalve geselecteerde 6

5. Sluit vervolgens het dialoogvenster en druk op Verwijder toets om de selecties in één keer te verwijderen. En alleen de door u gewenste cellen zijn bewaard gebleven, zie screenshot:

doc alles verwijderen behalve geselecteerde 7

Gratis download Kutools voor Excel nu!


Verwijder alle behalve geselecteerde bereiken met Select Range Helper van Kutools voor Excel

Een ander hulpprogramma-Kopieer bereiken of Kutools for Excel kan u ook helpen bij het voltooien van deze taak, u hoeft alleen uw geselecteerde bereiken naar een nieuw werkblad te kopiëren en vervolgens het oude werkblad te verwijderen.

Na het installeren van Kutools for Excel, voer de volgende stappen uit :( Gratis download Kutools voor Excel nu! )

1. Houden Ctrl toets om het celbereik te selecteren dat u wilt behouden.

2. Dan klikken Kutools > Kopieer bereiken, zie screenshot:

3. En in de Kopieer meerdere bereiken dialoogvenster, vink aan Alles optie onder de Plakken speciaal, controleren Inclusief rijhoogte en Inclusief kolombreedte Zie screenshot als je de gewenste rijhoogte en kolombreedte wilt behouden:

doc alles verwijderen behalve geselecteerde 9

4. Dan klikken Ok knop, en er verschijnt een ander promptvenster om u eraan te herinneren een cel te selecteren om de gekopieerde cellen te plaatsen.Selecteer een cel in een nieuw werkblad, zie screenshot:

doc alles verwijderen behalve geselecteerde 10

5. En klik vervolgens op OK, en alleen uw geselecteerde bereiken zijn in het nieuwe werkblad geplakt, en nu kunt u het originele werkblad naar behoefte verwijderen.

Gratis download Kutools voor Excel nu!


Demo: verwijder alle behalve geselecteerde bereiken met Kutools voor Excel

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (0)
Nog geen beoordelingen. Beoordeel als eerste!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL