Přejít k hlavnímu obsahu

Jak extrahovat skutečné adresy z hypertextových odkazů v aplikaci Excel?

Předpokládejme, že máte řadu buněk, které obsahují hypertextové odkazy, a nyní musíte vidět skutečné místo určení hypertextových odkazů a extrahovat je z hypertextových odkazů, jak je znázorněno na následujícím obrázku. Existují nějaké snadné způsoby, jak tento problém rychle vyřešit? Tento článek vás provede extrakcí skutečných adres z více hypertextových odkazů.


šipka modrá pravá bublina Extrahujte skutečné adresy z hypertextových odkazů pomocí funkce Upravit hypertextový odkaz

Zde, Upravit hypertextový odkaz Funkce vám pomůže extrahovat podkladovou adresu URL pro každý z těchto hypertextových odkazů a umístit tuto skutečnou adresu do jiné buňky. Můžete to udělat takto:

1. Vyberte buňku s hypertextovým odkazem a klikněte pravým tlačítkem, v místní nabídce vyberte Upravit hypertextový odkaz, viz screenshot:

2. A Upravit hypertextový odkaz Zobrazí se dialogové okno, vyberte a zkopírujte (Ctrl + C) celou adresu URL z Adresa pole dialogového okna.

3. Poté zavřete dialogové okno a vložte skutečnou adresu do libovolné buňky, kterou chcete.

Poznámka: Pomocí této metody můžete pokaždé extrahovat pouze jednu adresu hypertextového odkazu, ale pokud máte více hypertextových odkazů, musíte je extrahovat, musíte tuto funkci použít opakovaně.


šipka modrá pravá bublina Extrahujte skutečné adresy z hypertextových odkazů pomocí kódu VBA

U mnoha hypertextových odkazů bude výše uvedená metoda zdlouhavá a časově náročná, takže následující kód VBA vám pomůže rychle extrahovat více adres z hypertextových odkazů najednou.

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do okna modulu.

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. Pak stiskněte tlačítko F5 klíč ke spuštění kódu a zobrazí se dialogové okno pro výběr hypertextových odkazů, které chcete extrahovat skutečné adresy, viz screenshot:

4. Pak klikněte na tlačítko OKa vybraný obsah buňky byl převeden na skutečné adresy hypertextových odkazů v původním rozsahu. Zobrazit snímky obrazovky:


šipka modrá pravá bublina Extrahujte skutečné adresy z hypertextových odkazů pomocí funkce User Definde

Následující funkce definovaná uživatelem může také extrahovat skutečné URl z hypertextových odkazů.

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

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

3. Uložte kód a zavřete okno, vyberte prázdnou buňku a zadejte tento vzorec = GetURL (A2) (A2 je buňka, ve které je hypertextový odkaz) a stiskněte vstoupit knoflík. Můžete vidět, že je extrahována skutečná adresa hypertextového odkazu.


šipka modrá pravá bublina Extrahujte skutečné adresy z hypertextových odkazů pomocí Kutools pro Excel rychle a snadno

Zde je užitečný nástroj s názvem Kutools pro Excel, S jeho Převést hypertextové odkazy můžete rychle vyřídit následující operace:

  • Extrahujte skutečné adresy z hypertextových odkazů;
  • Převeďte text adresy URL na klikatelné hypertextové odkazy.
Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů.

Pokud jste nainstalovali Kutools pro Excel, postupujte následovně:

1. Vyberte rozsah, který obsahuje hypertextové odkazy, které je třeba extrahovat.

2, klikněte Kutools > Odkaz > Převést hypertextové odkazy, viz screenshot:

3. V Převést hypertextové odkazy dialogové okno vyberte Adresy hypertextových odkazů nahrazují obsah buňky a klepněte na tlačítko tlačítko doc1 tlačítko od Rozsah výsledků určit buňku pro vložení výsledku.

4. A pak klikněte na tlačítko OK, skutečné adresy byly extrahovány z hypertextových odkazů. Viz snímek obrazovky:

Poznámka: Pokud chcete dát skutečné adresy do původního rozsahu, zkontrolujte to Převést rozsah zdroje.

klikněte Převést hypertextové odkazy dozvědět se více o této funkci.

Stáhněte si zdarma zkušební verzi Kutools pro Excel!


šipka modrá pravá bublina Ukázka: Extrahujte skutečné adresy z hypertextových odkazů pomocí programu Kutools pro Excel

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

Související článek:

Jak převést text URL na klikatelný hypertextový odkaz v aplikaci Excel?

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (44)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour
Auriez vous une solution pour mettre en place le fonctionnement par la formule sur Excel 365 sur Mac ?
This comment was minimized by the moderator on the site
Hello, Edouard,
Sorry, the methods in this article are only applied to Microsoft Excel.
Thank you!
This comment was minimized by the moderator on the site
Ola colegas ,

Tenho uma planilha com mais de 2000 linhas, preciso exportar o documento que esta no hiperlink estas celulas, para um diretório da maquina, alguém sabe como fazer ?

agradeço a atenção

at..
cássia
This comment was minimized by the moderator on the site
Thank you it solve my problem
This comment was minimized by the moderator on the site
Thank you, the VBA code worked like a charm :)
This comment was minimized by the moderator on the site
Thank you for the tip to Extract Actual Addresses From Hyperlinks in Excel With VBA Code. It was exactly what I needed!
This comment was minimized by the moderator on the site
How does this apply to Excel on Mac?
This comment was minimized by the moderator on the site
I think it's nice to have an option that doesn't require macros since so many haven't used VBA at all.
This comment was minimized by the moderator on the site
If you're not comfortable with VBA, the key step to getting this done is the FORMULATEXT() formula that is included with excel. For example, if cell A1 has this...
=HYPERLINK("https://www.google.com","Google Homepage")
...then it would display "Google Homepage" but you want to extract "https://www.google.com". You can use =FORMULATEXT(A1) to get the output of "=HYPERLINK("https://google.com","Google Homepage")".

Then you use the find and mid functions to find the double quotes (which is CHAR(34)) and pull the string between the first two double quotes. Nesting it all together, you can use this formula to get the URL without any VBA required...
=MID(FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1,FIND(CHAR(34),FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1)-FIND(CHAR(34),FORMULATEXT(A1))-1)
This comment was minimized by the moderator on the site
Thankyou for an easy method to extract the complete URL from a weblink. I looked at other methods that were too nebulous but yours was straightforward and easy. Thanks.
This comment was minimized by the moderator on the site
Thanks for the " Extract actual addresses from hyperlinks with VBA code" VBA and clear instructions. It worked great for me.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations