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

Cum să ștergeți rapid toate intervalele denumite în Excel?

Presupunând că ați creat o mulțime de intervale denumite în registrul dvs. de lucru, dar acum, nu mai aveți nevoie de aceste denumite intervale, cum ați putea elimina toate intervalele denumite simultan în Excel?


Ștergeți toate intervalele denumite accesând Managerul de nume

În caseta de dialog Manager nume, puteți crea, edita și șterge intervalele numite după cum doriți. Vă rugăm să faceți acest lucru:

1. Mergeți la Manager nume dând clicuri Formulă > Manager nume, vezi captura de ecran:
doc-delete-named-range1

2. În Manager nume dialog, apăsați Schimba tasta pentru a selecta toate intervalele numite sau țineți apăsat butonul Ctrl pentru a selecta cele de care nu aveți nevoie, consultați captura de ecran:
doc-delete-named-range1

3. Apoi faceți clic pe Șterge din partea de sus a dialogului și va apărea o casetă de solicitare pentru a vă reaminti dacă sunteți sigur că ștergeți numele.
doc-delete-named-range1

4. Apoi apasa OK, toate intervalele denumite au fost șterse simultan.

doc-delete-named-range4 -2 doc-delete-named-range5

Găsiți și înlocuiți toate intervalele denumite cu referințe de celule corespunzătoare în formule

Kutools pentru Excel Înlocuiți numele de gamă utilitarul este capabil să afle cu ușurință toate formulele care aplică intervale numite într-un interval selectat, o foaie specificată sau toate foile. Și rolul principal al acestui utilitar este de a înlocui toate intervalele denumite cu referințe de celule corespunzătoare din aceste formule.


anunțul înlocuiește intervalul numit 1

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Ia-L Acum

Ștergeți toate intervalele denumite cu codul VBA

Următorul cod VBA scurt vă poate ajuta, de asemenea, să eliminați toate intervalele denumite din registrul de lucru.

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: ștergeți toate intervalele denumite în Excel

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

3. Apoi apăsați F5 tasta pentru a rula acest cod, toate numele din registrul de lucru vor fi eliminate imediat.


Legate de articole:


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (6)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Când încerc să rulez codul VBA de mai sus, primesc următoarea eroare:

Eroare de rulare „1004”
Sintaxa acestui nume nu este corectă.

Verificați dacă numele:
- Începe cu o literă sau subliniere
- Nu include un spațiu sau un caracter care nu este permis
- Nu intră în conflict cu un nume existent în registrul de lucru
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ce zici de ceva un pic mai specific.

Mai întâi, identificați toate intervalele denumite neutilizate, pentru examinare.

În al doilea rând, macro pentru a șterge toate intervalele denumite neutilizate.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Eroare de rulare 7
fara memorie
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Murali
Am testat codul, funcționează bine în registrul meu de lucru.
Ați putea să vă încărcați registrul de lucru aici, astfel încât să putem verifica unde este problema?

Mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ar trebui să verificați dacă este un interval de nume protejat intern ca acesta
`` `
Sub DeleteNames()
Dim xName ca nume
Pentru fiecare xName din Application.ActiveWorkbook.Names
Dacă Split(xName.Name, ".")(0) <> "_xlfn" Atunci
xNume.Șterge
Final, dacă
Pagina Următoare →
End Sub
`` `
Acest comentariu a fost redus la minimum de moderatorul de pe 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
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL