Ինչպե՞ս արագ թվարկել բոլոր հիպերհղումները 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- ում առկա բոլոր հղումները: