Hoe een hyperlink alleen van de ene cel naar de andere te kopiëren in Excel?
Stel dat ik een lijst met waarden heb in kolom A en elke cel bevat een verschillende hyperlink. Nu wil ik alleen de hyperlinks zonder tekst naar een andere kolom E kopiëren, zoals in de volgende schermafbeelding te zien is. Misschien is er geen directe manier om dit in Excel te doen, maar hier kan ik een VBA-code introduceren om het probleem op te lossen.
Hyperlink van de ene cel naar de andere kopiëren met VBA-code
Hyperlink van de ene cel naar de andere kopiëren met VBA-code
Om alleen de hyperlinkadressen zonder tekst naar andere cellen te kopiëren, kan de volgende code u helpen. Doe dit als volgt:
1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: hyperlink alleen van de ene cel naar de andere kopiëren:
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 Sub3. Druk vervolgens op de F5-toets om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd de cellen te selecteren waarvan u alleen de hyperlinks wilt kopiëren, zie onderstaande schermafbeelding:
4. Klik vervolgens op OK en selecteer in een ander dialoogvenster de cellen waar u alleen de hyperlinks wilt plakken, zie onderstaande schermafbeelding:
5. De hyperlinkadressen zijn nu gekopieerd van de oorspronkelijke cellen naar de aangegeven cellen, zoals u nodig hebt, zie onderstaande schermafbeelding:
Opmerking: Deze code kan u ook helpen om hyperlinks van het ene werkblad naar een ander werkblad te kopiëren, zoals u wenst.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen