Preskoči na glavno vsebino

Kako hitro izbrisati vse imenovane obsege v Excelu?

Ob predpostavki, da ste v delovni knjigi ustvarili veliko imenovanih obsegov, zdaj pa vam ni treba več tez z imenovanimi obsegi, kako lahko v Excelu odstranite vse imenovane obsege hkrati?

Izbrišite vse imenovane obsege v upravitelju imen

V pogovornem oknu Upravitelj imen lahko poljubno ustvarjate, urejate in brišete imenovane obsege. Naredite to:

1. Pojdi na Upravitelj imen s klikom Formula > Upravitelj imen, glej posnetek zaslona:
doc-delete-named-obsegi1

2. v Upravitelj imen pogovorno okno, pritisnite Shift tipko, da izberete vse imenovane obsege ali držite tipko Ctrl tipko, da izberete tiste, ki jih ne potrebujete, glejte posnetek zaslona:
doc-delete-named-obsegi1

3. In nato kliknite Brisanje na vrhu pogovornega okna in pojavilo se bo pozivno polje, ki vas bo opozorilo, ali ste prepričani, da ste imena izbrisali.
doc-delete-named-obsegi1

4. Nato kliknite OK, vsi imenovani obsegi so bili hkrati izbrisani.

doc-delete-named-obsegi4 -2 doc-delete-named-obsegi5

Poiščite in zamenjajte vse imenovane obsege z ustreznimi referencami celic v formulah

Kutools za Excel Zamenjajte imena obsegov pripomoček lahko zlahka najde vse formule, ki uporabljajo imenovane obsege v izbranem obsegu, določenem listu ali vseh listih. Primarna vloga tega pripomočka je, da v teh formulah nadomesti vse imenovane obsege z ustreznimi referencami celic.

Zagotovite si 30-dnevno brezplačno preskusno različico vseh funkcij!

oglas nadomesti imenovani obseg 1

Kutools za Excel - Napolnite Excel z več kot 300 osnovnimi orodji. Uživajte v 30-dnevnem BREZPLAČNEM preskusu s polnimi funkcijami brez kreditne kartice! Get It Now

Izbrišite vse imenovane obsege s kodo VBA

Naslednja kratka koda VBA vam lahko pomaga tudi pri odstranjevanju vseh imenovanih obsegov v delovnem zvezku.

1. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: v Excelu izbrišite vse imenovane obsege

Sub DeleteNames()
'Update 20140314
Dim xName As Name
For Each xName In Application.ActiveWorkbook.Names
    xName.Delete
Next
End Sub

3. Nato pritisnite F5 za zagon te kode, bodo vsa imena v delovnem zvezku takoj odstranjena.

Sorodni članki:

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
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 orodij:  12 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...

Opis

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 (8)
Rated 4.5 out of 5 · 1 ratings
keenimo
keenimo
This comment was minimized by the moderator on the site
first if the excel extension is xls then convert it using excel to xlsx .then close excel. make a backup of your xlsx file. rename this backup extension to zip. under zip file there is a xl folder.under the xl folder there is a workbook.xml file. open it with xml notepad and delete defined names. or open it with notepad delete between <definednames> to </definednames>. and also delete this definednames parts too.then save this workbook.xml and drag drop inside zip files xl folder . then save it. and change the extension to xlsx file. open the file and press Ctrl+S. All defined names cleared with hidden ones.
Reply
0
0
Rated 4.5 out of 5
lidwyn
lidwyn
This comment was minimized by the moderator on the site
You should check if it is an internal protected name range like so
```
Sub DeleteNames()
Dim xName As Name
For Each xName In Application.ActiveWorkbook.Names
If Split(xName.Name, ".")(0) <> "_xlfn" Then
xName.Delete
End If
Next
End Sub
```
Reply
0
0
John Galaska
John Galaska     lidwyn
This comment was minimized by the moderator on the site
This was an improved code from the prior. I had many names for which the delete button was dimmed out, wouldn't work, nor would the prior code. Yours removed all but one. Thank you!!
Reply
0
0
lidwyn
lidwyn     lidwyn
This comment was minimized by the moderator on the site 

Sub DeleteNames()
    Dim xName As Name
    For Each xName In Application.ActiveWorkbook.Names
        If Split(xName.Name, ".")(0) <> "_xlfn" Then
            xName.Delete
        End If
    Next
End Sub
Reply
0
0
Murali
Murali
This comment was minimized by the moderator on the site
Run Time Error 7
out of memory
Reply
0
0
skyyang
skyyang     Murali
This comment was minimized by the moderator on the site
Hello, Murali
I have tested the code, it works well in my workbook.
Could you upload your workbook here, so that we can check where the problem is?

Thank you!
Reply
Report
0
0
Ron S
Ron S
This comment was minimized by the moderator on the site
How about something a little more specific.

First Identify all unused named ranges, for review.

Second, macro to delete all unused named ranges.
Reply
0
0
Brendan
Brendan
This comment was minimized by the moderator on the site
When I try to run the above VBA Code, I get the following error:

Run-time error '1004'
The syntax of this name isn't correct.

Verify that the name:
- Starts with a letter or underscore
- Doesn't include a space or character that isn't allowed
- Doesn't conflict with an existing name in the workbook
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations