Hur kopierar man bara hyperlänk från en cell till en annan i Excel?
Om jag antar att jag har en lista över värden i kolumn A och varje cell innehåller en annan hyperlänk, nu vill jag bara kopiera hyperlänkar utan text till en annan kolumn E enligt följande skärmdump. Det kan finnas att det inte finns något direkt sätt att lösa detta jobb i Excel, men här kan jag införa en VBA-kod för att hantera det.
Kopiera hyperlänk från en cell till en annan med VBA-kod
Kopiera hyperlänk från en cell till en annan med VBA-kod
För att bara kopiera hyperlänkadresserna utan texten till andra celler kan följande kod göra dig en tjänst, vänligen så här:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: kopiera endast hyperlänk från en cell till en annan:
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. Och tryck sedan på F5 för att köra den här koden, kommer en dialogruta att dyka upp för att påminna dig om att välja de celler som du bara vill kopiera hyperlänkarna, se skärmdump:
4. Och klicka sedan på OK, välj sedan cellerna som du bara vill klistra in hyperlinserna i en annan dialogruta, se skärmdump:
5. Och hyperlänkadresserna har kopierats från de ursprungliga cellerna till de angivna cellerna efter behov, se skärmdump:
Anmärkningar: Den här koden kan också hjälpa dig att kopiera hyperlänkar från ett ark till ett annat ark som du vill.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!