Hvor å fjerne alle, men valgte områder i Excel

There er ingen direkte måte for deg å slette alle uselekterte celleverdier på en gang, men følgende VBA-kode kan hjelpe deg, kan du gjøre som følger:?
1. Vennligst hold Ctrl-tasten for å velge cellene som du ønsker å beholde.
To. Trykk ALT + F11 tastene samtidig for å åpne Microsoft Visual Basic for Application vinduet.
3. I Microsoft Visual Basic for Application dialogvinduet klikker Sett > Modul, og deretter kopiere og lime inn nedenfor VBA kode i modulen vinduet
VBA-kode. Slette alle celleverdier, men de valgte områdene
Sub ClearAllExceptSelection () 'updateby Extendoffice 20151113 Dim XRG Som Range Dim Xcell Som Range Dim xAddress As String Dim xUpdate som boolsk On Error Resume Next xAddress = Application.ActiveWindow.RangeSelection.Address Set XRG = Application.InputBox ("Vennligst velg områdene vil beholde", "Kutools for Excel", xAddress,,,,, 8) Hvis XRG Er Ingenting Deretter Exit Sub xUpdate = Application.ScreenUpdating Application.ScreenUpdating = False For Hver Xcell I ActiveSheet.UsedRange hvis Intersect (Xcell, XRG) Er Ingenting Deretter xCell.Clear End If Neste Application.ScreenUpdating = xUpdateEnd Sub4. Deretter trykker F5 for å kjøre denne koden, og en rask merket spratt ut for å minne deg på å velge celleområdet som du vil beholde, hvis du har valgt områdene i trinn 1, kan du klikke OK, hvis ikke, kan du velge cellene du vil i rask boksen, og angi komma for å skille flere områder, og klikk deretter på OK-knappen, se skjermbilde:
5. Etter å ha klikket OK, alle andre celleverdier er slettet, men bare forlate de utvalgte områdene, se skjermbilde:

Slett alle, men utvalgte områder med Select Range Helper av Kutools for Excel
Hvis du har installert Kutools for Excel, med sin Inverse Utvalg funksjon i Select Range Helper verktøyet, kan du raskt reversere valget, og deretter slette de revers valg samtidig
Kutools for Excel. med mer enn 120 praktiske Excel-tillegg, fri til å prøv uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter installering Kutools for Excel, kan du gjøre som følger :( Gratis Last ned Kutools for Excel nå!)
1. Velg celleområder som du ønsker å beholde.
To. Klikk deretter Kutools > Velg > Velg Range Helper, se skjermbilde:
tre. I Select Range Helper dialogboksen, sjekk Inverse Selection, se skjermbilde:
4. Og deretter dra musen for å velge området som du ønsker å reversere valg. Når du slipper museknappen, har de valgte cellene blitt deaktivert og uselekterte celler har blitt valgt på en gang. Se skjermbilde:
5. Deretter lukker du dialogboksen og trykk Delete-tasten for å slette valgene samtidig. Og bare dine ønskede celler har blitt holdt, se skjermbilde: Kanal Gratis nedlasting Kutools for Excel nå!

Slett alle, men utvalgte områder med Select Range Helper av Kutools for Excel
annen utility-Copy Ranges av Kutools for Excel kan også hjelpe deg med å fullføre denne jobben, du trenger bare å kopiere de valgte områdene til en ny regneark, og deretter slette den gamle regneark
Kutools for Excel. med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter installering Kutools for Excel, kan du gjøre med de neste trinnene :( Gratis Last ned Kutools for Excel nå!)
1. Hold Ctrl-tasten for å velge celleområder som du ønsker å beholde.
To. Klikk deretter Kutools > Kopier Ranges, se skjermbilde:
tre. Og i dialogboksen kopiere flere Ranges boksen, sjekk All alternativ under Lim inn spesiell, sjekk inkludert radhøyde og med kolonnebredde hvis du vil beholde radhøyde og kolonnebredde som du vil, se skjermbilde:
4 . Klikk deretter på OK-knappen, og en annen rask boks vil komme ut for å minne deg velge en celle for å sette de kopierte celler, kan du velge en celle i et nytt regneark, se skjermbilde:
5. Og klikk deretter på OK, og bare de valgte områdene har blitt limt inn i det nye regnearket, og nå kan du slette den opprinnelige regnearket som du trenger.
Gratis nedlasting Kutools for Excel nå!