Jak szybko wyświetlić wszystkie hiperłącza w programie Excel?
Kiedy używamy arkusza roboczego, być może tworzymy w nim wiele hiperłączy, a czasami musimy wiedzieć, do których prowadzą linki. Jeśli klikniesz je jeden po drugim, będzie to żmudne i czasochłonne. Jeśli umieścimy wszystkie hiperłącza z tekstami i adresami hiperłączy w arkuszu roboczym, będzie nam łatwo sprawdzić wszystkie hiperłącza w Excelu.
Wymień wszystkie wybrane hiperłącza z kodem VBA
Wyodrębnij wszystkie rzeczywiste adresy z hiperłączy za pomocą Kutools for Excel
Wymień wszystkie wybrane hiperłącza z kodem VBA
1. Wybierz zakres, który zawiera hiperłącza, które chcesz wyświetlić.
2. Kliknij Deweloper>Visual Basic, Nowy Microsoft Visual Basic dla aplikacji zostanie wyświetlone okno, kliknij wstawka>Modułi wprowadź następujący kod do modułu:
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. Następnie kliknij przycisk, aby uruchomić kod. Wszystkie hiperłącza zostaną wyświetlone w nowym arkuszu o nazwie Lista hiperłączy. Zobacz zrzut ekranu:
Wyodrębnij wszystkie rzeczywiste adresy z hiperłączy za pomocą Kutools for Excel
Z Kutools dla programu Excel'S Konwertuj hiperłącza możesz szybko wyodrębnić prawdziwe adresy z hiperłączy.
Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności :( Bezpłatne pobieranie Kutools dla programu Excel teraz )
1. Wybierz hiperłącza, które chcesz wyodrębnić rzeczywiste miejsca docelowe.
2. Następnie kliknij Kutools > Połączyć > Konwertuj hiperłączazobacz zrzut ekranu:
3, w Konwertuj hiperłącza okno dialogowe, wybierz Adresy hiperłączy zastępują zawartość komórki opcja z Konwertuj typ , a następnie określ komórkę, w której chcesz umieścić wynik w obszarze Zakres wyników sekcja, patrz zrzut ekranu:
4. Następnie kliknij OK przycisk, wszystkie prawdziwe adresy zostały wyodrębnione z hiperłączy, patrz zrzut ekranu:
Note: Konwertuj zakres źródła: wyodrębnione wyniki będą znajdować się w oryginalnym zakresie komórek, jeśli zaznaczysz tę opcję.
Bezpłatne pobieranie Kutools dla programu Excel teraz
Powiązany artykuł:
Jak szybko usunąć wszystkie hiperłącza w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!