Как посмотреть гиперссылку в excel

Миндубаев Рамазан
Рубрика:
Поисковая оптимизация (SEO)

Часто для того, чтобы быстро выдрать структуру сайта, URL, мета-теги и т.д. встает задачу как это сделать быстро. Одно из решений сделать с помощью Excel.

Задача:
В Экселе имеется столбец в значениях ячеек есть строки с гиперссылками. Excel показывать только текстовое описание, саму гиперссылку видно, только при наведение курсора мыши, либо по щелчку правой кнопкой и нажатии «Гиперссылка».

Решение:

Необходимо в соседний столбец вывести URL  гиперссылок.
В Microsoft Excel нет такой встроенной функции, либо я её не нашел =(

Поскольку встроенной функции не имеется, то можно использовать макрос Visual Basic for Applications (VBA).

Создаем макрос (название можно задать только в 1 слово)

Вставляем код, чтобы получилось вот так

Сам код

With ActiveSheet
For I = 1 To .Hyperlinks.Count
.Hyperlinks (I).Range.Offset (0,1).Value = .Hyperlinks (I).Address
Next I
End With

закрываем  Visual Basic for Applications (VBA)

После выделяем все ячейки и жмем «Выполнить»

На выходе получаем в соседнем столбце все URL

Пользуйтесь.

@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.

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

К концу этой статьи вы узнаете

• Как найти и удалить все гиперссылки в Excel
• Как найти и удалить гиперссылки с конкретным текстом и
• Удалите все гиперссылки за один раз.

Итак, без лишних слов, давайте прыгнем в него.

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

Теперь я хочу удалить все гиперссылки, доступные в электронной таблице. Для этого я нажму « CTRL + F» на клавиатуре, и откроется диалоговое окно « Найти и заменить ».

Нажмите кнопку Параметры внизу.

Теперь нажмите стрелку вниз на кнопке « Формат » и выберите « Выбрать формат из ячейки ».

Выберите ячейку с гиперссылкой, и она покажет предварительный просмотр (слева от кнопки «Формат») с форматом гиперссылки.

Нажмите кнопку Найти все , и она покажет вам все гиперссылки в Excel.

Вы можете выбрать одну или несколько гиперссылок из результата с помощью кнопок CTRL или Shift .

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

В этом разделе мы увидим, как удалить гиперссылки в Excel, связанные с конкретным текстом. Скажем, у меня есть образцы данных о продуктах, и некоторые продукты были связаны более одного раза. Итак, если я хочу гиперссылки с текстом « Продукт 3 ». Вот как это делается.

Нажмите « CTRL + F» , и откроется диалоговое окно «Найти и заменить».

В текстовом поле « Найти что » введите текст « Продукт 3 ». Нажмите стрелку вниз на кнопке « Форматировать » и выберите « Выбрать формат из ячейки ».

Выберите ячейку с «Продуктом 3», и она покажет предварительный просмотр (слева от кнопки «Формат») и нажмите кнопку «Найти все».

Будет отображен список гиперссылок с продуктом 3.

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

Чтобы удалить все гиперссылки в электронной таблице Excel, нажмите CTRL + A или нажмите на треугольник в верхней части листа, чтобы выбрать всю электронную таблицу.

Теперь щелкните правой кнопкой мыши в любом месте листа и выберите «Удалить гиперссылки». Это удалит все гиперссылки, присутствующие во всей электронной таблице.

Это простой способ найти и удалить гиперссылки в Excel.

Ознакомьтесь с советами и рекомендациями по Advanced Excel, чтобы извлечь максимальную пользу из Excel.

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

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

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

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

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

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

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

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

Как получить ссылку из ячейки с гиперссылкой в 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

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

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

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

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