Hoppa till huvudinnehåll

Hur tar jag snabbt bort alla namngivna intervall i Excel?

Förutsatt att du har skapat många namngivna intervall i din arbetsbok, men nu behöver du inte dessa namngivna områden längre, hur kan du ta bort alla de namngivna områdena samtidigt i Excel?


Ta bort alla namngivna intervall genom att gå till Namnhanteraren

I dialogrutan Namnhanterare kan du skapa, redigera och ta bort de namngivna områdena som du vill. Gör så här:

1. Gå till Namnhanterare genom att klicka Formel > Namnhanterare, se skärmdump:
doc-delete-named-ranges1

2. I Namnhanterare tryck på shift för att välja alla namngivna intervall eller hålla ned ctrl för att välja de som du inte behöver, se skärmdump:
doc-delete-named-ranges1

3. Och klicka sedan på Radera -knappen högst upp i dialogrutan och en rutan visas för att påminna dig om du är säker på att du tar bort namnen.
doc-delete-named-ranges1

4. Klicka sedan OK, alla namngivna intervall har tagits bort på en gång.

doc-delete-named-ranges4 -2 doc-delete-named-ranges5

Hitta och ersätt alla namngivna intervall med motsvarande cellreferenser i formler

Kutools för Excel Ersätt intervallnamn verktyget kan enkelt ta reda på alla formler som använder namngivna intervall i ett valt intervall, ett angivet ark eller alla ark. Och detta verktygs primära roll är att ersätta alla namngivna intervall med motsvarande cellreferenser i dessa formler.


annons ersätter namngivet intervall 1

Kutools för Excel - Superladda Excel med över 300 viktiga verktyg. Njut av en fullfjädrad 30-dagars GRATIS provperiod utan behov av kreditkort! Hämta den nu

Ta bort alla namngivna intervall med VBA-kod

Följande korta VBA-kod kan också hjälpa dig att ta bort alla namngivna intervall i arbetsboken.

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Ta bort alla namngivna områden i Excel

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

3. Tryck sedan på F5 för att köra den här koden kommer alla namn i arbetsboken att tas bort omedelbart.


Relaterade artiklar:

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (8)
Rated 4.5 out of 5 · 1 ratings
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.
Rated 4.5 out of 5
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
```
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!!
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
This comment was minimized by the moderator on the site
Run Time Error 7
out of memory
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!
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.
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations