Excel показать все гиперссылки

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

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

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

microsoft-excel-dekompoziciya-2016-10-13-14-07-27

Решение:

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

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

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

makros-2016-10-13-14-12-18

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

microsoft-visual-basic-for-applications-dekompoziciya-xlsx-2016-10-13-14-23-52

Сам код

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)

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

makros-2016-10-13-14-26-06

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

microsoft-excel-dekompoziciya-2016-10-13-14-27-37

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

Источник

Download PC Repair Tool to quickly find & fix Windows errors automatically

If you have an Excel spreadsheet with a lot of hyperlinks and if you want to remove few of them, then it would be a tedious task to find and remove each hyperlink manually.  You could do it manually if the file is small and it has less number of hyperlinks. But, what if number hyperlinks you want to remove are more? If you are looking for that, then you have landed on the right page. In this article, I will let you know how to easily find and replace hyperlinks in Excel. This works in every version of Excel.

By the end of this article, you will learn

  • How to find and remove all hyperlinks in Excel
  • How to find and remove hyperlinks with specific text and
  • Delete all hyperlinks at one go.

So, without any ado let us jump into it.

Find and Remove All Hyperlinks in Excel

Select the cells from which you want to remove hyperlinks. Say I have the sample data of 10 websites with links to a few websites.

Now, I want to remove all the hyperlinks available in the spreadsheet. To do so, I will press “CTRL+F” on my keyboard and it will open up the ‘Find and Replace’ dialog box.

Click on ‘Options’ button present at the bottom.

find-and-replace-in-excel

Now, click on down arrow present with “Format” button and select “Choose Format From Cell”.

Find and Remove Hyperlinks in Excel

Select the cell which has a hyperlink and it will show the preview (left to the Format button) that has the hyperlink format.

preview-find-format-in-excel

Click on “Find All” button and it will show you all hyperlinks in Excel.

find-and-remove-hyperlinks-in-excel

You can select one or more hyperlinks from the result using CTRL or Shift buttons.

To remove them right click on the cells highlighted and select “Remove Hyperlinks”.

Find and Remove Hyperlinks with Specific Text

In this section, we will see how to remove hyperlinks in Excel associated with the specific text. Say, I have the sample data of products and some of the products were linked more than once. So, if I want to hyperlinks which have the text ‘Product 3’. Here how it is done.

Press “CTRL+F” and it will open “Find and Replace” dialog box.

find-and-replace-in-excel

In “Find what” text box type the text “Product 3”. Click on the down arrow of the “Format” button and choose “Choose Format From Cell”.

find-and-remove-hyperlinks-in-excel-find-what-field

Select the cell which has “Product 3” and it will show the preview (left to the Format button) and click on “Find All” button.

It will display the list of hyperlinks with Product 3.

find-and-remove-hyperlinks-in-excel-with-text

Select the result by holding Ctrl or Shift button. To remove them right click on the cells highlighted and select “Remove Hyperlinks”.

Delete All Hyperlinks in one go

To delete all hyperlinks in Excel spreadsheet, then press CTRL+A or click on the triangle present on the top of the sheet to select the entire spreadsheet.

select-entire-spreadsheet

Now, right click anywhere on the sheet and select “Remove Hyperlinks”. This will remove all hyperlinks present in an entire spreadsheet.

remove-all-hyperlinks-in-excel

This is the simple way to find and remove hyperlinks in Excel.

How do I mass remove hyperlinks in Excel?

It is possible to remove all hyperlinks from an Excel spreadsheet. Whether you use Excel Online or the desktop app, you can do it on either app. To mass remove hyperlinks in Excel, you need to right-click on the icon, which lets you select the entire spreadsheet and select the Remove Hyperlinks option.

How do I find hyperlinks in Excel?

To find hyperlinks in an Excel spreadsheet, you can follow the aforementioned guide. You need to press Ctrl+F and click the Options button. Then, click on the Format arrow icon and select the Choose Format From Cell option. Then, click on the hyperlink cell. It will select the hyperlinks at once.

Have a look at Advanced Excel Tips and Tricks to get the best out of Excel.

Ezoic

Sridhar is a Software Engineer who loves to stay updated with developments in the world of technology. He is fond of writing everything related to Internet, Computers and Mobile and Desktop Operating Systems.

Источник

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

Список всех выбранных гиперссылок с кодом VBA

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

стрелка синий правый пузырь Список всех выбранных гиперссылок с кодом VBA

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

2. Нажмите Застройщик>Визуальный Бейсик, Новый Microsoft Visual Basic для приложений появится окно, щелкните Вставить>Модули, и введите в модуль следующий код:

Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then 
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub

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

список-документов-все-гиперссылки

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

Для Kutools for ExcelАвтора Конвертировать гиперссылки функция, вы можете быстро извлечь реальные адреса из гиперссылок.

После установки Kutools for Excel, пожалуйста, сделайте следующее :( Бесплатная загрузка Kutools for Excel Теперь )

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

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

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

список-документов-все-гиперссылки

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

список-документов-все-гиперссылки

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

Бесплатная загрузка Kutools for Excel Теперь

Связанные статьи:

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

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

офисный дно

Комментарии (6)


Оценок пока нет. Оцените первым!

Источник

Поиск ссылок (внешних ссылок) в книге

Excel для Microsoft 365 Excel 2021 Excel 2019 Excel 2016 Excel 2013 Excel 2010 Excel 2007 Еще…Меньше

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

Имя любой Excel книги, с помощью ссылки на которую вы ссылались, будет связана с расширением XL* (например, .xls, .xlsx, XLSM), поэтому рекомендуемый способ — найти все ссылки на частичное расширение XL. Если вы ссылались на другой источник, необходимо определить оптимальный поисковый запрос.

Поиск ссылок, используемых в формулах

  1. Нажмите CTRL+F, чтобы запустить диалоговое окно Найти и заменить.

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

  3. В поле Найти введите.xl.

  4. В поле В пределах выберите книга.

  5. В поле Искать в выберите формулы.

  6. Нажмите кнопку Найти все.

  7. В отображемом списке наймем в столбце Формула формул, содержащих XL. В этом случае Excel найдено несколько экземпляров функции бюджетного Master.xlsx.

    Диалоговое окно "Поиск и замена"

  8. Чтобы выбрать ячейку с внешней ссылкой, щелкните ссылку на эту строку в списке.

    Совет: Щелкните любой за колонок, чтобы отсортировать столбец и сгруппировать все внешние ссылки.

  1. На вкладке Формулы в группе Определенные имена выберите пункт Диспетчер имен.

  2. Проверьте каждую запись в списке и проверьте, нет ли в столбце Ссылка внешних ссылок. Внешние ссылки содержат ссылку на другую книгу, например [Budget.xlsx].

    Диалоговое окно "Диспетчер имен"

    Советы: 

    • Щелкните любой за колонок, чтобы отсортировать столбец и сгруппировать все внешние ссылки.

    • Если вы хотите удалить сразу несколько элементов, можно сгруппнуть несколько элементов, нажав клавишу SHIFT или CTRL и щелкнув левой кнопкой мыши.

  1. Нажмите клавиши CTRL+G, нажмите клавиши CTRL+G, чтобы перейти в диалоговое окно Перейти, а затем выберите специальные > объекты > ОК. При этом будут выбраны все объекты на активном сайте.

    Диалоговое окно > "Специальная"

  2. Нажимая клавишу TAB, переходить между выбранными объектами, а затем искать в строка формул Изображение кнопки ссылку на другую книгу, например [Budget.xlsx].

    Фигура, выбранная для показа имени ссылки в панели формул

  1. Щелкните название диаграммы, которую вы хотите проверить.

  2. В строка формул Изображение кнопкинаймем ссылку на другую книгу, например [Budget.xls].

  1. Выберите диаграмму, которую нужно проверить.

  2. На вкладке Макет в группе Текущий выделение щелкните стрелку рядом с полем Элементы диаграммы и выберите ряд данных, которые нужно проверить.

    Выбор параметра ряда в параметрах диаграммы > формат > текущий выделение

  3. На строка формул Изображение кнопки, наймем ссылку на другую книгу, например [Budget.xls] в функции РЯД.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

См. также

Исправление недействительных ссылок

Разрыв связи с внешним ресурсом в Excel

Управление обновлением внешних ссылок (связей)

Нужна дополнительная помощь?

Источник
 

на листе имеется множество невидимых гиперссылок типа mailto:something@email.ru  

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

  вопрос: есть ли какой-нибудь способ найти их все или удалить их все?  

  спасибо.
 

genyaa

Пользователь

Сообщений: 296
Регистрация: 01.01.1970

В VBA (макросы) можно обратиться к коллекции Hyperlinks и работать с ней. Она содержит все гиперссылки листа:  

     Dim hh As Hyperlink  
   For Each hh In ActiveSheet.Hyperlinks  
       Debug.Print hh.Range.Address, hh.Address, _  
           hh.TextToDisplay  
   Next hh  

  Выведет в окно отладки VBE адреса ячеек активного листа, содержащих гипперссылки, сами гиперссылки (адреса), и видимый в ячейках текст.
 

{quote}{login=genyaa}{date=28.09.2007 08:33}{thema=}{post}В VBA (макросы) можно обратиться к коллекции Hyperlinks и работать с ней. Она содержит все гиперссылки листа:  

     Dim hh As Hyperlink  
   For Each hh In ActiveSheet.Hyperlinks  
       Debug.Print hh.Range.Address, hh.Address, _  
           hh.TextToDisplay  
   Next hh  

  Выведет в окно отладки VBE адреса ячеек активного листа, содержащих гипперссылки, сами гиперссылки (адреса), и видимый в ячейках текст.{/post}{/quote}  

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

{quote}{login=}{date=29.09.2007 06:39}{thema=Re: }{post} задали направление, но все это темный лес.  
буду искать литературу{/post}{/quote}  

  Уважаемый genyaa дал Вам ответ на Ваш вопрос.  
