Ինչպե՞ս արագ թվարկել բոլոր հիպերհղումները Excel- ում:

Երբ մենք օգտագործում ենք աշխատանքային թերթիկ, գուցե դրա մեջ ստեղծում ենք բազմաթիվ հիպերհղումներ, և երբեմն մենք պետք է իմանանք, թե որտեղ են հղվում տեքստերը: Եթե ​​դրանք կտտացրեք մեկ առ մեկ, դա հոգնեցուցիչ ու ժամանակատար կլինի: Եթե ​​աշխատաթերթում կարողանանք թվարկել բոլոր հիպերհղումները տեքստերով և հիպերհղումների հասցեներով, մեզ համար հեշտ կլինի ստուգել բոլոր հիպերհղումները Excel- ում:

Նշեք բոլոր ընտրված հղումները VBA կոդով

Excel- ի համար Kutools- ով հանել հղումների բոլոր իրական հասցեները

Նշեք բոլոր ընտրված հղումները VBA կոդով

1, Ընտրեք այն տիրույթը, որը պարունակում է այն հիպերհղումները, որոնք ցանկանում եք թվարկել:

2: Սեղմեք Երեվակիչ>Visual Basic, նոր Microsoft Visual Basic հավելվածների համար պատուհանը կցուցադրվի, կտտացրեք Տեղադրել>Մոդուլներև մուտքագրեք հետևյալ կոդը Մոդուլում.

Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then 
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub

3. Այնուհետեւ կտտացրեք կոդ ՝ կոդն աշխատեցնելու համար: Եվ բոլոր հիպերհղումները կցուցադրվեն նոր աշխատաթերթում, որը կոչվում է Հիպերհղումների ցուցակ, Տեսեք,

Excel- ի համար Kutools- ով հանել հղումների բոլոր իրական հասցեները

Հետ Excel- ի համար նախատեսված գործիքներ'S Փոխարկել հիպերհղումները առանձնահատկությունը, դուք կարող եք արագ արդյունահանել իրական հասցեները հիպերհղումներից:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալ կերպ .( Անվճար ներբեռնեք Kutools Excel- ի համար հիմա )

1, Ընտրեք այն հղումները, որոնք ցանկանում եք արդյունահանել իրական ուղղությունները:

2. Այնուհետեւ կտտացրեք Կուտոլս > կապ > Փոխարկել հիպերհղումները, տես նկարի նկարը.

3, Մեջ Փոխարկել հիպերհղումները երկխոսության տուփ, ընտրեք Հիպերհղումների հասցեները փոխարինում են բջիջների պարունակությանը տարբերակը Փոխարկել տեսակը բաժնում, ապա նշեք այն բջիջը, որտեղ ցանկանում եք արդյունքը դնել տողի տակ Արդյունքների շրջանակը բաժին, տես նկարի նկարը.

4. Այնուհետեւ կտտացրեք OK կոճակը, բոլոր իրական հասցեները արդյունահանվել են հիպերհղումներից, տես նկարի նկարը.

Նշում: Փոխարկել աղբյուրի տիրույթըարդյունահանված արդյունքները տեղակայված կլինեն բնօրինակ բջիջների տիրույթում, եթե ստուգեք այս տարբերակը:

Անվճար ներբեռնեք Kutools Excel- ի համար հիմա

Առնչվող Հոդված

Ինչպե՞ս արագ ջնջել Excel- ում առկա բոլոր հղումները:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖	Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
	Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
	Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
	Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
	Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
	Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
	Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Կարդալ ավելին... Անվճար ներբեռնում...

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում...