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ů.
Extrahujte skutečné adresy z hypertextových odkazů pomocí funkce Upravit hypertextový odkaz
Extrahujte skutečné adresy z hypertextových odkazů pomocí kódu VBA
Extrahujte skutečné adresy z hypertextových odkazů pomocí funkce User Definde
Extrahujte skutečné adresy z hypertextových odkazů pomocí Kutools pro Excel rychle a snadno
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ě.
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:
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.
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 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!
Ukázka: Extrahujte skutečné adresy z hypertextových odkazů pomocí programu Kutools pro Excel
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
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...
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!