Sut i gopïo hyperddolen yn unig o un gell i'r llall yn Excel?
Gan dybio, mae gen i restr o werthoedd yng ngholofn A ac mae pob cell yn cynnwys hyperddolen wahanol, nawr, rydw i eisiau copïo'r hypergysylltiadau yn unig heb destun i golofn E arall fel y dangosir y llun a ddangosir. Efallai nad oes unrhyw ffordd uniongyrchol i ddatrys y swydd hon yn Excel, ond yma, gallaf gyflwyno cod VBA ar gyfer delio ag ef.
Copïwch hyperddolen o unwaith y gell i'r llall gyda chod VBA
Copïwch hyperddolen o unwaith y gell i'r llall gyda chod VBA
I gopïo'r cyfeiriadau hyperddolen heb y testun i gelloedd eraill yn unig, gall y cod canlynol ffafrio chi, os gwelwch yn dda fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: copïwch hyperddolen yn unig o un gell i'r llall:
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. Ac yna pwyswch F5 yn allweddol i redeg y cod hwn, bydd blwch deialog yn popio allan i'ch atgoffa i ddewis y celloedd rydych chi am gopïo'r hypergysylltiadau yn unig, gweler y screenshot:
4. Ac yna cliciwch OK, yna dewiswch y celloedd rydych chi am gludo'r hyperglinau mewn blwch deialog arall yn unig, gweler y screenshot:
5. Ac mae'r cyfeiriadau hyperddolen wedi'u copïo o'r celloedd gwreiddiol i'r celloedd penodedig yn ôl yr angen, gweler y screenshot:
Nodyn: Gall y cod hwn hefyd eich helpu i gopïo'r hypergysylltiadau o un ddalen i ddalen arall fel y dymunwch.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
