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.

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:

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

---

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.

Ga naar downloaden Gratis proefperiode 30 dagenKoop nu jouw PayPal / Mijn Handel

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:

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:

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:

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:

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:

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