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

Sut i gopïo hyperddolen yn unig o un gell i'r llall yn Excel?

Gan dybio, mae gen i restr o werthoedd yng ngholofn A ac mae pob cell yn cynnwys hyperddolen wahanol, nawr, rydw i eisiau copïo'r hypergysylltiadau yn unig heb destun i golofn E arall fel y dangosir y llun a ddangosir. Efallai nad oes unrhyw ffordd uniongyrchol i ddatrys y swydd hon yn Excel, ond yma, gallaf gyflwyno cod VBA ar gyfer delio ag ef.

copi doc hyperddolen i gell arall 1

Copïwch hyperddolen o unwaith y gell i'r llall gyda chod VBA


swigen dde glas saeth Copïwch hyperddolen o unwaith y gell i'r llall gyda chod VBA

I gopïo'r cyfeiriadau hyperddolen heb y testun i gelloedd eraill yn unig, gall y cod canlynol ffafrio chi, os gwelwch yn dda fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: copïwch hyperddolen yn unig o un gell i'r llall:

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. Ac yna pwyswch F5 yn allweddol i redeg y cod hwn, bydd blwch deialog yn popio allan i'ch atgoffa i ddewis y celloedd rydych chi am gopïo'r hypergysylltiadau yn unig, gweler y screenshot:

copi doc hyperddolen i gell arall 02

4. Ac yna cliciwch OK, yna dewiswch y celloedd rydych chi am gludo'r hyperglinau mewn blwch deialog arall yn unig, gweler y screenshot:

copi doc hyperddolen i gell arall 03

5. Ac mae'r cyfeiriadau hyperddolen wedi'u copïo o'r celloedd gwreiddiol i'r celloedd penodedig yn ôl yr angen, gweler y screenshot:

copi doc hyperddolen i gell arall 04

Nodyn: Gall y cod hwn hefyd eich helpu i gopïo'r hypergysylltiadau o un ddalen i ddalen arall fel y dymunwch.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab

 

sylwadau (13)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, beth os ydw i am gopïo fy hypergyswllt o ddalen A cell A5 i gell Dalen B A5?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Arpit:

Rwyf wedi diweddaru'r cod VBA, nawr, gallwch ei gymhwyso mewn dwy daflen waith yn ôl yr angen. Rhowch gynnig arni, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am gopïo dolenni mewn sawl tudalen o un ffeil i ffeil arall
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo... beth os ydw i eisiau copïo'r hyperddolen trwy vlookup? Mae'r fformiwla gennyf yn barod ond pan fyddaf yn clicio ar yr hypergyswllt bydd yn "methu agor ffeil specied" yn ymddangos.

Os gwelwch yn dda fy helpu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'n gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wrth fy modd. Diolch yn fawr iawnoooo.
Cariad o'r Weriniaeth Ddominicaidd :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'n gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gadewch i ni ddweud yn eich cell A1 yw hypergyswllt, felly i gael llwybr yr hyperddolen crëwch fformiwla fel isod:
>> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wnaeth hyn ddim gweithio i mi chwaith.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn anhygoel ac mae'n gweithio. Rwyf wrth fy modd yn copio a gludo cod pobl eraill :D
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'n gweithio i mi; ydy'r ffaith fy mod yn dal i ddefnyddio Excel 2007 o bwys?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Iawn, felly ni fyddwch yn cyhoeddi fy sylw - sy'n deg. Ond os ydych chi eisiau i mi gofrestru a mewngofnodi, yna mae angen i chi ddangos atebion i mi sy'n gweithio, oherwydd (ar sail un enghraifft nad yw'n gweithio) nid wyf wedi gweld dim i'm perswadio bod unrhyw werth mewn cofrestru.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwneuthum y golygiadau canlynol i weithio ar gyfer fy achos defnydd:
Is-gopiHyperlinks()
'Uodateby Extendoffice
Dim xSRg Fel Ystod
Dim xDRg Fel Ystod
Dim I Fel Cyfanrif
Dim xCyfeiriad Fel Llinyn
Ar Ail-ddechrau Gwall Nesaf
xAddress = ActiveWindow.RangeSelection.Address
Gosod xSRg = Application.InputBox ("Dewiswch yr ystod wreiddiol yr ydych am gopïo hypergysylltiadau:"", "KuTools Ar gyfer Excel", xAddress, , , , , 8)
Os yw xSRg Yn Ddim Yna Gadael Is
Gosod xDRg = Application.InputBox ("Dewiswch yr ystod newydd yr ydych am gludo'r hypergysylltiadau yn unig", "KuTools For Excel", , , , , , 8)
Os yw xDRg Yn Ddim Yna Gadael Is
Gosod xDRg = xDRg(1)
Am I = 1 I xSRg.Count
Os yw xSRg(I).Hyperlinks(1).Cyfeiriad <>"" Neu xSRg(I).Hyperlinks(1).SubAddress <>"" Yna
Os yw xSRg(I).Hyperlinks.Count = 1 Yna
xDRg(I).Hyperlinks.Add Anchor:=xDRg(I), _
Cyfeiriad:=xSRg(I).Hyperlinks(1).Cyfeiriad, _
Is-gyfeiriad:=xSRg(I).Hyperlinks(1).Is-gyfeiriad
'Tip Sgrin:=xSRg(I).Hyperlinks(1).ScreenTip, _
'TextToDisplay:=xSRg(I).Hyperlinks(1).TextToDisplay
Gorffennwch Os
Gorffennwch Os
Digwyddiadau
Is-End
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL