Как да копирам хипервръзка само от една клетка в друга в Excel?
Да предположим, че имам списък със стойности в колона A и всяка клетка съдържа различна хипервръзка, сега искам да копирам само хипервръзките без текст в друга колона E, както е показано на следната екранна снимка. Може би няма директен начин за решаване на тази задача в Excel, но тук мога да въведа VBA код за справяне с нея.
Копирайте хипервръзка от една клетка в друга с VBA код
Копирайте хипервръзка от една клетка в друга с VBA код
За да копирате само адресите на хипервръзките без текста в други клетки, следният код може да ви направи услуга, моля, както следва:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
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 Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!