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

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

Функция может помочь если вам, к примеру, необходимо извлечь адреса ссылок из скопированного в интернете тексте.

Функция =АДРЕССЫЛКИ(ГИПЕРССЫЛКА) имеет один обязательный аргумент

ГИПЕРССЫЛКА — ссылка на ячейку содержащую гиперссылку.

Пример

Определение адреса ссылки по гиперссылке из ячейки.

Код на VBA

Public Function АДРЕССЫЛКИ(ГИПЕРССЫЛКА As Range) As String АДРЕССЫЛКИ = ГИПЕРССЫЛКА.Hyperlinks.Item(1).Address End Function

Надстройка
VBA-Excel

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

ГИПЕРССЫЛКА (функция ГИПЕРССЫЛКА)

Excel для Microsoft 365 Excel для Microsoft 365 для Mac Excel для Интернета Excel 2021 Excel 2021 для Mac Excel 2019 Excel 2019 для Mac Excel 2016 Excel 2016 для Mac Excel 2013 Excel 2010 Excel 2007 Excel для Mac 2011 Excel Starter 2010 Еще. Меньше

В этой статье описаны синтаксис формулы и использование функции ГИПЕРССЫЛКА в Microsoft Excel.

Описание

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

Синтаксис

ГИПЕРССЫЛКА(адрес;[имя])

Аргументы функции ГИПЕРССЫЛКА описаны ниже.

адрес

Обратите Excel в Интернете что функция ГИПЕРССЫЛКА действительна только для веб-адресов (URL-адресов). Link_location может быть текстовая строка, заключенная в кавычка, или ссылка на ячейку, содержаную ссылку в виде текстовой строки.

Аргумент «имя» может быть представлен значением, текстовой строкой, именем или ячейкой, содержащей текст или значение для перехода.

Замечания

Чтобы в Excel приложении выбрать ячейку с гиперссылкой, не переходя по ней, щелкните ячейку и удерживайте кнопку мыши, пока указатель не , а затем отпустите кнопку мыши. В Excel в Интернете выберите ячейку, щелкнув ее, когда указатель является стрелкой; перейти к пункту назначения гиперссылки, щелкнув, когда указатель является указателем руки.

Примеры

