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í.
Zkopírujte hypertextový odkaz z jedné buňky do druhé pomocí kódu VBA
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:
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:
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:
Poznámka: Tento kód vám také pomůže zkopírovat hypertextové odkazy z jednoho listu na jiný, jak chcete.
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!