Ինչպե՞ս պատճենել հիպերհղումը Excel- ում միայն մեկ բջիջից մյուսը:
Ենթադրելով, որ ես ունեմ արժեքների ցուցակ A սյունակում, և յուրաքանչյուր բջիջ պարունակում է տարբեր հիպերհղում, այժմ ես ուզում եմ պատճենել միայն առանց հղումների հղումները այլ սյունակում, ինչպես ցույց է տրված հետևյալ նկարը: Գուցե Excel- ում այս աշխատանքը լուծելու ուղղակի միջոց չկա, բայց այստեղ ես կարող եմ ներկայացնել VBA կոդ դրա հետ գործ ունենալու համար:
Պատճենեք հղումը մեկ բջիջից մյուսը 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 Այս կոդը գործարկելու համար ստեղնաշար է, դուրս կգա երկխոսության տուփ, որը կհիշեցնի ձեզ ընտրել այն բջիջները, որոնք ցանկանում եք պատճենել միայն հղումները, տե՛ս նկար
4. Եվ այնուհետեւ կտտացրեք OK, ապա ընտրեք այն բջիջները, որոնք ցանկանում եք տեղադրել հիպերլինները միայն մեկ այլ երկխոսության դաշտում, տես նկարի նկարը.
5, Եվ հիպերհղման հասցեները պատճենվել են բնօրինակ բջիջներից նշված բջիջներին, որքան անհրաժեշտ է: Տեսեք,
ՆշումԱյս ծածկագիրը կարող է նաև օգնել ձեզ պատճենել հղումները մի թերթից մյուս թերթը, ինչպես ցանկանում եք:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: