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

Jak kopírovat hypertextový odkaz pouze z jedné buňky do druhé v aplikaci Excel?

Předpokládejme, že ve sloupci A mám seznam hodnot a každá buňka obsahuje jiný hypertextový odkaz, nyní chci zkopírovat pouze hypertextové odkazy bez textu do jiného sloupce E, jak ukazuje následující snímek obrazovky. Možná neexistuje žádný přímý způsob, jak vyřešit tuto práci v aplikaci Excel, ale zde mohu zavést kód VBA pro řešení.

hypertextový odkaz na kopírování dokumentu do jiné buňky 1

Zkopírujte hypertextový odkaz z jedné buňky do druhé pomocí kódu VBA


šipka modrá pravá bublina Zkopírujte hypertextový odkaz z jedné buňky do druhé pomocí kódu VBA

Chcete-li pouze zkopírovat adresy hypertextových odkazů bez textu do jiných buněk, následující kód vám může udělat laskavost, prosím, takto:

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 Modul Okno.

Kód VBA: kopírování hypertextového odkazu pouze z jedné buňky do druhé:

Sub CopyHyperlinks()
'Uodateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim I As Integer
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select the original range you want to copy hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please select the new range you want to paste the hyperlinks only", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Count
        If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then
            If xSRg(I).Hyperlinks.Count = 1 Then
                xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address
            End If
        End If
    Next
End Sub

3. A pak stiskněte F5 klíč ke spuštění tohoto kódu, vyskočí dialogové okno, které vám připomene, abyste vybrali buňky, které chcete zkopírovat pouze hypertextové odkazy, viz screenshot:

hypertextový odkaz na kopírování dokumentu do jiné buňky 02

4. A pak klikněte na tlačítko OK, pak vyberte buňky, které chcete vložit hyperlinky pouze do jiného dialogového okna, viz screenshot:

hypertextový odkaz na kopírování dokumentu do jiné buňky 03

5. A adresy hypertextových odkazů byly zkopírovány z původních buněk do zadaných buněk, jak potřebujete, viz screenshot:

hypertextový odkaz na kopírování dokumentu do jiné buňky 04

Poznámka: Tento kód vám také pomůže zkopírovat hypertextové odkazy z jednoho listu na jiný, jak chcete.


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 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ých funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 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 o 50%a snižuje stovky kliknutí myší každý den!
officetab dno

 

Komentáře (13)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Ahoj, co když chci zkopírovat svůj hypertextový odkaz z buňky A5 listu A do buňky A5 listu B?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Arpite:

Aktualizoval jsem kód VBA, nyní jej můžete použít ve dvou pracovních listech, jak potřebujete. Zkuste to prosím, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Chci zkopírovat odkazy z několika listů jednoho souboru do jiného souboru
Tento komentář byl moderátorem webu minimalizován
ahoj.. co když chci zkopírovat hypertextový odkaz přes vlookup? Vzorec již mám, ale když kliknu na hypertextový odkaz, zobrazí se „nelze otevřít zadaný soubor“.

Prosím pomozte mi
Tento komentář byl moderátorem webu minimalizován
Nepracuje.
Tento komentář byl moderátorem webu minimalizován
Miluji to. Děkuji mocoooo.
Láska z Dominikánské republiky :)
Tento komentář byl moderátorem webu minimalizován
Nepracuje.
Tento komentář byl moderátorem webu minimalizován
Řekněme, že ve vaší buňce je A1 hypertextový odkaz, takže pro získání cesty hypertextového odkazu stačí vytvořit vzorec jako níže:
>> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
Tento komentář byl moderátorem webu minimalizován
Tohle se mi taky nepovedlo.
Tento komentář byl moderátorem webu minimalizován
To je úžasné a funguje to. Miluji kopírování a vkládání cizích kódů :D
Tento komentář byl moderátorem webu minimalizován
Nefunguje mi; záleží na tom, že stále používám Excel 2007?
Tento komentář byl moderátorem webu minimalizován
OK, takže můj komentář nezveřejníte - což je fér. Ale pokud chcete, abych se zaregistroval a přihlásil, musíte mi ukázat řešení, která fungují, protože (na základě jedné nefunkční instance) jsem neviděl nic, co by mě přesvědčilo, že registrace má nějakou cenu.
Tento komentář byl moderátorem webu minimalizován
Pro můj případ použití jsem provedl následující úpravy:
SubCopyHyperlinks()
"Uodateby." Extendoffice
Dim xSRg jako rozsah
Ztlumit xDRg jako rozsah
Dim I As Integer
Ztlumit xAddress jako řetězec
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("Vyberte prosím původní rozsah, který chcete zkopírovat hypertextové odkazy:", "KuTools For Excel", xAddress, , , , , 8)
Pokud xSRg není nic, pak Exit Sub
Set xDRg = Application.InputBox("Vyberte prosím nový rozsah, do kterého chcete vložit pouze hypertextové odkazy", "KuTools For Excel", , , , , , 8)
Pokud xDRg není nic, ukončete Sub
Nastavit xDRg = xDRg(1)
Pro I = 1 To xSRg.Count
If xSRg(I).Hyperlinks(1).Address <> "" Nebo xSRg(I).Hyperlinks(1).SubAddress <> "" Pak
Pokud xSRg(I).Hyperlinks.Count = 1 Pak
xDRg(I).Hyperlinks.Add Anchor:=xDRg(I), _
Adresa:=xSRg(I).Hyperlinky(1).Adresa, _
Podadresa:=xSRg(I).Hyperlinky(1).Podadresa
'ScreenTip:=xSRg(I).Hyperlinks(1).ScreenTip, _
'TextToDisplay:=xSRg(I).Hyperlinks(1).TextToDisplay
End If
End If
další
End Sub
Zatím zde nejsou žádné komentáře
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