Литература/статьи — это всё точно не помешает. Но скажите, когда Вы задавали вопрос, что Вы хотели получить? Хотите готовый макрос, который просто напросто удалит ВСЕ гиперссылки?    
вот готовый макрос, который удаляет все гиперссылки на эл.почту (mailto:…)  

  Sub RemoveAll_HLink_MailTo()  
Dim hh As Hyperlink  
For Each hh In ActiveSheet.Hyperlinks  
  If InStr(hh.Address, «mailto:») = 1 Then  
    hh.Delete  
  End If  
Next hh  
End Sub
 

{quote}{login=Serge Bliznykov}{date=29.09.2007 11:10}{thema=}{post}{quote}{login=}{date=29.09.2007 06:39}{thema=Re: }{post} задали направление, но все это темный лес.  
буду искать литературу{/post}{/quote}  

  Уважаемый genyaa дал Вам ответ на Ваш вопрос.  
Литература/статьи — это всё точно не помешает. Но скажите, когда Вы задавали вопрос, что Вы хотели получить? Хотите готовый макрос, который просто напросто удалит ВСЕ гиперссылки?    
вот готовый макрос, который удаляет все гиперссылки на эл.почту (mailto:…)  

  Sub RemoveAll_HLink_MailTo()  
Dim hh As Hyperlink  
For Each hh In ActiveSheet.Hyperlinks  
  If InStr(hh.Address, «mailto:») = 1 Then  
    hh.Delete  
  End If  
Next hh  
End Sub{/post}{/quote}  

  да верно  
и я даже уже нашел то куда меня послали  
благодарю
 

но блин, видимо мне нужно поискать место  
где не будут удивляться моему невежеству :)  

  может с экономите мне время, дайте ссылку на книгу для начинающих, на русском плз…
 

Удаление гиперссылок в выделенном диапазоне — штатная функция PLEX:  

http://www.planetaexcel.ru/plex_features.php#21  

Если с макросами и VBA тяжко, то лучше качнуть демо-версию PLEX и поубивать ссылки с ее помощью.
 

{quote}{login=Serge Bliznykov}{date=29.09.2007 11:10}{thema=}{post}{quote}{login=}{date=29.09.2007 06:39}{thema=Re: }{post} задали направление, но все это темный лес.  
буду искать литературу{/post}{/quote}  

  Уважаемый genyaa дал Вам ответ на Ваш вопрос.  
Литература/статьи — это всё точно не помешает. Но скажите, когда Вы задавали вопрос, что Вы хотели получить? Хотите готовый макрос, который просто напросто удалит ВСЕ гиперссылки?    
вот готовый макрос, который удаляет все гиперссылки на эл.почту (mailto:…)  

  Sub RemoveAll_HLink_MailTo()  
Dim hh As Hyperlink  
For Each hh In ActiveSheet.Hyperlinks  
  If InStr(hh.Address, «mailto:») = 1 Then  
    hh.Delete  
  End If  
Next hh  
End Sub{/post}{/quote}  

  удалось запустить ваш скрипт :)  
все ссылки удалились  

  но мне хотелось бы прежде их найти  
или какую-то статистику увидеть  
ну вроде типа количество, адрес(где находится)  

  такое возможно? в смысле есть ли готовый макрос, или нужно творить(писать) его?
 

Serge Bliznykov

Пользователь

Сообщений: 73
Регистрация: 01.01.1970

#9

30.09.2007 21:32:40

{quote}{login=}{date=30.09.2007 06:31}{thema=Re: }{post}  
но мне хотелось бы прежде их найти  
или какую-то статистику увидеть  
ну вроде типа количество, адрес(где находится)  

  такое возможно? в смысле есть ли готовый макрос, или нужно творить(писать) его?{/post}{/quote}  

  вы таки будете смеяться… но самый первый скрипт от многоуважаемого Genyaa именно это и делал!!! Чтобы увидеть результат его работы, нужно было в редакторе скриптом нажать Ctrl-G, откроется окно Immediate    
результаты Debug.Print попадают в это окно!  

  впрочем, написать такой скрипт — пять минут.  
вот, создаёт отдельный лист с именем «Вот списочек гиперссылочек» (ВНИМАНИЕ! Перед выполнением скрипт удалите или переименуйте, если уже есть такой лист!!)  

    Sub ListAllHyperLinks()  
 Dim OldSheet, NewSheet As Worksheet  
 Dim i As Integer  
 Dim hh As Hyperlink  

     Set OldSheet = ActiveSheet  
 Set NewSheet = Sheets.Add  
 NewSheet.Name = «Вот списочек гиперссылочек»  
 OldSheet.Activate  
 i = 2  
 For Each hh In ActiveSheet.Hyperlinks  
   NewSheet.Cells(i, 1).Value = hh.Range.Address  
   NewSheet.Cells(i, 2).Value = hh.Address  
   NewSheet.Cells(i, 3).Value = hh.TextToDisplay  
   i = i + 1  
 Next hh  

     Set NewSheet = Nothing  
End Sub
Источник

Понравилась статья? Поделить с друзьями:
  • Excel поискпоз для текста
  • Excel показать весь текст в ячейке excel
  • Excel поискпоз для суммы
  • Excel показать в ячейке значение другой
  • Excel поискпоз для нескольких столбцов