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

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ší kancelářské nástroje produktivity

Kutools pro Excel vyřeší většinu vašich problémů a zvýší vaši produktivitu
80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než
    300
    výkonné funkce
    . Podporuje Office/Excel
    2007-2019 a 365
    . Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce
    30
    -denní zkušební verze zdarma. 60denní záruka vrácení peněz.
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 tím
    50%
    a každý den vám sníží stovky kliknutí myší!
officetab dno
Komentáře (44)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát. opravdu mi to pomohlo
Tento komentář byl moderátorem webu minimalizován
díky moc!!! :D
Tento komentář byl moderátorem webu minimalizován
Tohle mě právě zachránilo! dík
Tento komentář byl moderátorem webu minimalizován
díky, usnadnil jsi mi práci
Tento komentář byl moderátorem webu minimalizován
MOC DĚKUJI!
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát, zachránilo mi to zadek a vypadám dobře. 8)
Tento komentář byl moderátorem webu minimalizován
Jste nejlepší, takže je snadné sledovat!
Tento komentář byl moderátorem webu minimalizován
Díky kamaráde, funguje to během několika sekund.
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát. opravdu mi to pomohlo
Tento komentář byl moderátorem webu minimalizován
Díky moc! Velmi užitečné a přitom jednoduché a přehledné. Přesně jak Albert myslel :roll:
Tento komentář byl moderátorem webu minimalizován
Super! Tak snadné. Dík!
Tento komentář byl moderátorem webu minimalizován
díky moc. jako všichni ostatní tady. to je velmi užitečné a snadné.
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát :lol: Použil jsem metodu VBA a fungovalo to jako kouzlo v Excel 365 na OS Windows 8.1
Tento komentář byl moderátorem webu minimalizován
Toto je vůbec první tip Excel založený na makrech, který pro mě fungoval. Moc vám děkuji, že jste zlepšili životy figurín Excelu.
Tento komentář byl moderátorem webu minimalizován
děkuji, že jsi mi ušetřil 15 minut
Tento komentář byl moderátorem webu minimalizován
Nádherný! zkrátil mou práci na méně než minutu.
Tento komentář byl moderátorem webu minimalizován
To mi ušetřilo spoustu času! Extrahoval jsem 500 ID profilů z více než 500 jmen spojených s jejich profily. Tento kód fungoval velmi dobře a bylo snadné jej sledovat. Díky moc!
Tento komentář byl moderátorem webu minimalizován
Z nějakého důvodu mi to nefunguje. Vytvořil jsem definovanou funkci přesně tak, jak jste popsal, ale nic nedělá :\ Chci ji také sloučit s funkcí hypertextového odkazu, například: =HYPERLINK(=getURL(A1), [A1]) Aby výsledná výsledek zkopíruje URL A1 a zobrazí ji jako textový řetězec A1 (tj. stačí zkopírovat A1 do jiné buňky, včetně jejího textu i hypertextového odkazu. Jednoduchá věc, kterou Excel z nějakého důvodu zřejmě neumí...).
Tento komentář byl moderátorem webu minimalizován
Díky moc! Ušetřil mi spoustu času, když jsem musel udělat 800+ těchto buněk!
Tento komentář byl moderátorem webu minimalizován
Velmi pěkný nástroj! Převedl jsem 16 tisíc odkazů. Nástroj fungoval rychle a bezchybně.
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL