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. |
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
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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!