Hvordan viser jeg hurtigt alle hyperlinks i Excel?
Når vi bruger et regneark, opretter vi måske mange hyperlinks i det, og nogle gange er vi nødt til at vide, hvor teksterne linker til. Hvis du klikker på dem en efter en, vil det være kedeligt og tidskrævende. Hvis vi kan angive alle hyperlinks med tekster og hyperlinks-adresser i et regneark, vil det være let for os at kontrollere alle hyperlinks i Excel.
Liste over alle valgte hyperlinks med VBA-kode
Uddrag alle faktiske adresser fra hyperlinks med Kutools til Excel
Liste over alle valgte hyperlinks med VBA-kode
1. Vælg det område, som indeholder de hyperlinks, du vil liste.
2. Klik Udvikler>Visual Basic, En ny Microsoft Visual Basic til applikationer vindue vises, skal du klikke indsatte>Moduler, og indtast følgende kode i modulet:
Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub
3. Klik derefter på knappen for at køre koden. Og alle hyperlinks vises i et nyt regneark kaldet Hyperlinkliste. Se skærmbillede:
Uddrag alle faktiske adresser fra hyperlinks med Kutools til Excel
Med Kutools til Excel's Konverter hyperlinks funktion, kan du hurtigt udtrække de rigtige adresser fra hyperlinks.
Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Efter installation Kutools til Excel, gør venligst som følger :( Gratis download Kutools til Excel nu )
1. Vælg de hyperlinks, som du vil udtrække de rigtige destinationer.
2. Klik derefter på Kutools > Link > Konverter hyperlinks, se skærmbillede:
3. I Konverter hyperlinks dialogboksen, vælg Hyperlinks adresser erstatter celleindhold mulighed fra Konverter type sektion, og angiv derefter en celle, hvor du vil placere resultatet under Resultatinterval sektion, se skærmbillede:
4. Klik derefter på OK knap, alle de rigtige adresser er udvundet fra hyperlinks, se skærmbillede:
Bemærk: Konverter kildeområde: de udpakkede resultater findes i det originale celleområde, hvis du markerer denne mulighed.
Gratis download Kutools til Excel nu
Relateret artikel:
Hvordan slettes hurtigt alle hyperlinks 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!