Ինչպե՞ս Excel- ում հիպերհղումներից հանել իրական հասցեները:
Ենթադրելով, որ դուք ունեք մի շարք բջիջներ, որոնք պարունակում են հիպերհղումներ, և այժմ դուք պետք է տեսնեք հիպերհղումների իրական նպատակակետը և դրանք հանեք հիպերհղումներից, ինչպես ցույց է տրված հետևյալ նկարը: Կա՞ն այս խնդիրը արագ լուծելու հեշտ եղանակներ: Այս հոդվածը կօգնի ձեզ դուրս բերել բազմաթիվ հասցեներից իրական հասցեները:
Հիպերհղումներից հանեք իրական հասցեները ՝ Խմբագրել հիպերհղումը հնարավորությամբ
Այստեղ Խմբագրել հիպերհղումը գործառույթը կարող է օգնել ձեզ արդյունահանել այս հիպերհղումներից յուրաքանչյուրի համար հիմքում գտնվող URL- ը և տեղադրել այդ փաստացի հասցեն այլ խցում: Կարող եք անել այս կերպ.
1, Համատեքստային ընտրացանկից ընտրեք հիպերհղումով բջիջը և սեղմեք աջով Խմբագրել հիպերհղումը, տես նկարի նկարը.
2, Եվ Խմբագրել հիպերհղումը կհայտնվի երկխոսության տուփ, ընտրեք և պատճենեք (Ctrl + C) ամբողջ URL- ն ՝ հասցե երկխոսության տուփի դաշտ:
3, Դրանից հետո փակեք երկխոսության տուփը և տեղադրեք փաստացի հասցեն ձեր ուզած բջիջում:
ՆշումԱյս մեթոդով դուք ամեն անգամ կարող եք արդյունահանել միայն մեկ հիպերհղման հասցե, բայց եթե ունեք մի քանի հիպերհղումներ, որոնք անհրաժեշտ է արդյունահանել, դուք պետք է բազմիցս կիրառեք այս գործառույթը:
VBA կոդով հիպերհղումներից հանեք իրական հասցեները
Բազմաթիվ հիպերհղումների համար վերը նշված մեթոդը ձանձրալի և ժամանակատար կլինի, ուստի հետևյալ VBA կոդը կարող է օգնել ձեզ արագորեն միանգամից մի քանի հասցեներ հանել հղումներից:
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:
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, Դրանից հետո սեղմեք F5 Կոդը գործարկելու համար ստեղն է, և երկխոսություն է դուրս գալիս, որպեսզի ընտրեք այն հիպերհղումները, որոնք ցանկանում եք արդյունահանել իրական հասցեները, տես նկարի նկարը.
4. Այնուհետեւ կտտացրեք OK, և ընտրված բջիջների պարունակությունը վերափոխվել է իրական հիպերհղման հասցեների ՝ սկզբնական տիրույթում: Տեսեք սքրինշոթեր.
User Definde գործառույթով հանել հղումների իրական հասցեները
Օգտագործողի կողմից սահմանված հետևյալ գործառույթը կարող է նաև հանել հղումների իրական URl- ը:
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.
Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
GetURL = pWorkRng.Hyperlinks(1).Address
End Function
3, Պահեք կոդը և փակեք պատուհանը, ընտրեք դատարկ բջիջ `այս բանաձևը մուտքագրելու համար = GetURL (A2) (A2 այն բջիջն է, որի մեջ hyperlink- ն է) և սեղմիր Մտնել կոճակ Դուք կարող եք տեսնել, որ իրական hyperlink հասցեն արդյունահանվում է:
Kutools- ի համար Excel- ի համար հիպղ հղումներից արդյունահանեք արագ և հեշտությամբ իրական հասցեները
Ահա մի հարմար գործիք, որը կոչվում է Excel- ի համար նախատեսված գործիքներԻր Փոխարկել հիպերհղումները առանձնահատկությունը, դուք կարող եք արագ զբաղվել հետևյալ գործողություններով.
- Հիպերհղումներից հանեք իրական հասցեները;
- Վերափոխեք url տեքստը ՝ սեղմվող հղումների.
Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. |
Եթե տեղադրեք Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.
1, Ընտրեք այն հատվածը, որը պարունակում է հիպերհղումները, որոնք անհրաժեշտ են արդյունահանման համար:
2: Սեղմեք Կուտոլս > կապ > Փոխարկել հիպերհղումները, տես նկարի նկարը.
3, Մեջ Փոխարկել հիպերհղումները երկխոսության տուփ, ընտրեք Հիպերհղումների հասցեները փոխարինում են բջիջների պարունակությանը տարբերակը և սեղմեք կոճակը ՝ Արդյունքների շրջանակը նշել բջիջը ՝ արդյունքը դնելու համար:
4. Եվ այնուհետեւ կտտացրեք OK, իրական հասցեները դուրս են բերվել հիպերհղումներից: Տեսեք,
ՆշումԵթե ուզում եք բուն հասցեները բուն տիրույթում դնել, ստուգեք Փոխարկել աղբյուրի տիրույթը.
Սեղմել Փոխարկել հիպերհղումները ավելին իմանալ այս հատկության մասին:
Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:
Դեմո. Excel- ի համար Kutools- ի հիպերհղումներից հանեք իրական հասցեները
Առնչվող հոդված:
Ինչպե՞ս վերափոխել url տեքստը Excel- ում սեղմվող հիպերհղման:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: