Как извлечь фактические адреса из гиперссылок в Excel?

Предположим, у вас есть диапазон ячеек, содержащих гиперссылки, и теперь вам нужно увидеть реальное назначение этих гиперссылок и извлечь их, как показано на следующем скриншоте. Есть ли простые способы быстро решить эту проблему? В этой статье мы покажем вам, как извлечь фактические адреса из нескольких гиперссылок.

Извлечение фактических адресов из гиперссылок с помощью функции Изменить гиперссылку

Быстро и легко извлекать фактические адреса из гиперссылок с помощью Kutools для Excel

Извлечение фактических адресов из гиперссылок с помощью кода VBA

Извлечение фактических адресов из гиперссылок с помощью пользовательской функции

Извлечение фактических адресов из гиперссылок с помощью функции Изменить гиперссылку

Здесь функция Изменить гиперссылку может помочь вам извлечь базовый URL для каждой из этих гиперссылок и поместить этот фактический адрес в другую ячейку. Вы можете сделать это следующим образом:

1. Выберите ячейку с гиперссылкой и щелкните правой кнопкой мыши, из контекстного меню выберите Изменить гиперссылку, см. скриншот:

2. Появится диалоговое окно Изменить гиперссылку, выделите и скопируйте (Ctrl+C) весь URL из поля Адрес этого диалогового окна.

3. Затем закройте диалоговое окно и вставьте фактический адрес в любую ячейку, которую хотите.

Примечание: С помощью этого метода можно извлечь только один адрес гиперссылки за раз, но если вам нужно извлечь несколько гиперссылок, вам придется применять эту функцию повторно.

Быстро и легко извлекать фактические адреса из гиперссылок с помощью Kutools для Excel

Вот удобный инструмент, называемый Kutools для Excel, с его функцией Конвертировать гиперссылки вы можете быстро справиться со следующими операциями:

• Извлечь фактические адреса из гиперссылок;
• Преобразовать текст URL в кликабельные гиперссылки.

Если вы установили Kutools для Excel, пожалуйста, сделайте следующее:

1. Выберите диапазон, который содержит гиперссылки, которые нужно извлечь.

2. Нажмите Kutools > Ссылка > Конвертировать гиперссылки, см. скриншот:

3. В Конвертировать гиперссылки диалоговом окне выберите Конвертировать адрес гиперссылки в содержимое ячейки вариант, и нажмите кнопку из Результат диапазона чтобы указать ячейку для размещения результата.

4. Затем нажмите OK, фактические адреса были извлечены из гиперссылок. См. скриншот:

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

Скачайте и попробуйте Kutools для Excel прямо сейчас бесплатно!

Извлечение фактических адресов из гиперссылок с помощью кода VBA

Для большого количества гиперссылок вышеупомянутый метод будет утомительным и отнимет много времени, поэтому следующий код VBA поможет вам быстро извлечь несколько адресов из гиперссылок одновременно.

1. Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.

Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3. Затем нажмите клавишу F5, чтобы запустить код, и появится диалоговое окно, чтобы выбрать гиперссылки, из которых вы хотите извлечь реальные адреса, см. скриншот:

4. Затем нажмите OK, и содержимое выбранных ячеек было преобразовано в реальные адреса гиперссылок в исходном диапазоне. См. скриншоты:

Извлечение фактических адресов из гиперссылок с помощью определенной пользователем функции

Следующая определенная пользователем функция также может извлечь фактический URL из гиперссылок.

1. Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3. Сохраните код и закройте окно, выберите пустую ячейку, чтобы ввести эту формулу =GetURL(A2) (A2 — это ячейка, в которой находится гиперссылка), и нажмите кнопку Enter. Вы увидите, что реальный адрес гиперссылки был извлечен.

Связанная статья:

Как преобразовать текст URL в кликабельную гиперссылку в Excel?