KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe verwijdert u alles, behalve het geselecteerde bereik, in Excel?

AuteurXiaoyang Wijzigingsdatum

In Excel kunt u het geselecteerde bereik snel en direct verwijderen, maar heeft u ooit geprobeerd alle andere celinhoud te verwijderen, behalve het geselecteerde bereik? In dit artikel introduceer ik enkele handige trucs waarmee u deze taak snel en eenvoudig in Excel uitvoert.

Alles behalve Bereik selecteren verwijderen met VBA-code

Alles behalve Bereik selecteren verwijderen met Bereikhelper van Kutools voor Excel

Alles behalve Bereik selecteren verwijderen met Bereiken kopiëren van Kutools voor Excel

Alles behalve Bereik selecteren verwijderen met VBA-code

Er is geen directe manier om alle niet-geselecteerde celwaarden tegelijkertijd te verwijderen, maar met de volgende VBA-code lukt het u in een handomdraai. Volg deze stappen:

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

Een schermafbeelding met geselecteerde cellen in Excel

2. Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

3. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module, en kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.

VBA-code: verwijder alle celwaarden behalve de Bereik selecteren

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 om deze code uit te voeren. Er verschijnt een meldingsvenster waarin u wordt gevraagd het celbereik te selecteren dat u wilt behouden. Als u de bereiken al hebt geselecteerd in stap 1, klikt u op OK. Zo niet, selecteert u de gewenste cellen in het meldingsvenster en gebruikt u komma’s om meerdere bereiken te scheiden. Klik daarna op de knop OK, zie screenshot:

Een schermafbeelding van het dialoogvenster om bereiken te selecteren voor verwijdering in Excel

5. Nadat u op OK hebt geklikt, zijn alle overige celwaarden verwijderd, behalve de geselecteerde bereiken. Zie screenshot:

Een schermafbeelding met het eindresultaat na het verwijderen van niet-geselecteerde cellen in Excel

Alles behalve Bereik selecteren verwijderen met Bereikhelper van Kutools voor Excel

Als u Kutools voor Excel hebt geïnstalleerd, kunt u met de functie Omgekeerde Selectie van het hulpprogramma Bereikhelper uw selectie snel omkeren en vervolgens alle omgekeerde geselecteerde cellen in één keer verwijderen.

Kutools voor Excelbiedt meer dan 300 geavanceerde functies om complexe taken te stroomlijnen, waardoor creativiteit en efficiëntie worden verhoogd.Geïntegreerd met AI-mogelijkheden, automatiseert Kutools taken met precisie, zodat databeheer moeiteloos verloopt.Gedetailleerde informatie over Kutools voor Excel...         Gratis proefversie...

Na het installeren van Kutools voor Excel, volgt u de volgende stappen:

1. Selecteer de celbereiken die u wilt behouden.

2. Klik vervolgens op Kutools > Selecteren > Bereikhelper, zie screenshot:

Een schermafbeelding van de functie Selecteer Bereik Helper op het Kutools-tabblad in het lint

3. Schakel in het dialoogvenster Bereikhelper de optie Omgekeerde Selectie in, zie screenshot:

Een schermafbeelding van de optie Omgekeerde Selectie

4. Sleep vervolgens met de muis het bereik waarvan u de selectie wilt omkeren. Zodra u de muisknop loslaat, worden de eerder geselecteerde cellen gedeselecteerd en de eerder niet-geselecteerde cellen geselecteerd. Zie screenshot:

Een schermafbeelding met de omgekeerde selectie met behulp van Kutools

5. Sluit het dialoogvenster en druk op de Delete-toets om alle geselecteerde cellen in één keer te verwijderen. Alleen de gewenste cellen blijven behouden—zie screenshot:

Een schermafbeelding met het eindresultaat na het verwijderen van niet-geselecteerde cellen met behulp van Kutools

Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen

Alles behalve Bereik selecteren verwijderen met Bereikhelper van Kutools voor Excel

Een ander handig hulpprogramma – Bereik kopiëren van Kutools voor Excel – helpt u ook bij deze taak. Selecteer eenvoudig het gewenste bereik, kopieer het naar een nieuw werkblad en verwijder daarna het oude werkblad.

Na het installeren van Kutools voor Excel, volgt u de volgende stappen:

1. Houd de Ctrl-toets ingedrukt om de celbereiken te selecteren die u wilt behouden.

2. Klik vervolgens op Kutools > Bereiken kopiëren, zie screenshot:

Een schermafbeelding van de optie Kopieer Bereiken op het Kutools-tabblad in het lint

3. Schakel in het dialoogvenster Meerdere bereiken kopiëren de optie Alles in onder Plakken speciaal. Schakel ook Rijhoogte opnemen en Kolombreedte opnemen in als u de rijhoogte en kolombreedte die u wilt behouden, mee wilt nemen. Zie screenshot:

Een schermafbeelding van het dialoogvenster Kopieer Meerdere Bereiken

4. Klik vervolgens op de knop Ok. Er verschijnt een nieuw meldingsvenster waarin u wordt gevraagd een cel te selecteren om de gekopieerde cellen in te voegen. Selecteer een cel op een nieuw werkblad, zie screenshot:

Een schermafbeelding met de prompt om een cel te selecteren om gekopieerde bereiken in te plakken

5. Klik daarna op OK. Alleen uw geselecteerde bereik is nu in het nieuwe werkblad geplakt, en u kunt het originele werkblad naar wens verwijderen.

Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen

Demo: Alles behalve Bereik selecteren verwijderen met Kutools voor Excel

Kutools voor Excel: Meer dan 300 handige tools binnen handbereik! Profiteer van AI-ondersteunde functies voor slimmer en sneller werken!Nu downloaden!

Beste Office-productiviteitshulpmiddelen

🤖KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...

Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

  • Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
  • Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!

Alle Kutools-add-ins in één installatieprogramma.

Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.

ExcelWordOutlookTabsPowerPoint
  • Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
  • Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
  • Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
  • 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
  • Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins