Note: The other languages of the website are Google-translated. Back to English

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.

dok kopier hyperlink til en anden celle 1

Kopier hyperlink fra en enkelt celle til en anden med VBA-kode


pil blå højre boble 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:

dok kopier hyperlink til en anden celle 02

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:

dok kopier hyperlink til en anden celle 03

5. Og hyperlinkadresserne er kopieret fra de originale celler til de angivne celler, som du har brug for, se skærmbillede:

dok kopier hyperlink til en anden celle 04

Bemærk: Denne kode kan også hjælpe dig med at kopiere hyperlinks fra et ark til et andet ark, som du vil.


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

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!
officetab bund

 

Sorter kommentarer efter
Kommentarer (13)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, hvad hvis jeg vil kopiere mit hyperlink fra ark A celle A5 til ark B celle A5?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Arpit:

Jeg har opdateret VBA-koden, nu kan du anvende den i to regneark efter behov. Prøv det, håber det kan hjælpe dig!
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg vil kopiere links i flere ark af én fil til en anden fil
Denne kommentar blev minimeret af moderatoren på webstedet
hej.. hvad hvis jeg vil kopiere hyperlinket gennem vlookup? Jeg har allerede formlen, men når jeg klikker på hyperlinket, vil det "kan ikke åbne en specificeret fil" vises.

Vær venlig at hjælpe mig
Denne kommentar blev minimeret af moderatoren på webstedet
Virker ikke.
Denne kommentar blev minimeret af moderatoren på webstedet
Elsker det. Tusind tak skal du have.
Kærlighed fra Den Dominikanske Republik :)
Denne kommentar blev minimeret af moderatoren på webstedet
Virker ikke.
Denne kommentar blev minimeret af moderatoren på webstedet
Lad os sige i din celle A1 er hyperlink, så for at få stien til hyperlinket skal du bare oprette en formel som nedenfor:
>> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
Denne kommentar blev minimeret af moderatoren på webstedet
Dette virkede heller ikke for mig.
Denne kommentar blev minimeret af moderatoren på webstedet
Det er fantastisk, og det virker. Jeg elsker at kopiere og indsætte andres kode :D
Denne kommentar blev minimeret af moderatoren på webstedet
Virker ikke for mig; betyder det noget, at jeg stadig bruger Excel 2007?
Denne kommentar blev minimeret af moderatoren på webstedet
OK, så du vil ikke offentliggøre min kommentar - hvilket er rimeligt. Men hvis du vil have mig til at registrere og logge ind, så skal du vise mig løsninger, der virker, for (på baggrund af en ikke-fungerende instans) har jeg ikke set noget, der kan overbevise mig om, at der er nogen værdi i at registrere.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg foretog følgende redigeringer for at fungere til min brugssituation:
Sub CopyHyperlinks()
'Uodateby Extendoffice
Dim xSRg Som rækkevidde
Dim xDRg As Range
Dim I som heltal
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Indstil xSRg = Application.InputBox("Vælg venligst det originale område, du vil kopiere hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
Hvis xSRg ikke er noget, skal du afslutte Sub
Indstil xDRg = Application.InputBox("Vælg venligst det nye område, hvor du kun vil indsætte hyperlinks", "KuTools For Excel", , , , , , 8)
Hvis xDRg ikke er noget, skal du afslutte Sub
Indstil xDRg = xDRg(1)
For I = 1 Til xSRg.Count
Hvis xSRg(I).Hyperlinks(1).Address <> "" Eller xSRg(I).Hyperlinks(1).SubAddress <> "" Så
Hvis xSRg(I).Hyperlinks.Count = 1 Så
xDRg(I).Hyperlinks.Tilføj anker:=xDRg(I), _
Adresse:=xSRg(I).Hyperlinks(1).Adresse, _
Underadresse:=xSRg(I).Hyperlinks(1).Underadresse
'ScreenTip:=xSRg(I).Hyperlinks(1).ScreenTip, _
'TextToDisplay:=xSRg(I).Hyperlinks(1).TextToDisplay
End If
End If
Næste
End Sub
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL