Как скопировать только гиперссылку из одной ячейки в другую в Excel?

Предположим, у меня есть список значений в столбце A, и каждая ячейка содержит разные гиперссылки. Теперь я хочу скопировать только гиперссылки без текста в другой столбец E, как показано на следующем скриншоте. Возможно, в Excel нет прямого способа решить эту задачу, но здесь я могу предложить код VBA для её выполнения.

Копирование гиперссылки из одной ячейки в другую с помощью кода VBA

Копирование гиперссылки из одной ячейки в другую с помощью кода VBA

Чтобы скопировать только адреса гиперссылок без текста в другие ячейки, следующий код может помочь вам в этом, пожалуйста, сделайте так:

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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. Адреса гиперссылок были скопированы из исходных ячеек в указанные ячейки, как вам нужно, см. скриншот:

Примечание: Этот код также может помочь вам скопировать гиперссылки с одного листа на другой, как вы хотите.