Radera alla namn men några

January 18

Vill du rutinmässigt arbeta med kalkylblad som innehåller tiotals (eller hundratals) av namngivna celler, och de flesta av dessa namn är onödiga? Rensa upp namnen är en enorm uppgift, men att bli av de du inte behöver kan göra din arbetsbok mindre och effektivare. Problemet är, hur du bli av med en massa onödiga namn på en gång? Du kan säkert ta bort dem en i taget, men en sådan process snabbt blir tröttsamt.

En möjlig lösning är att helt enkelt skapa en ny arbetsbok och kopiera cellerna från den gamla arbetsboken till den nya. Markera cellerna i den gamla arbetsboken, använd Ctrl + C för att kopiera dem och sedan klistra in dem i kalkylblad i ny arbetsbok. Detta kommer att kopiera nästan allt från de gamla arbetsbok-formler, formatering, etc. Det är inte föra exemplar över utskriftsinställningar eller områdesnamn. Den enda uppgiften då återstår är att omdefiniera några namn som du vill ha i den nya arbetsboken.

Om du föredrar att arbeta med gamla arbetsboken (den med alla namn), är det bäst att skapa ett makro som kommer att göra det känt rader för dig. Du behöver ett makro som gör att du kan ta bort alla namn utom de du vill behålla. Följande är en enkel metod som utför denna uppgift:

Sub DeleteSomeNames ()
Dim vKeep
Dim nm Som Namn
Dim x As Integer
Dim AWF Som WorksheetFunction

"Lägg Namn att hålla här
vKeep = Array ("Namn1", "Name2")

Ställ AWF = Application.WorksheetFunction
För varje nm I ActiveWorkbook.Names
x = 0
On Error Resume Next
x = AWF.Match (nm.Name, vKeep, 0)
On Error GoTo 0
Om x = 0 Då
nm.Delete
End If
Nästa
Ställ AWF = Nothing
End Sub

Innan du använder makrot, ändra raden som skapar vKeep array. Skriv bara in de namn du vill att hålla sig inom matrisen, varje namn som omges av citattecken och avgränsas med kommatecken. (I det exemplet, kommer namnen "NAME1" och "NAME2" hållas.) Makro loopar genom alla namn i arbetsboken och använder Match funktionen för att se om namnet är en i arrayen. Om det inte är, då den tas bort.

Om du föredrar att använda en tredjepartslösning för hantering namnen i arbetsboken, är ett utmärkt val för Namn chef tillägget, skriven av Jan Karel Pieterse. Du kan hitta mer information om tillägget här:

http://www.jkp-ads.com/officemarketplacenm-en.asp

ExcelTips är din källa för kostnadseffektiv Microsoft Excel utbildning. Detta tips (2419) gäller för Microsoft Excel 97, 2000, 2002, och 2003. Du kan hitta en version av detta tips för menyfliksområdet i Excel (Excel 2007 och senare) här: Ta bort alla namn men några.