=ГИПЕРССЫЛКА(«http://example.microsoft.com/report/budget report.xlsx», «Щелкните, чтобы просмотреть отчет»)

Открывает книгу, сохраненную по адресу http://example.microsoft.com/report. В ячейке отображается текст «Щелкните, чтобы просмотреть отчет» в качестве текста ссылки.

=ГИПЕРССЫЛКА(«[http://example.microsoft.com/report/budget report.xlsx]Годовой!F10»; D1)

Создает гиперссылку на ячейку F10 листа Годовой книги, сохраненной по адресу http://example.microsoft.com/report. В ячейке листа, содержащей гиперссылку, в качестве текста ссылки отображается содержимое ячейки D1.

=ГИПЕРССЫЛКА(«[http://example.microsoft.com/report/budget report.xlsx]’Первый квартал’!ИтогиОтдел», «Щелкните, чтобы просмотреть итоги по отделу за первый квартал»)

Создает гиперссылку на диапазон ИтогиОтдел на листе Первый квартал книги, сохраненной по адресу http://example.microsoft.com/report. В ячейке листа, содержащей гиперссылку, в качестве текста ссылки отобразится «Щелкните, чтобы вывести итоги по отделу за первый квартал».

=ГИПЕРССЫЛКА(«http://example.microsoft.com/Annual Report.docx]КвартПриб», «Квартальный отчет о прибыли»)

Чтобы создать гиперссылку на определенное место в файле Word, необходимо сначала с помощью закладки определить место в файле, куда должен выполняться переход. В приведенном ниже примере создается гиперссылка на закладку КвартПриб в файле Annual Report.doc, сохраненном по адресу http://example.microsoft.com.

Отображает содержимое ячейки D5 в качестве текста ссылки и открывает книгу, сохраненную на сервере FINANCE в общей папке Statements. В данном примере используется путь в формате UNC.

Открывает книгу 1stqtr.xlsx, которая находится в каталоге Finance на жестком диске D. После этого выводится число, которое содержится в ячейке H10.

Создает гиперссылку на область Totals в другой (внешней) книге Mybook.xlsx.

=ГИПЕРССЫЛКА(«[Книга1.xlsx]Лист1!A10″;»Перейти на Лист1 > A10»)

Чтобы перейти в другое место на текущем листе, укажите имя книги и имя листа, как в этом примере, где «Лист1» — текущий лист.

=ГИПЕРССЫЛКА(«[Книга1.xlsx]Январь!A10″;»Перейти на лист Январь > A10»)

Чтобы перейти в место на другом листе, укажите имя книги и имя листа, как в этом примере, где «Январь» — другой лист в книге.

=ГИПЕРССЫЛКА(ЯЧЕЙКА(«адрес»,Январь!A1″;»Перейти на лист Январь > A1″)

Чтобы перейти в другое место на текущем листе без использования полной ссылки на лист ([Книга1.xlsx]), вы можете воспользоваться этой формулой, где ЯЧЕЙКА(«адрес») возвращает текущее имя книги.

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

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

введите сюда описание изображения

В таблице несколько ссылок, но когда я копирую то, что в ячейках, то получаю значения: 38014960 38014980 38014740 38015080 Как мне получить ссылки?

Отслеживать
8,276 3 3 золотых знака 18 18 серебряных знаков 24 24 бронзовых знака
задан 11 окт 2019 в 15:05
1 1 1 бронзовый знак

1 ответ 1

Сортировка: Сброс на вариант по умолчанию

Просто так ( Copy/Paste ) не получится. Но с помощью функции пользователя ( UDF ) можно.

Открыть проект VBA ( Alt+F11 ). в общем модуле разместить функцию:

Function HyperGet(rRng As Range) As String With rRng If .Hyperlinks.Count Then HyperGet = .Hyperlinks(.Hyperlinks.Count).Address 'адрес присвоенной ссылки' Else If Left$(.Formula, 10) = "=HYPERLINK" Then HyperGet = Mid$(Split(.Formula, ",")(0), 12) ' адрес ссылки из формулы' End If End If End With End Function

В ячейке, где нужно получить адрес гиперссылки, записать формулу:

=HyperGet(A2)

Вместо A2 — ссылка на первую ячейку диапазона, из которого нужно получить гиперссылки. Протянуть формулу по строкам.

Excel works!

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

Ноябрь 17, 2017 / Написал Izotov / 1 Comment

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

Бывает, что вы скопировали адреса сайтов из списка в интернете, в большинстве случаев, при таком копировании наименование адреса неравно самому адресу:

получить ссылку из ячейки

Разберемся как вытащить гиперссылку из такой ячейки

Как вывести адрес ссылки для одной ячейки?

Это несложно. Необходимо правой кнопкой мыши нажать на ячейку и выбрать Изменить гиперссылку.

Ссылка отдельно 2

В открывшемся окне вы можете скопировать ссылку из графы Адрес:

Ссылка отдельно 4

Конечно, для каждой ячейки из множества так не накопируешься, поэтому есть удобный способ — создать отдельную функцию для доставания адреса сайта или места на диске.

Если при нажатии на ячейку правой кнопкой мыши в появившемся окне нет кнопок Изменить гиперссылку, Открыть гиперссылку и т.д. Проверьте ту ли ячейку вы выбираете. Если ту, то в такой ячейке нет гиперссылки или она задана неверно.

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

На днях у меня возникла задача: нужно было вытащить ссылки более чем из 10 тыс ячеек. Не делать же такое вручную. Я сначала поискал решение в интернете и нашел отличное вариант. Публикую для своих читателей решение с прекрасного сайта . Для применения способа запишите текст, приведенный ниже в окно модуля VBA ( Ctrl+F11 ). Если не знаете о чем я веду речь, советую прочитать статью про макросы .

Текст создаваемой функции будет следующий:

Function Получить_Ссылку(ByVal rCell As Range) As String Dim s As String If rCell.Hyperlinks.Count = 0 Then If Mid$(rCell.Formula, 2, 9) = "HYPERLINK" Then Получить_Ссылку= Mid$(rCell.Formula, 13, InStr(13, rCell.Formula, Chr(34)) - 13) Else Получить_Ссылку = "В ячейке нет гиперссылки!" End If Else s = rCell.Hyperlinks(1).SubAddress If s <> "" Then s = "#" & rCell.Hyperlinks(1).SubAddress Получить_Ссылку= rCell.Hyperlinks(rCell.Hyperlinks.Count).Address & s End If End Function

Теперь если начать записывать формулу, у вас будет появляться и эта функция тоже.

Ссылка отдельно 5

Конечно, она будет доступна и в меню функций.

Введите адрес ячейки как аргумент этой функции и протяните формулу на нужное количество ячеек. Все!

Ссылка отдельно 6

Удобно, еще раз спасибо Excel-vba.ru за отличный сайт.