Skip i'r prif gynnwys

Sut i dynnu cyfeiriadau gwirioneddol o hyperddolenni yn Excel?

Gan dybio bod gennych chi ystod o gelloedd sy'n cynnwys hypergysylltiadau, ac nawr mae angen i chi weld cyrchfan go iawn yr hypergysylltiadau a'u tynnu o'r hypergysylltiadau fel y dangosir y screenshot canlynol. A oes unrhyw ffyrdd hawdd o ddatrys y broblem hon yn gyflym? Bydd yr erthygl hon yn eich tywys i dynnu cyfeiriadau gwirioneddol o sawl dolen gyswllt.


swigen dde glas saeth Tynnwch gyfeiriadau gwirioneddol o hyperddolenni gyda nodwedd Golygu Hyperlink

Yma, y Golygu Hyperlink gall swyddogaeth eich helpu i echdynnu'r URL sylfaenol ar gyfer pob un o'r hyperddolenni hyn a gosod y cyfeiriad gwirioneddol hwnnw mewn cell wahanol. Gallwch chi wneud fel hyn:

1. Dewiswch y gell gyda hyperddolen a chliciwch ar y dde, o'r ddewislen cyd-destun, dewiswch Golygu Hyperlink, gweler y screenshot:

2. Ac an Golygu Hyperlink bydd blwch deialog yn ymddangos, yn dewis ac yn copïo (Ctrl + C) yr URL cyfan o'r cyfeiriad maes y blwch deialog.

3. Yna caewch y blwch deialog a gludwch y cyfeiriad go iawn i mewn i unrhyw gell rydych chi ei eisiau.

Nodyn: Gyda'r dull hwn, dim ond un cyfeiriad hyperddolen y gallwch ei dynnu bob tro, ond os oes gennych lawer o hypergysylltiadau mae angen eu tynnu, mae angen i chi gymhwyso'r swyddogaeth hon dro ar ôl tro.


swigen dde glas saeth Tynnwch gyfeiriadau gwirioneddol o hyperddolenni gyda chod VBA

Ar gyfer llawer o hyperddolenni, bydd y dull uchod yn ddiflas ac yn cymryd llawer o amser, felly gall y cod VBA canlynol eich helpu i dynnu cyfeiriadau lluosog o'r hyperddolenni ar unwaith.

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 Ffenestr Modiwl.

Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3. Yna pwyswch F5 allwedd i redeg y cod, ac mae deialog yn galw allan i chi ddewis yr hypergysylltiadau rydych chi am echdynnu'r cyfeiriadau go iawn, gweler y screenshot:

4. Yna cliciwch OK, ac mae'r cynnwys celloedd a ddewiswyd wedi'i drosi i'r cyfeiriadau hyperddolen go iawn yn yr ystod wreiddiol. Gweler sgrinluniau:


swigen dde glas saeth Tynnwch gyfeiriadau gwirioneddol o hyperddolenni gyda Swyddogaeth Diffiniad Defnyddiwr

Gall y Swyddogaeth Diffiniedig Defnyddiwr ganlynol hefyd dynnu'r URl go iawn o'r hypergysylltiadau.

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 Ffenestr Modiwl.

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3. Cadwch y cod a chau'r ffenestr, dewiswch gell wag i deipio'r fformiwla hon = GetURL (A2) (A2 yw'r gell y mae'r hyperddolen ynddo), a gwasgwch Rhowch botwm. Gallwch weld bod y cyfeiriad hyperddolen go iawn yn cael ei dynnu.


swigen dde glas saeth Tynnwch gyfeiriadau gwirioneddol o hypergysylltiadau gyda Kutools ar gyfer Excel yn gyflym ac yn hawdd

Dyma offeryn defnyddiol, o'r enw Kutools ar gyfer Excel, Gyda'i Trosi Hypergysylltiadau nodwedd, gallwch chi ddelio â'r gweithrediadau canlynol yn gyflym:

  • Tynnu cyfeiriadau gwirioneddol o hyperddolenni;
  • Trosi testun url yn hyperddolenni y gellir eu clicio.
Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod.

Os ydych chi wedi gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:

1. Dewiswch yr ystod sy'n cynnwys yr hypergysylltiadau sydd angen eu tynnu.

2. Cliciwch Kutools > Cyswllt > Trosi Hypergysylltiadau, gweler y screenshot:

3. Yn y Trosi Hypergysylltiadau blwch deialog, dewiswch Mae cyfeiriadau hypergysylltiadau yn disodli cynnwys celloedd opsiwn, a chlicio doc-botwm1 botwm o Amrediad canlyniadau i nodi cell i roi'r canlyniad.

4. Ac yna cliciwch OK, mae'r cyfeiriadau gwirioneddol wedi'u tynnu o'r hypergysylltiadau. Gweler y screenshot:

Nodyn: Os ydych chi am roi'r cyfeiriadau gwirioneddol i'r ystod wreiddiol, gwiriwch Trosi ystod ffynhonnell.

Cliciwch Trosi Hypergysylltiadau i wybod mwy am y nodwedd hon.

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !


swigen dde glas saeth Demo: Tynnwch gyfeiriadau gwirioneddol o hypergysylltiadau gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Erthygl gysylltiedig:

Sut i drosi testun url i hyperddolen y gellir ei glicio yn Excel?

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
Comments (44)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour
Auriez vous une solution pour mettre en place le fonctionnement par la formule sur Excel 365 sur Mac ?
This comment was minimized by the moderator on the site
Hello, Edouard,
Sorry, the methods in this article are only applied to Microsoft Excel.
Thank you!
This comment was minimized by the moderator on the site
Ola colegas ,

Tenho uma planilha com mais de 2000 linhas, preciso exportar o documento que esta no hiperlink estas celulas, para um diretório da maquina, alguém sabe como fazer ?

agradeço a atenção

at..
cássia
This comment was minimized by the moderator on the site
Thank you it solve my problem
This comment was minimized by the moderator on the site
Thank you, the VBA code worked like a charm :)
This comment was minimized by the moderator on the site
Thank you for the tip to Extract Actual Addresses From Hyperlinks in Excel With VBA Code. It was exactly what I needed!
This comment was minimized by the moderator on the site
How does this apply to Excel on Mac?
This comment was minimized by the moderator on the site
I think it's nice to have an option that doesn't require macros since so many haven't used VBA at all.
This comment was minimized by the moderator on the site
If you're not comfortable with VBA, the key step to getting this done is the FORMULATEXT() formula that is included with excel. For example, if cell A1 has this...
=HYPERLINK("https://www.google.com","Google Homepage")
...then it would display "Google Homepage" but you want to extract "https://www.google.com". You can use =FORMULATEXT(A1) to get the output of "=HYPERLINK("https://google.com","Google Homepage")".

Then you use the find and mid functions to find the double quotes (which is CHAR(34)) and pull the string between the first two double quotes. Nesting it all together, you can use this formula to get the URL without any VBA required...
=MID(FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1,FIND(CHAR(34),FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1)-FIND(CHAR(34),FORMULATEXT(A1))-1)
This comment was minimized by the moderator on the site
Thankyou for an easy method to extract the complete URL from a weblink. I looked at other methods that were too nebulous but yours was straightforward and easy. Thanks.
This comment was minimized by the moderator on the site
Thanks for the " Extract actual addresses from hyperlinks with VBA code" VBA and clear instructions. It worked great for me.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations