Gå til hovedindhold

Hvordan udskiftes rækkenavne med cellehenvisninger i Excel?

Nogle mennesker foretrækker at bruge mange rækkeviddenavne i deres formler, fordi de føler, at det er klarere og lettere at læse og forstå. Men hvis du vil se de faktiske cellereferencer, hvordan skal du gøre det? Her introducerer denne tutorial to hurtige tricks til at løse dette problem.

Erstat rækkevidde med VBA-kode;

Udskift hurtigt og nemt rækkeviddenavne med Kutools til Excel.

For eksempel i dette regneark vil jeg navngive interval A2: A6 som Udsalgsprisog navngiv B2 som rabatog derefter bruge begge rækkevidden i en formel til at beregne den nye pris. Se skærmbillede:

           

Efter at have fulgt de hurtige tricks erstattes rækkevidden med cellereference som vist nedenfor:


pil blå højre boble Erstat rækkevidde med VBA-kode

Ved hjælp af VBA til at erstatte formelens rækkevidde med cellehenvisninger kan du få det gjort trin for trin som følger:

1. Vælg det interval, der indeholder de formler, du vil erstatte deres navne med cellereferencer.

2. klik Udvikler > Visual Basic or Alt + F11 at åbne et nyt Microsoft Visual Basic til applikationer vindue vises, skal du klikke indsatte>Moduler, og indtast derefter følgende koder i modulet:

VBA-kode: Erstat rækkevidden med Absolut reference

Sub AbsoleteNamesWithRelativeRefs()
'Updateby20140603
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
    For Each xName In ThisWorkbook.Names
        If InStr(Rng.Formula, xName.Name) > 0 Then
            Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(VBA.Replace(xName.RefersTo, "=", ""), "$", ""))
        End If
    Next
Next
End Sub

VBA-kode: Erstat rækkevidde med relativ reference

Sub ReplaceNamesWithRelativeRefs()
'Updateby20140603
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
    For Each xName In ThisWorkbook.Names
        If InStr(Rng.Formula, xName.Name) > 0 Then
            Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(xName.RefersTo, "=", ""))
        End If
    Next
Next
End Sub

3. Klik derefter på  for at køre koden, vises en dialogboks til valg af et område, der skal udskiftes. Se skærmbillede:

4. Klik derefter på OK. og alle de valgte formelintervaller er blevet erstattet. Se skærmbillede:

 

Erstat rækkevidde med relative cellereferencer

 

Erstat rækkevidde med absolutte cellehenvisninger



pil blå højre boble Udskift hurtigt og nemt rækkeviddenavne med Kutools til Excel

Hvis du har Kutools til Excel, dens Erstat rækkevidde hjælpeprogram hjælper dig med at erstatte rækkevidde med cellehenvisninger hurtigt og nemt.

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Få det nu

Trin 1. Anvend dette værktøj ved at klikke på Kutools > Flere værktøjer > Erstat rækkevidde. Se skærmbillede:

Trin 2. En pop op-dialogboks navngivet Erstat rækkevidde vises, og klik på Range sektion, og vælg derefter det område, du vil erstatte med cellehenvisninger fra Basis rækkevidde. Se skærmbillede:

Trin 3. Klik udskifte, En anden Erstat rækkevidde pop op-dialogboks vises for at fortælle dig antallet af ændrede formler og uændrede formler. Klik på Ok, og derefter er rækkevidden i det valgte rang blevet erstattet med cellehenvisninger. Se skærmbillede:

For mere detaljeret information om Erstat rækkevidde, Kan du besøge Erstat beskrivelse af funktionsnavn.


Relativ artikel:

Skift cellereference i formler til rækkevidde i Excel

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Muchas gracias por el post! Me ha funcionado la macro perfectamente, una ayuda buenísima
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations