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

Hogyan másolhat csak hiperhivatkozást az egyik cellából a másikba az Excelben?

Tegyük fel, hogy van egy értéklistám az A oszlopban, és minden cella más és más hiperhivatkozást tartalmaz, most csak a szöveges hiperhivatkozásokat szeretném átmásolni egy másik E oszlopba, az alábbi képernyőkép szerint. Lehet, hogy nincs közvetlen módja ennek a feladatnak az Excelben történő megoldására, de itt bemutathatok egy VBA-kódot a kezelésére.

a hiperhivatkozás másolása egy másik cellába 1

Másolja a hiperhivatkozást az egyik cellából a másikba VBA kóddal


nyíl kék jobb buborék Másolja a hiperhivatkozást az egyik cellából a másikba VBA kóddal

Ha csak a hiperhivatkozás címét másolja a szöveg nélkül más cellákba, a következő kód kedvezhet nekünk, kérjük, mivel ez:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA-kód: a hiperhivatkozás másolása csak egyik cellából a másikba:

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, megjelenik egy párbeszédpanel, amely emlékezteti Önt arra, hogy válassza ki azokat a cellákat, amelyeket csak a hiperhivatkozásokra kíván másolni, lásd a képernyőképet:

a hiperhivatkozás másolása egy másik cellába 02

4. Kattintson a gombra OK, majd válassza ki azokat a cellákat, amelyeket csak egy másik párbeszédpanelen szeretne beilleszteni a hiperlinákra, lásd a képernyőképet:

a hiperhivatkozás másolása egy másik cellába 03

5. És a hiperhivatkozások címeit az eredeti cellákból átmásoltuk a megadott cellákba, ha szükséges, lásd a képernyőképet:

a hiperhivatkozás másolása egy másik cellába 04

Megjegyzések: Ez a kód segíthet abban is, hogy a hiperhivatkozásokat az egyik munkalapról a másikra másolja.


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja

 

A megjegyzések rendezése szerint
Hozzászólások (13)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Mi van, ha szeretném átmásolni a hiperhivatkozásomat az A lap A5 cellájából a B lap A5 cellájába?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Arpit!

Frissítettem a VBA kódot, most két munkalapon is alkalmazhatja, ha szüksége van rá. Próbáld ki, remélem tud segíteni!
A weboldal moderátora ezt a megjegyzést minimalizálta
Egy fájl több lapján lévő hivatkozásokat szeretnék átmásolni egy másik fájlba
A weboldal moderátora ezt a megjegyzést minimalizálta
hello.. mi van, ha a vlookupon keresztül akarom másolni a hiperhivatkozást? már megvan a képlet, de ha rákattintok a hiperhivatkozásra, megjelenik a "meghatározott fájl megnyitása nem lehetséges".

Kérlek segíts
A weboldal moderátora ezt a megjegyzést minimalizálta
Nem működik.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szeretem. Nagyon köszönöm.
Szerelem a Dominikai Köztársaságból :)
A weboldal moderátora ezt a megjegyzést minimalizálta
Nem működik.
A weboldal moderátora ezt a megjegyzést minimalizálta
Tegyük fel, hogy a cellájában az A1 egy hiperhivatkozás, tehát a hivatkozás elérési útjának meghatározásához hozzon létre egy képletet az alábbiak szerint:
>> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez nekem sem ment.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez fantasztikus és működik. Szeretek másolni és beilleszteni mások kódját :D
A weboldal moderátora ezt a megjegyzést minimalizálta
nekem nem megy; számít az a tény, hogy még mindig az Excel 2007-et használom?
A weboldal moderátora ezt a megjegyzést minimalizálta
Rendben, tehát nem teszi közzé a megjegyzésemet – ami tisztességes. De ha azt akarja, hogy regisztráljak és jelentkezzek be, akkor mutasson meg olyan megoldásokat, amelyek működnek, mert (egy nem működő példány alapján) nem láttam semmit, ami meggyőzhetne arról, hogy van értéke a regisztrációnak.
A weboldal moderátora ezt a megjegyzést minimalizálta
A következő módosításokat végeztem el, hogy az én használati esetemnek megfelelően működjenek:
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("Kérjük, válassza ki az eredeti tartományt, amelyhez a hiperhivatkozásokat másolni szeretné:", "KuTools For Excel", xAddress, , , , , 8)
Ha az xSRg semmi, akkor lépjen ki a Subból
Set xDRg = Application.InputBox("Kérjük, válassza ki az új tartományt, amelybe csak a hiperhivatkozásokat szeretné beilleszteni", "KuTools For Excel", , , , , , 8)
Ha az xDRg semmi, akkor lépjen ki a Subból
xDRg = xDRg(1) beállítása
Ha I = 1 - xSRg.Count
Ha xSRg(I).Hyperlinks(1).Address <> "" Vagy xSRg(I).Hyperlinks(1).SubAddress <> "" Akkor
Ha xSRg(I).Hyperlinks.Count = 1 Akkor
xDRg(I).Hyperlinks.Add Anchor:=xDRg(I), _
Cím:=xSRg(I).Hiperhivatkozások(1).Cím, _
Alcím:=xSRg(I).Hiperhivatkozások(1).Alcím
'ScreenTip:=xSRg(I).Hyperlinks(1).ScreenTip, _
'TextToDisplay:=xSRg(I).Hyperlinks(1).TextToDisplay
Ha véget
Ha véget
Következő
End Sub
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi