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

Kako kopirati hiperpovezavo samo iz ene celice v drugo v Excelu?

Recimo, da imam v stolpcu A seznam vrednosti in vsaka celica vsebuje drugačno hiperpovezavo, zdaj pa želim kopirati samo hiperpovezave brez besedila v drug stolpec E, kot je prikazano na spodnji sliki zaslona. Mogoče ni neposrednega načina za rešitev te naloge v Excelu, toda tukaj lahko predstavim kodo VBA za obravnavo.

doc kopira hiperpovezavo v drugo celico 1

Kopirajte hiperpovezavo iz ene celice v drugo s kodo VBA


puščica modri desni mehurček Kopirajte hiperpovezavo iz ene celice v drugo s kodo VBA

Če želite samo naslove hiperpovezav brez besedila kopirati v druge celice, vam lahko z naslednjo kodo naredite uslugo:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: kopirajte hiperpovezavo samo iz ene celice v drugo:

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. In nato pritisnite F5 za zagon te kode, se bo odprlo pogovorno okno, ki vas bo opozorilo, da izberete celice, v katere želite kopirati samo hiperpovezave, glejte posnetek zaslona:

doc kopira hiperpovezavo v drugo celico 02

4. In nato kliknite OK, nato izberite celice, v katere želite hiperlinine prilepiti samo v drugem pogovornem oknu, glejte posnetek zaslona:

doc kopira hiperpovezavo v drugo celico 03

5. In naslovi hiperpovezav so bili kopirani iz prvotnih celic v določene celice, kot jih potrebujete, glejte posnetek zaslona:

doc kopira hiperpovezavo v drugo celico 04

Opombe: Ta koda vam lahko pomaga tudi pri kopiranju hiperpovezav z enega lista na drug list, kot želite.


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize

 

Komentarji (13)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, kaj če želim kopirati svojo hiperpovezavo iz celice A5 lista A v celico A5 lista B?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Arpit:

Posodobil sem kodo VBA, zdaj jo lahko po potrebi uporabite na dveh delovnih listih. Prosim, poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
Želim kopirati povezave na več listih ene datoteke v drugo datoteko
Ta komentar je moderator na spletnem mestu minimiziral
zdravo.. kaj če želim kopirati hiperpovezavo prek vlookupa? Formulo že imam, a ko kliknem hiperpovezavo, se prikaže "ne morem odpreti določene datoteke".

Prosim pomagaj mi
Ta komentar je moderator na spletnem mestu minimiziral
ne deluje.
Ta komentar je moderator na spletnem mestu minimiziral
Všeč mi je. Najlepša hvalaoooo.
Ljubezen iz Dominikanske republike :)
Ta komentar je moderator na spletnem mestu minimiziral
ne deluje.
Ta komentar je moderator na spletnem mestu minimiziral
Recimo, da je v vaši celici A1 hiperpovezava, zato da dobite pot hiperpovezave preprosto ustvarite formulo, kot je spodaj:
>> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
Ta komentar je moderator na spletnem mestu minimiziral
Tudi meni to ni delovalo.
Ta komentar je moderator na spletnem mestu minimiziral
To je super in deluje. Obožujem kopiranje in lepljenje kod drugih ljudi :D
Ta komentar je moderator na spletnem mestu minimiziral
Ne deluje zame; ali je dejstvo, da še vedno uporabljam Excel 2007, pomembno?
Ta komentar je moderator na spletnem mestu minimiziral
V redu, torej mojega komentarja ne boste objavili - kar je pošteno. Če pa želiš, da se registriram in prijavim, potem mi moraš pokazati rešitve, ki delujejo, ker (na podlagi enega nedelujočega primera) nisem videl ničesar, kar bi me prepričalo, da je registracija kakšna vrednost.
Ta komentar je moderator na spletnem mestu minimiziral
Naredil sem naslednje popravke, da delujejo za moj primer uporabe:
Podkopirajhiperpovezave()
'Uodateby Extendoffice
Dim xSRg kot obseg
Dim xDRg As Range
Dim I kot celo število
Dim xAddress kot niz
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Nastavite xSRg = Application.InputBox("Prosimo, izberite izvirni obseg, v katerega želite kopirati hiperpovezave:", "KuTools For Excel", xAddress, , , , , 8)
Če xSRg ni nič, zapustite Sub
Nastavite xDRg = Application.InputBox("Prosim, izberite nov obseg, v katerega želite prilepiti samo hiperpovezave", "KuTools For Excel", , , , , , 8)
Če xDRg ni nič, zapustite Sub
Nastavi xDRg = xDRg(1)
Za I = 1 Do xSRg.Count
Če xSRg(I).Hyperlinks(1).Address <> "" Ali xSRg(I).Hyperlinks(1).SubAddress <> "" Potem
Če je xSRg(I).Hyperlinks.Count = 1 Potem
xDRg(I).Hiperpovezave.Dodaj sidro:=xDRg(I), _
Naslov:=xSRg(I).Hiperpovezave(1).Naslov, _
Podnaslov:=xSRg(I).Hiperpovezave(1).Podnaslov
'ScreenTip:=xSRg(I).Hyperlinks(1).ScreenTip, _
'TextToDisplay:=xSRg(I).Hyperlinks(1).TextToDisplay
Konec Če
Konec Če
Naslednji
End Sub
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL