Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Rejestruję się  \/ 
x

or

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-3przycisk, 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

Uwagi: 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

Kutools for Excel rozwiązuje większość twoich problemów i zwiększa wydajność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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 zmniejsza setki kliknięć myszą każdego dnia!
officetab dół
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dave · 6 years ago
    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.
  • To post as a guest, your comment is unpublished.
    Kurt · 7 years ago
    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.
  • To post as a guest, your comment is unpublished.
    DataAnalyst · 7 years ago
    Hi,
    It seems that the address selection applies to only web pages and not to other places in the document.
    - SH
  • To post as a guest, your comment is unpublished.
    mcnulty · 7 years ago
    This is awesome!
    Is there a way to show the full path?
    It seems to be truncating the file path a little.
  • To post as a guest, your comment is unpublished.
    SHAD · 7 years ago
    this is a treasure!!!
    thank you
  • To post as a guest, your comment is unpublished.
    yael · 7 years ago
    It does not work. Just empty page created