Hvordan kopieres hyperlink kun fra en celle til en anden i Excel?
Antag, jeg har en liste over værdier i kolonne A, og hver celle indeholder et andet hyperlink, nu vil jeg kun kopiere hyperlinks uden tekst til en anden kolonne E som følgende skærmbillede vist. Måske er der ingen direkte måde at løse dette job på i Excel, men her kan jeg introducere en VBA-kode til håndtering af det.
Kopier hyperlink fra en enkelt celle til en anden med VBA-kode
Kopier hyperlink fra en enkelt celle til en anden med VBA-kode
For kun at kopiere hyperlinkadresserne uden teksten til andre celler, kan følgende kode gøre dig en tjeneste, bedes som denne:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: kopier kun hyperlink fra en celle til en anden:
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. Og tryk derefter på F5 nøgle til at køre denne kode, vises en dialogboks, der minder dig om at vælge de celler, som du kun vil kopiere hyperlinks, se skærmbillede:
4. Og klik derefter på OK, vælg derefter de celler, som du kun vil indsætte hyperlinserne i en anden dialogboks, se skærmbillede:
5. Og hyperlinkadresserne er kopieret fra de originale celler til de angivne celler, som du har brug for, se skærmbillede:
Bemærk: Denne kode kan også hjælpe dig med at kopiere hyperlinks fra et ark til et andet ark, som du vil.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!