Preskoči na glavno vsebino

Kako izbrisati vse, razen izbranih obsegov v Excelu?

V Excelu lahko hitro in neposredno izbrišemo izbrane obsege, vendar ste že kdaj poskušali izbrisati druge vsebine celic, razen izbranih obsegov? V tem članku vam bom predstavil nekaj trikov za hitro in enostavno reševanje te naloge v Excelu.

Izbrišite vse obsege, razen izbranih, s kodo VBA

Izbrišite vse obsege, razen izbranih, s Pomočnikom za izbiro obsega Kutools za Excel

Z obsegom kopiranja Kutools za Excel izbrišite vse obsege, razen izbranih


Izbrišite vse obsege, razen izbranih, s kodo VBA

Ne morete neposredno izbrisati vseh neizbranih vrednosti celic hkrati, vendar vam bo morda v pomoč naslednja koda VBA, naredite naslednje:

1. Pridržite Ctrl tipko, da izberete celice, ki jih želite obdržati.

doc izbriši vse, razen izbranega 1

2. Pritisnite Alt + F11 tipke hkrati, da odprete Microsoft Visual Basic za uporabo okno.

3. v Microsoft Visual Basic za uporabo okno, kliknite Vstavi > Moduli, nato kopirajte in prilepite spodnjo kodo VBA v Moduli okno.

Koda VBA: izbrišite vse vrednosti celic, razen izbranih obsegov

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. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opozorilo, da izberete obseg celic, ki jih želite obdržati. Če ste obsege izbrali v 1. koraku, kliknite OK, če ne, lahko v pozivnem polju izberete želene celice in vnesete vejice, da ločite več obsegov, nato pa kliknete OK gumb, glej posnetek zaslona:

doc izbriši vse, razen izbranega 2

5. Po kliku OK, vse druge vrednosti celic so bile izbrisane, vendar samo, če zapustite izbrane obsege, glejte posnetek zaslona:

doc izbriši vse, razen izbranega 3


Izbrišite vse obsege, razen izbranih, s Pomočnikom za izbiro obsega Kutools za Excel

Če ste namestili Kutools za Excel, Z njegovim Inverzna izbira značilnost Izberite Range Helper Pripomoček lahko hitro obrnete izbor in nato naenkrat izbrišete obrnjene izbore.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. 

Po namestitvi Kutools za Excel, naredite naslednje :( Brezplačno prenesite Kutools za Excel zdaj! )

1. Izberite obsege celic, ki jih želite obdržati.

2. Nato kliknite Kutools > Izberite > Izberite Range Helper, glej posnetek zaslona:

3. v Izberite Range Helper pogovorno okno, preverite Inverzna izbira, glej posnetek zaslona:

doc izbriši vse, razen izbranega 5

4. Nato povlecite miško, da izberete obseg, ki ga želite obrniti. Ko spustite miško, so bile izbrane celice preklicane in neizbrane celice so bile izbrane hkrati. Oglejte si posnetek zaslona:

doc izbriši vse, razen izbranega 6

5. Nato zaprite pogovorno okno in pritisnite Brisanje tipko, da izbrišete izbire hkrati. In ohranjene so bile le vaše želene celice, glejte posnetek zaslona:

doc izbriši vse, razen izbranega 7

Brezplačno prenesite Kutools za Excel zdaj!


Izbrišite vse obsege, razen izbranih, s Pomočnikom za izbiro obsega Kutools za Excel

Druga korist -Obsegi kopiranja of Kutools za Excel lahko tudi vam pomaga dokončati to opravilo, kopirati morate izbrane obsege na nov delovni list in nato izbrisati stari.

Po namestitvi Kutools za Excel, naredite naslednje: Brezplačno prenesite Kutools za Excel zdaj! )

1. Drži Ctrl tipko, da izberete obseg celic, ki jih želite obdržati.

2. Nato kliknite Kutools > Obsegi kopiranja, glej posnetek zaslona:

3. In v Kopirajte več razponov pogovorno okno, preverite vsi možnost pod Prilepite posebno, preveri Vključno z višino vrstice in Vključno s širino stolpca če želite obdržati želeno višino vrstice in širino stolpca, si oglejte posnetek zaslona:

doc izbriši vse, razen izbranega 9

4. Nato kliknite Ok in pojavilo se bo drugo pozivno polje, ki vas bo opozorilo, da izberete celico, v katero želite kopirati celice, izberite celico v novem delovnem listu, glejte posnetek zaslona:

doc izbriši vse, razen izbranega 10

5. In nato kliknite OK, in samo izbrani obsegi so bili prilepljeni v nov delovni list, zdaj pa lahko izvirni delovni list po potrebi izbrišete.

Brezplačno prenesite Kutools za Excel zdaj!


Predstavitev: z Kutools za Excel izbrišite vse obsege, razen izbranih

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations