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:
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 |
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
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...
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!