Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako v Excelu izbrišete vse izbrane obsege?

V Excelu lahko izbrane obsege hitro in neposredno izbrišemo, ali ste kdaj poskusili izbrisati druge celične vsebine, razen izbranih obsegov? Ta članek, vam bom predstavil nekaj trikov za rešitev te naloge v Excelu hitro in enostavno.

Izbrišite vse izbrane obsege s kodo VBA

Izbrišite vse izbrane obsege z orodjem Select Range Helper za Kutools za Excel

Izbrišite vse izbrane obsege z območji za kopiranje Kutools za Excel


Kopirajte in prilepite več razporedov naenkrat:

Običajno Excel ne podpira več kopij, ampak če imate Kutools za Excel, Z njegovim Kopiraj razmere funkcijo, lahko hitro kopirate več izbranih obsegov in jih prilepite na poljubno drugo mesto, kot je potrebno.

doc izbriši vse, razen izbrane 11


Izbrišite vse izbrane obsege s kodo VBA


Nimate neposrednega načina, da bi izbrisali vse vrednosti, ki niso bile izbrane, hkrati, vendar vam lahko pomaga naslednja koda VBA, naredite naslednje:

1. Prosim, držite Ctrl da izberete celice, ki jih želite obdržati.

doc izbriši vse, razen izbrane 1

2. Pritisnite Alt + F11 tipke hkrati odpreti Microsoft Visual Basic za aplikacijo okno.

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

VBA koda: izbrišite vse celične vrednosti, vendar izbrane obsege

Sub ClearAllExceptSelection()
'updateby Extendoffice 20151113
    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 ključ za zagon te kode in izpisano je polje za hitro klicanje, ki vas opomni, da izberete obseg celic, ki jih želite obdržati, če ste izbrali obsege v korak1, kliknite OK, če ne, lahko izberete želene celice v pozivnem polju in vnesete vejice, da ločite več obsegov, nato kliknite OK gumb, si oglejte posnetek zaslona:

doc izbriši vse, razen izbrane 2

5. Po kliku OK, so bile vse druge vrednosti celice izbrisane, vendar le zapušča izbrane obsege, glejte sliko zaslona:

doc izbriši vse, razen izbrane 3


Izbrišite vse izbrane obsege z orodjem Select Range Helper za Kutools za Excel

Če ste namestili Kutools za Excel, Z njegovim Inverse Selection značilnost Izberite sredino pomoči uporabnost, lahko hitro izbrišete izbrano možnost in takoj izbrišete obrnjene izbire.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Ko namestite Kutools za Excel, storite naslednje :( Brezplačno prenesete Kutools za Excel zdaj! )

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

2. Nato kliknite Kutools > Izberite > Izberite sredino pomoči, si oglejte sliko zaslona:

doc izbriši vse, razen izbrane 4

3. v Izberite sredino pomoči pogovorno okno, preveri Inverse Selection, si oglejte sliko zaslona:

doc izbriši vse, razen izbrane 5

4. In nato povlecite miško, da izberete obseg, ki ga želite obrniti na izbire. Ko sprostite miško, so izbrane celice izbrisane in izbrane celice so bile izbrane hkrati. Prikaz slike:

doc izbriši vse, razen izbrane 6

5. Nato zaprite pogovorno okno in pritisnite Brisanje da izbrišete izbire hkrati. In shranjene so bile samo želene celice, glejte sliko zaslona:

doc izbriši vse, razen izbrane 7

Brezplačno prenesete Kutools za Excel zdaj!


Izbrišite vse izbrane obsege z orodjem Select Range Helper za Kutools za Excel

Druga korist -Kopiraj razmere of Kutools za Excel prav tako vam lahko pomagate dokončati to opravilo, samo želite kopirati izbrane obsege na nov delovni list in nato izbrisati starejši delovni list.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Po namestitvi Kutools za Excel, storite z naslednjimi koraki :( Brezplačno prenesete Kutools za Excel zdaj! )

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

2. Nato kliknite Kutools > Kopiraj razmere, si oglejte sliko zaslona:

doc izbriši vse, razen izbrane 8

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

doc izbriši vse, razen izbrane 9

4. Nato kliknite Ok gumb in drugo potrditveno polje se bo pojavilo, da vas opomni, da izberete celico, da bi kopirali celice, prosimo, izberite celico v novem delovnem listu, si oglejte posnetek zaslona:

doc izbriši vse, razen izbrane 10

5. In nato kliknite OKin samo vaši izbrani obsegi so bili prilepeni na nov delovni list, zdaj pa lahko izbrišete prvotni delovni list, kot ga potrebujete.

Brezplačno prenesete Kutools za Excel zdaj!


Demo: Izbrišite vse izbrane obsege z Kutools za Excel

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.