Kako kopirati hiperpovezavo samo iz ene celice v drugo v Excelu?
Recimo, da imam v stolpcu A seznam vrednosti in vsaka celica vsebuje drugačno hiperpovezavo, zdaj pa želim kopirati samo hiperpovezave brez besedila v drug stolpec E, kot je prikazano na spodnji sliki zaslona. Mogoče ni neposrednega načina za rešitev te naloge v Excelu, toda tukaj lahko predstavim kodo VBA za obravnavo.
Kopirajte hiperpovezavo iz ene celice v drugo s kodo VBA
Kopirajte hiperpovezavo iz ene celice v drugo s kodo VBA
Če želite samo naslove hiperpovezav brez besedila kopirati v druge celice, vam lahko z naslednjo kodo naredite uslugo:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: kopirajte hiperpovezavo samo iz ene celice v drugo:
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. In nato pritisnite F5 za zagon te kode, se bo odprlo pogovorno okno, ki vas bo opozorilo, da izberete celice, v katere želite kopirati samo hiperpovezave, glejte posnetek zaslona:
4. In nato kliknite OK, nato izberite celice, v katere želite hiperlinine prilepiti samo v drugem pogovornem oknu, glejte posnetek zaslona:
5. In naslovi hiperpovezav so bili kopirani iz prvotnih celic v določene celice, kot jih potrebujete, glejte posnetek zaslona:
Opombe: Ta koda vam lahko pomaga tudi pri kopiranju hiperpovezav z enega lista na drug list, kot želite.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!