У Шерил есть рабочий лист, содержащий множество гиперссылок. Отображаемый текст для каждой гиперссылки отличается от цели гиперссылки. Все эти гиперссылки находятся в столбце A. Шерил хотела бы оставить отображаемый текст в столбце A, переместить целевой URL-адрес в столбец B и удалить гиперссылку в столбце A. В конечном итоге ей нужно отобразить текст в столбце A. , URL-адрес в столбце B и отсутствие активных гиперссылок на листе.

Обработка и извлечение информации из гиперссылок таким образом требует использования макроса. Ниже приведен пример гибкого макроса, который проверяет любые гиперссылки в выбранном диапазоне ячеек. Если гиперссылка обнаружена, URL-адрес гиперссылки вводится справа от гиперссылки, а затем сама гиперссылка удаляется.

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

Sub GetHLInfo()

Dim rRng As Range     Dim cell As Range

Set rRng = ActiveSheet.Range(ActiveWindow.Selection.Address)

For Each cell In rRng         If cell.Hyperlinks.Count > 0 Then             cell.Offset(0, 1) = cell.Hyperlinks(1).Address             cell.Hyperlinks(1).Delete         End If     Next End Sub

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (9898) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Extracting_Hyperlink_Information [Извлечение информации о гиперссылках].