Hoe kopieer ik een hyperlink alleen van de ene cel naar de andere in Excel?
Stel dat ik een lijst met waarden heb in kolom A en elke cel bevat een andere hyperlink, nu wil ik alleen de hyperlinks zonder tekst naar een andere kolom E kopiëren, zoals in het volgende screenshot wordt getoond. Misschien is er geen directe manier om deze taak in Excel op te lossen, maar hier kan ik een VBA-code introduceren om ermee om te gaan.
Kopieer een hyperlink van de ene cel naar de andere met VBA-code
Kopieer een hyperlink van de ene cel naar de andere met VBA-code
Om alleen de hyperlinkadressen zonder de tekst naar andere cellen te kopiëren, kan de volgende code u een plezier doen, alstublieft als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: kopieer de hyperlink alleen van de ene cel naar de andere:
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. En druk vervolgens op F5 toets om deze code uit te voeren, verschijnt er een dialoogvenster om u eraan te herinneren de cellen te selecteren waarvan u alleen de hyperlinks wilt kopiëren, zie screenshot:
4. En klik vervolgens op OK, selecteer vervolgens de cellen waarvan u de hyperlins alleen in een ander dialoogvenster wilt plakken, zie screenshot:
5. En de hyperlinkadressen zijn gekopieerd van de originele cellen naar de opgegeven cellen zoals je nodig hebt, zie screenshot:
Note: Deze code kan u ook helpen om de hyperlinks van het ene blad naar het andere blad te kopiëren zoals u wilt.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
