Note: The other languages of the website are Google-translated. Back to English

Jak wyodrębnić rzeczywiste adresy z hiperłączy w programie Excel?

Przypuśćmy, że masz szereg komórek zawierających hiperłącza, a teraz musisz zobaczyć prawdziwe miejsce docelowe hiperłączy i wyodrębnić je z hiperłączy, jak pokazano na zrzucie ekranu. Czy istnieją łatwe sposoby szybkiego rozwiązania tego problemu? Ten artykuł poprowadzi Cię do wyodrębnienia rzeczywistych adresów z wielu hiperłączy.


strzałka niebieski prawy bąbelek Wyodrębnij rzeczywiste adresy z hiperłączy za pomocą funkcji Edytuj hiperłącze

Tutaj Edytuj hiperłącze funkcja może pomóc w wyodrębnieniu podstawowego adresu URL dla każdego z tych hiperłączy i umieszczeniu tego rzeczywistego adresu w innej komórce. Możesz to zrobić:

1. Wybierz komórkę za pomocą hiperłącza i kliknij prawym przyciskiem myszy, z menu kontekstowego wybierz Edytuj hiperłączezobacz zrzut ekranu:

2. I Edytuj hiperłącze pojawi się okno dialogowe, wybierz i skopiuj (Ctrl + C) cały adres URL z pliku Adres pole okna dialogowego.

3. Następnie zamknij okno dialogowe i wklej rzeczywisty adres do dowolnej komórki.

Uwagi: Za pomocą tej metody za każdym razem można wyodrębnić tylko jeden adres hiperłącza, ale jeśli trzeba wyodrębnić wiele hiperłączy, należy wielokrotnie stosować tę funkcję.


strzałka niebieski prawy bąbelek Wyodrębnij rzeczywiste adresy z hiperłączy za pomocą kodu VBA

W przypadku wielu hiperłączy powyższa metoda będzie żmudna i czasochłonna, więc poniższy kod VBA może pomóc szybko wyodrębnić wiele adresów z hiperłączy jednocześnie.

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.

Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3. Następnie naciśnij F5 klawisz do uruchomienia kodu i wyskakuje okno dialogowe, w którym można wybrać hiperłącza, które chcesz wyodrębnić prawdziwe adresy, patrz zrzut ekranu:

4. Następnie kliknij OK, a zawartość wybranej komórki została przekonwertowana na rzeczywiste adresy hiperłączy w oryginalnym zakresie. Zobacz zrzuty ekranu:


strzałka niebieski prawy bąbelek Uzyskaj rzeczywiste adresy z hiperłączy za pomocą funkcji User Definde

Następująca funkcja zdefiniowana przez użytkownika może również wyodrębnić rzeczywisty adres URl z hiperłączy.

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3. Zapisz kod i zamknij okno, wybierz pustą komórkę, aby wpisać tę formułę = GetURL (A2) (A2 to komórka, w której znajduje się hiperłącze) i naciśnij Wchodzę przycisk. Możesz zobaczyć, że prawdziwy adres hiperłącza jest wyodrębniany.


strzałka niebieski prawy bąbelek Wyodrębnij rzeczywiste adresy z hiperłączy za pomocą Kutools for Excel szybko i łatwo

Oto przydatne narzędzie o nazwie Kutools dla programu Excel, Z siedzibą w Konwertuj hiperłącza możesz szybko zająć się następującymi operacjami:

  • Wyodrębnij rzeczywiste adresy z hiperłączy;
  • Konwertuj tekst adresu URL na klikalne hiperłącza.
Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni.

Jeśli masz zainstalowany Kutools dla programu Excelwykonaj następujące czynności:

1. Wybierz zakres zawierający hiperłącza do wyodrębnienia.

2, 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 opcję i kliknij przycisk doc-button1 przycisk od Zakres wyników aby określić komórkę, w której ma zostać umieszczony wynik.

4. A następnie kliknij OK, rzeczywiste adresy zostały wyodrębnione z hiperłączy. Zobacz zrzut ekranu:

Uwagi: Jeśli chcesz umieścić rzeczywiste adresy w oryginalnym zakresie, sprawdź Konwertuj zakres źródła.

Kliknij Konwertuj hiperłącza aby dowiedzieć się więcej o tej funkcji.

Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!


strzałka niebieski prawy bąbelek Demo: wyodrębnij rzeczywiste adresy z hiperłączy za pomocą Kutools for Excel

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!

Podobne artykuły:

Jak przekonwertować tekst adresu URL na klikalne hiperłącze w programie Excel?


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność 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-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 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 redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (44)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję bardzo. to naprawdę mi pomogło
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki wielkie!!! :D
Ten komentarz został zminimalizowany przez moderatora na stronie
To mnie właśnie uratowało! Dzięki
Ten komentarz został zminimalizowany przez moderatora na stronie
dzięki Ułatwiłeś mi pracę
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuje Ci bardzo bardzo mocno!
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję bardzo, to uratowało mi tyłek i sprawiło, że dobrze wyglądam. 8)
Ten komentarz został zminimalizowany przez moderatora na stronie
Jesteś najlepszy, tak łatwy do naśladowania!
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki kolego. To naprawdę działa w kilka sekund.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję bardzo. to naprawdę mi pomogło
Ten komentarz został zminimalizowany przez moderatora na stronie
Wielkie dzięki! Bardzo pomocne, ale proste i jasne. Tak jak Albert miał na myśli :roll:
Ten komentarz został zminimalizowany przez moderatora na stronie
Super! Tak łatwo. Dzięki!
Ten komentarz został zminimalizowany przez moderatora na stronie
dzięki tonę. jak wszyscy tutaj. jest to bardzo pomocne i łatwe.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję bardzo :lol: Użyłem metody VBA i zadziałało jak urok w Excel 365 na Windows 8.1 OS
Ten komentarz został zminimalizowany przez moderatora na stronie
To pierwsza w historii wskazówka programu Excel oparta na makrach, która zadziałała dla mnie. Bardzo dziękuję za polepszenie życia manekinów Excela.
Ten komentarz został zminimalizowany przez moderatora na stronie
dzięki za oszczędzenie mi 15 minut
Ten komentarz został zminimalizowany przez moderatora na stronie
Wspaniały! skróciłem moją pracę do mniej niż minuty.
Ten komentarz został zminimalizowany przez moderatora na stronie
Zaoszczędziło mi to mnóstwo czasu! Wyodrębniłem 500 identyfikatorów profili z ponad 500 nazwisk powiązanych z ich profilami. Ten kod działał bardzo dobrze i był łatwy do naśladowania. Dzięki wielkie!
Ten komentarz został zminimalizowany przez moderatora na stronie
Z jakiegoś powodu to nie działa dla mnie. Stworzyłem zdefiniowaną funkcję tak, jak opisałeś, ale nic nie robi :\ Chcę również scalić ją z funkcją Hyperlink, na przykład: =HYPERLINK(=getURL(A1), [A1]) Aby końcowa wynik skopiuje adres URL A1 i wyświetli go jako ciąg tekstowy A1 (tj. Po prostu skopiuj A1 do innej komórki, w tym zarówno tekst, jak i hiperłącze. Prosta rzecz, której Excel z jakiegoś powodu nie jest w stanie zrobić...).
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki wielkie! Zaoszczędziłem mi czasu na zrobienie 800+ tych komórek!
Ten komentarz został zminimalizowany przez moderatora na stronie
Bardzo ładne narzędzie! Przekonwertowałem ponad 16 tys. linków. Narzędzie działało szybko i bezbłędnie.
Nie ma tu jeszcze żadnych komentarzy
Pokaż więcej
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL