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

Ինչպե՞ս պատճենել հիպերհղումը Excel- ում միայն մեկ բջիջից մյուսը:

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

փաստաթղթի պատճենը հղումը մեկ այլ խցում 1

Պատճենեք հղումը մեկ բջիջից մյուսը VBA կոդով


նետ կապույտ աջ պղպջակ Պատճենեք հղումը մեկ բջիջից մյուսը VBA կոդով

Միայն hyperlink հասցեները առանց տեքստի այլ բջիջներում պատճենելու համար հետևյալ ծածկագիրը կարող է ձեզ լավություն բերել, խնդրում ենք որպես հետևյալը.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Պատճենեք հիպերհղումը միայն մեկ բջիջից մյուսը.

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, Եվ հետո սեղմեք F5 Այս կոդը գործարկելու համար ստեղնաշար է, դուրս կգա երկխոսության տուփ, որը կհիշեցնի ձեզ ընտրել այն բջիջները, որոնք ցանկանում եք պատճենել միայն հղումները, տե՛ս նկար

փաստաթղթի պատճենը հղումը մեկ այլ խցում 02

4. Եվ այնուհետեւ կտտացրեք OK, ապա ընտրեք այն բջիջները, որոնք ցանկանում եք տեղադրել հիպերլինները միայն մեկ այլ երկխոսության դաշտում, տես նկարի նկարը.

փաստաթղթի պատճենը հղումը մեկ այլ խցում 03

5, Եվ հիպերհղման հասցեները պատճենվել են բնօրինակ բջիջներից նշված բջիջներին, որքան անհրաժեշտ է: Տեսեք,

փաստաթղթի պատճենը հղումը մեկ այլ խցում 04

ՆշումԱյս ծածկագիրը կարող է նաև օգնել ձեզ պատճենել հղումները մի թերթից մյուս թերթը, ինչպես ցանկանում եք:


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

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

 

Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (13)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, իսկ եթե ես ուզում եմ պատճենել իմ հիպերհղումը A բջիջ A5 թերթիկից դեպի Թերթ B բջիջ A5:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Արպիտ:

Ես թարմացրել եմ VBA կոդը, այժմ, դուք կարող եք այն կիրառել երկու աշխատաթերթերում, ինչպես ձեզ անհրաժեշտ է: Խնդրում եմ փորձեք այն, հուսով եմ, որ այն կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ պատճենել հղումները մի ֆայլի մի քանի թերթերից մեկ այլ ֆայլ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բարև.. իսկ եթե ես ուզում եմ պատճենել հիպերհղումը vlookup-ի միջոցով: Ես արդեն ունեմ բանաձևը, բայց երբ սեղմում եմ հիպերհղումը, կհայտնվի «չի կարող բացել տեսակի ֆայլը»:

Խնդրում եմ օգնեք ինձ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Չի աշխատում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հավանում եմ սա. Շատ շնորհակալ եմ։
Սեր Դոմինիկյան Հանրապետությունից :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Չի աշխատում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եկեք ասենք, որ ձեր բջիջում A1-ը հիպերհղում է, ուստի հիպերհղման ուղին ստանալու համար պարզապես ստեղծեք հետևյալ բանաձևը.
>> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա նույնպես ինձ մոտ չստացվեց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հիանալի է և աշխատում է: Ես սիրում եմ copy&paste անել ուրիշների կոդը :D
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինձ մոտ չի աշխատում; նշանակություն ունի՞ այն փաստը, որ ես դեռ օգտագործում եմ Excel 2007:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ, այնպես որ դուք չեք հրապարակի իմ մեկնաբանությունը, որն արդարացի է: Բայց եթե ուզում եք, որ գրանցվեմ և մուտք գործեմ, ապա պետք է ինձ ցույց տաք լուծումներ, որոնք աշխատում են, քանի որ (մեկ չաշխատող օրինակի հիման վրա) ես ոչինչ չեմ տեսել, որ համոզի ինձ, որ գրանցման մեջ որևէ արժեք կա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես կատարել եմ հետևյալ խմբագրումները՝ իմ օգտագործման դեպքում աշխատելու համար.
Sub Copy Hyperlinks ()
― Ուոդեբայ Extendoffice
Dim xSRg որպես միջակայք
Dim xDRg որպես տիրույթ
Dim I Որպես ամբողջ թիվ
Dim xAddress As String
Ս.թ. սխալի Ռեզյումե Next
xAddress = ActiveWindow.RangeSelection.Address
Սահմանեք xSRg = Application.InputBox («Խնդրում ենք ընտրել բնօրինակ տիրույթը, որը ցանկանում եք պատճենել հիպերհղումները.», «KuTools For Excel», xAddress, , , , , 8)
Եթե ​​xSRg-ը ոչինչ չէ, ապա դուրս եկեք Sub-ից
Սահմանեք xDRg = Application.InputBox («Խնդրում ենք ընտրել նոր տիրույթը, որը ցանկանում եք տեղադրել միայն հիպերհղումները», «KuTools For Excel», , , , , , 8)
Եթե ​​xDRg-ը ոչինչ չէ, ապա դուրս եկեք Sub
Սահմանել xDRg = xDRg (1)
I = 1-ի համար դեպի xSRg.Count
Եթե ​​xSRg(I).Hyperlinks(1).Address <> "" Կամ xSRg(I).Hyperlinks(1).SubAddress <> "" Այնուհետեւ
Եթե ​​xSRg(I).Հիպերհղումներ.Count = 1 Ապա
xDRg(I).Հիպերհղումներ.Ավելացնել խարիսխ.=xDRg(I), _
Հասցե՝=xSRg(I).Հիպերհղումներ(1).Հասցե, _
Ենթահասցե՝=xSRg(I).Հիպերհղումներ(1).Ենթահասցե
'ScreenTip:=xSRg(I).Հիպերհղումներ(1).ScreenTip, _
«TextToDisplay:=xSRg(I).Հիպերհղումներ(1).TextToDisplay
Վերջ: Եթե
Վերջ: Եթե
հաջորդ
Վերջ Sub
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից