Note: The other languages of the website are Google-translated. Back to English

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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
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!
dno pisarniške mize
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL