Przejdź do głównej zawartości

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


strzałka niebieski prawy bąbelek 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 doc-pomnóż-obliczenie-3 przycisk, aby uruchomić kod. Wszystkie hiperłącza zostaną wyświetlone w nowym arkuszu o nazwie Lista hiperłączy. Zobacz zrzut ekranu:

lista-dokumentów-wszystkie-hiperłącza


strzałka niebieski prawy bąbelek 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:

lista-dokumentów-wszystkie-hiperłącza

4. Następnie kliknij OK przycisk, wszystkie prawdziwe adresy zostały wyodrębnione z hiperłączy, patrz zrzut ekranu:

lista-dokumentów-wszystkie-hiperłącza

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

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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

Opis


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!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
seems you forgot to tell folks to select a range. if I select a range of cells it creates the list, otherwise I get an empty list like yael did.
This comment was minimized by the moderator on the site
This was a life saver. For anyone looking to have the hyperlink display where documents are stored on a network path, this should work for you. I didn't select anything, followed the steps, and it created a new sheet with the links expanded which I was able to turn into plain text and use as raw data.
This comment was minimized by the moderator on the site
Hi, It seems that the address selection applies to only web pages and not to other places in the document. - SH
This comment was minimized by the moderator on the site
This is awesome! Is there a way to show the full path? It seems to be truncating the file path a little.
This comment was minimized by the moderator on the site
this is a treasure!!! thank you
This comment was minimized by the moderator on the site
It does not work. Just empty page created
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations