Hoppa till huvudinnehåll

Hur hittar jag var ett visst namngivet intervall används i Excel?

Efter att du har skapat ett namngivet intervall kan du använda det namngivna intervallet i många celler och formler. Men hur får man reda på dessa celler och formler i aktuell arbetsbok? Den här artikeln introducerar tre knepiga sätt att lösa det enkelt.

Hitta var ett visst namngivet intervall används med funktionen Sök och ersätt

Hitta var ett visst namngivet intervall används med VBA

Hitta var ett visst namngivet intervall används med Kutools för Excel


pil blå höger bubbla Hitta var ett visst namngivet intervall används med funktionen Sök och ersätt

Vi kan enkelt använda Excel Sök och ersätt för att ta reda på alla celler som använder det angivna intervallet. Gör så här:

1. tryck på ctrl + F samtidigt för att öppna dialogrutan Sök och ersätt.

Anmärkningar: Du kan också öppna dialogrutan Sök och ersätt genom att klicka på Hem > Hitta och välj > hitta.

2. I dialogrutan Sök och ersätt öppnar du följande skärmdump:

doc där namngivet intervall används 1

 

(1) Skriv in namnet på vissa namngivna intervall i Hitta det låda;

(2) Välj Arbetsbok från Inom rullgardinsmeny;

(3) Klicka på Hitta alla knapp.

Anmärkningar: Om rullgardinsmenyn Inom är osynlig, klicka på Tillbehör för att utöka sökalternativen.

Nu ser du alla celler som innehåller namnet på det angivna namngivna området visas längst ned i dialogrutan Sök och ersätt. Se skärmdump:

doc där namngivet intervall används 2

Anmärkningar: Metoden Sök och ersätt hittar inte bara alla celler som använder detta specifika namngivna intervall, utan hittar också alla celler som täcker detta namngivna intervall.


pil blå höger bubbla Hitta var ett visst namngivet intervall används med VBA

Denna metod introducerar ett VBA-makro för att ta reda på alla celler som använder det angivna intervallet i Excel. Gör så här:

1. tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic for Applications-fönstret.

2. Klicka på Insert > Modulerna, och kopiera och klistra in följande kod i öppningsmodulfönstret.

VBA: Hitta var ett visst namngivet intervall används

Sub Find_namedrange_place()
Dim xRg As Range
Dim xCell As Range
Dim xSht As Worksheet
Dim xFoundAt As String
Dim xAddress As String
Dim xShName As String
Dim xSearchName As String
On Error Resume Next
xShName = Application.InputBox("Please type a sheet name you will find cells in:", "Kutools for Excel", Application.ActiveSheet.Name)
Set xSht = Application.Worksheets(xShName)
Set xRg = xSht.Cells.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Not xRg Is Nothing Then
xSearchName = Application.InputBox("Please type the name of named range:", "Kutools for Excel")
Set xCell = xRg.Find(What:=xSearchName, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
        If Not xCell Is Nothing Then
xAddress = xCell.Address
If IsPresent(xCell.Formula, xSearchName) Then
xFoundAt = xCell.Address
End If
            Do
Set xCell = xRg.FindNext(xCell)
If Not xCell Is Nothing Then
If xCell.Address = xAddress Then Exit Do
If IsPresent(xCell.Formula, xSearchName) Then
If xFoundAt = "" Then
xFoundAt = xCell.Address
Else
xFoundAt = xFoundAt & ", " & xCell.Address
End If
End If
Else
Exit Do
End If
Loop
End If
If xFoundAt = "" Then
MsgBox "The Named Range was not found", , "Kutools for Excel"
Else
MsgBox "The Named Range has been found these locations: " & xFoundAt, , "Kutools for Excel"
End If
On Error Resume Next
xSht.Range(xFoundAt).Select
End If
End Sub
Private Function IsPresent(sFormula As String, sName As String) As Boolean
Dim xPos1 As Long
Dim xPos2 As Long
Dim xLen As Long
Dim I As Long
xLen = Len(sFormula)
xPos2 = 1
Do
xPos1 = InStr(xPos2, sFormula, sName) - 1
If xPos1 < 1 Then Exit Do
IsPresent = IsVaildChar(sFormula, xPos1)
xPos2 = xPos1 + Len(sName) + 1
If IsPresent Then
If xPos2 <= xLen Then
IsPresent = IsVaildChar(sFormula, xPos2)
End If
End If
Loop
End Function
Private Function IsVaildChar(sFormula As String, Pos As Long) As Boolean
Dim I As Long
IsVaildChar = True
For I = 65 To 90
If UCase(Mid(sFormula, Pos, 1)) = Chr(I) Then
IsVaildChar = False
Exit For
End If
Next I
If IsVaildChar = True Then
If UCase(Mid(sFormula, Pos, 1)) = Chr(34) Then
IsVaildChar = False
End If
End If
If IsVaildChar = True Then
If UCase(Mid(sFormula, Pos, 1)) = Chr(95) Then
IsVaildChar = False
End If
End If
End Function
3. Klicka på Körning knappen eller tryck på F5 Nyckel för att köra denna VBA.

4. Skriv nu kalkylbladets namn i den första öppningen Kutools för Excel-dialogrutan och klicka på OK knapp; och sedan i den andra öppningsdialogrutan, skriv in namnet på ett visst namngivet intervall i det och klicka på OK knapp. Se skärmdumpar:

5. Nu kommer den tredje dialogrutan Kutools för Excel ut och listar celler med det angivna intervallet som visas nedan.

När du klickat på OK för att stänga denna dialogruta, väljs dessa hittade celler i det angivna kalkylbladet på en gång.

Anmärkningar: Denna VBA kan bara leta efter celler som använder det angivna intervallet i ett kalkylblad åt gången.


pil blå höger bubblaHitta var ett visst namngivet intervall används med Kutools för Excel

I dig har Kutools för Excel installerat, dess Ersätt intervallnamn verktyget kan hjälpa dig att hitta och lista alla celler och formler som använder det angivna intervallet i Excel.

Kutools för Excel - Fullpackad med över 300 viktiga verktyg för Excel. Njut av en fullfjädrad 30-dagars GRATIS provperiod utan behov av kreditkort! Ladda ner nu!

1. Klicka på Kutools > Snarare > Ersätt intervallnamn för att öppna dialogrutan Ersätt intervallnamn.

doc ersätter intervallnamn

2. Gå till öppningsdialogrutan Byt ut intervallnamn Namn fliken och klicka på Basnamn rullgardinsmeny och välj det specifika namngivna intervallet från det som visas nedan:

doc där namngivet intervall används 4

Nu listas alla celler och motsvarande formler som använder det angivna intervallet i dialogrutan på en gång.

3. Stäng dialogrutan Ersätt intervallnamn.

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


Kutools för Excel: Över 300 praktiska verktyg till hands! Börja din 30-dagars gratis provperiod utan funktionsbegränsningar idag. Ladda ner nu!

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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In your VBA code, row 19 is in RED text before I even attempt to run it... I know there will be a problem. Once I run the code that line (#19) gives an error message:Compile error: syntax error
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations