Excel как вытащить гиперссылки в ячейку

@tachyglossus 

Extract actual addresses from hyperlinks with VBA code

Press on the heading to get more possibilities and options.

Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

  Click Insert> Module and paste the following code into the module window.

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: =

For Each Rng In WorkRng

     If Rng.Hyperlinks.Count> 0 Then

         Rng.Value = Rng.Hyperlinks.Item (1) .Address

     End If

Next

End Sub

Then press F5 when you press the key to run the code, it will bring up a dialog box for you to choose the hyperlinks that you want to extract the actual addresses from.

Then click OK and the selected cell contents will be converted to the real hyperlink addresses in the original range.

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

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

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

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

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

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

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

Извлекайте фактические адреса из гиперссылок с кодом 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 кнопка. Вы можете видеть, что реальный адрес гиперссылки извлечен.

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

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

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

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

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

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

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

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

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

Нажмите Конвертировать гиперссылки чтобы узнать больше об этой функции.

Скачать и бесплатную пробную версию Kutools for Excel Сейчас !

Демонстрация: извлечение фактических адресов из гиперссылок с помощью Kutools for Excel

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

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

Хитрости »

9 Ноябрь 2012              105457 просмотров

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

Функция, приведенная ниже позволяет извлечь из ячейки, в которой записана гиперссылка, адрес этой гиперссылки. Гиперссылка может быть как записана с помощью функции ГИПЕРССЫЛКА, так и созданная через контекстное меню. Подробнее про гиперссылки можно прочитать в этой статье: Что такое гиперссылка?

Function Get_Hyperlink_Address(ByVal rCell As Range) As String
    Dim s As String
    If rCell.Hyperlinks.Count = 0 Then
        s = rCell.Formula
        If Mid$(s, 2, 9) = "HYPERLINK" Then
            'такой подход сработает только в случае, если в ячейке записана ссылка текстом
            'но не сработает, если гиперссылка создана из ссылок на ячейки
            '   Get_Hyperlink_Address = Mid$(s, 13, InStr(13, s, Chr(34)) - 13)
            'поэтому используем более сложный, но универсальный вариант
            If s Like "=HYPERLINK*" Then
                'получаем данные первого аргумента и убираем знак =
                s = Split(s, ",")(0)
                s = Mid$(s, 2, Len(s) - 1)
                'на всякий случай добавляем скобку в конец формулы
                'хоть Evaluate должен сработать и без неё
                If Right$(s, 1) <> ")" Then
                    s = s & ")"
                End If
                Get_Hyperlink_Address = Evaluate(s)
            End If
        Else
            Get_Hyperlink_Address = ""
        End If
    Else
        s = rCell.Hyperlinks(1).SubAddress
        If s <> "" Then s = "#" & rCell.Hyperlinks(1).SubAddress
        Get_Hyperlink_Address = rCell.Hyperlinks(rCell.Hyperlinks.Count).Address & s
    End If
End Function

Если впервые сталкиваетесь с подобными функциями настоятельно рекомендую прочитать про то, что это за функции: Что такое функция пользователя(UDF)?.
Доступна функция будет из Мастера функций, категория Определенные пользователем (User Defined). Либо можно напрямую записать в ячейку:=Get_Hyperlink_Address(B1)

Скачать пример

  АдресГиперссылки.xls (66,5 KiB, 12 659 скачиваний)

Решил дополнить статью примером функции, которая позволяет вытащить из ячейки с гиперссылкой подсказку:

Function Get_Hyperlink_Title(ByVal rCell As Range) As String
    Dim s As String
    If rCell.Hyperlinks.Count = 0 Then
        If Mid$(rCell.Formula, 2, 9) = "HYPERLINK" Then
            Get_Hyperlink_Title = rCell.Text
        Else
            Get_Hyperlink_Title = ""
        End If
    Else
        Get_Hyperlink_Title = rCell.Hyperlinks(1).ScreenTip
    End If
End Function

Так же см.:
Что такое функция пользователя(UDF)?
Что такое гиперссылка?
Текст в гиперссылки
Как массово изменить гиперссылки?

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Сегодня, меня товарищ попросил с его интернет магазина по продаже светодиодной ленты вытащить все его категории и товар в Url , для одного сервиса.

Для таких задач можно использовать плагины для браузеров, но давно я не экспериментировал с Excel ))

Что имеем на данный момент:

На данный момент есть сайт при копировании меню в excel получаем залинкованное меню

Что нужно получить? 

Нужно на против каждого меню вывести URL (гиперссылки). Использовать для данной задачи будет макросы Microsoft Excel.

Как делать?

Для данной задачи используем макросы VBA (Visual Basic for Applications ).

1. 1. Открываем Excel
   2. Копируем меню (в моем случае) или в вашем любой текст содержащий ссылки
   3. Переходим в меню Вид -> Макросы
      
   4. Создаем макрос
   5. копируем в него след КОД

      Sub ExtractHL()
      Dim HL As Hyperlink
      For Each HL In ActiveSheet.Hyperlinks
      HL.Range.Offset(0, 1).Value = HL.Address
      Next
      End Sub

   6. Сохраняем макрос
   7. Выделяем наш текст
   8. Запускаем макрос
   9. Радуемся результату )

Ну и как обычно прикладываю видео где вы можете посмотреть как – How to extract a URL from a hyperlink on Excel