Jak rychle zobrazit seznam všech hypertextových odkazů v aplikaci Excel?
Když používáme list, možná v něm vytvoříme mnoho hypertextových odkazů a někdy potřebujeme vědět, kam text odkazuje. Pokud na ně kliknete jeden po druhém, bude to zdlouhavé a časově náročné. Pokud můžeme zobrazit všechny hypertextové odkazy s texty a adresami hypertextových odkazů v listu, bude pro nás snadné zkontrolovat všechny hypertextové odkazy v aplikaci Excel.
Seznam všech vybraných hypertextových odkazů s kódem VBA
Extrahujte všechny skutečné adresy z hypertextových odkazů pomocí programu Kutools pro Excel
Seznam všech vybraných hypertextových odkazů s kódem VBA
1. Vyberte rozsah, který obsahuje hypertextové odkazy, které chcete vypsat.
2, klikněte Vývojka>Visual Basic, nový Microsoft Visual Basic pro aplikace Zobrazí se okno, klikněte na Vložit>Modula do modulu zadejte následující kód:
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. Pak klikněte na tlačítko tlačítko pro spuštění kódu. A všechny hypertextové odkazy se zobrazí v novém listu s názvem Seznam hypertextových odkazů. Viz snímek obrazovky:
Extrahujte všechny skutečné adresy z hypertextových odkazů pomocí programu Kutools pro Excel
S Kutools pro ExcelJe Převést hypertextové odkazy funkce, můžete rychle extrahovat skutečné adresy z hypertextových odkazů.
Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. |
Po instalaci Kutools pro Excel, postupujte následovně :( Zdarma ke stažení Kutools pro Excel )
1. Vyberte hypertextové odkazy, ze kterých chcete extrahovat skutečné cíle.
2. Pak klikněte na tlačítko Kutools > Odkaz > Převést hypertextové odkazy, viz screenshot:
3. V Převést hypertextové odkazy dialogové okno vyberte Adresy hypertextových odkazů nahrazují obsah buňky možnost z nabídky Převést typ sekce a poté zadejte buňku, kam chcete výsledek vložit pod Rozsah výsledků sekce, viz screenshot:
4. Pak klikněte na tlačítko OK tlačítko, všechny skutečné adresy byly extrahovány z hypertextových odkazů, viz screenshot:
Poznámka: Převést rozsah zdroje: extrahované výsledky budou umístěny na původní rozsah buněk, pokud zaškrtnete tuto možnost.
Zdarma ke stažení Kutools pro Excel
Související článek:
Jak rychle odstranit všechny hypertextové odkazy v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!