Wie liste ich schnell alle Hyperlinks in Excel auf?
Wenn wir ein Arbeitsblatt verwenden, erstellen wir möglicherweise viele Hyperlinks darin, und manchmal müssen wir wissen, wo die Texte verlinken. Wenn Sie nacheinander darauf klicken, ist dies mühsam und zeitaufwändig. Wenn wir alle Hyperlinks mit Texten und Hyperlinkadressen in einem Arbeitsblatt auflisten können, können wir alle Hyperlinks in Excel leicht überprüfen.
Listen Sie alle ausgewählten Hyperlinks mit VBA-Code auf
Extrahieren Sie mit Kutools for Excel alle tatsächlichen Adressen aus Hyperlinks
Listen Sie alle ausgewählten Hyperlinks mit VBA-Code auf
1. Wählen Sie den Bereich aus, der die Hyperlinks enthält, die Sie auflisten möchten.
2. Klicken Sie Entwickler:in / Unternehmen>Visual BasicEin neuer Microsoft Visual Basic für Anwendungen Fenster wird angezeigt, klicken Sie auf Insert>Modulund geben Sie den folgenden Code in das Modul ein:
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. Dann klick Schaltfläche, um den Code auszuführen. Alle Hyperlinks werden in einem neuen Arbeitsblatt mit dem Namen angezeigt Hyperlink-Liste. Siehe Screenshot:
Extrahieren Sie mit Kutools for Excel alle tatsächlichen Adressen aus Hyperlinks
Mit der Kutools for Excel Hyperlinks konvertieren Mit dieser Funktion können Sie schnell die tatsächlichen Adressen aus den Hyperlinks extrahieren.
Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor :( Laden Sie Kutools for Excel jetzt kostenlos herunter )
1. Wählen Sie die Hyperlinks aus, aus denen Sie die tatsächlichen Ziele extrahieren möchten.
2. Dann klick Kutoolen > Link > Hyperlinks konvertieren, siehe Screenshot:
3. In dem Hyperlinks konvertieren Dialogfeld auswählen Hyperlink-Adressen ersetzen den Zelleninhalt Option von der Typ konvertieren Geben Sie dann eine Zelle an, in der Sie das Ergebnis unter dem Feld ablegen möchten Ergebnisbereich Abschnitt, siehe Screenshot:
4. Dann klick OK Schaltfläche, alle realen Adressen wurden aus den Hyperlinks extrahiert, siehe Screenshot:
Note: Quellbereich konvertieren: Die extrahierten Ergebnisse befinden sich im ursprünglichen Zellbereich, wenn Sie diese Option aktivieren.
Laden Sie Kutools for Excel jetzt kostenlos herunter
Verwandte Artikel:
Wie lösche ich schnell alle Hyperlinks in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!