Избавление от всех гиперссылок (Microsoft Excel)
Если вы наследуете листы от других людей, вы можете обнаружить, что некоторые листы содержат много-много гиперссылок. Эти гиперссылки часто создаются Excel автоматически при импорте или вводе информации в рабочий лист. (Я вижу, что они появляются все время, когда я вставляю информацию в рабочий лист, скопированный где-то с веб-страницы.)
Если вы хотите удалить эти гиперссылки, вы можете сделать это, щелкнув их правой кнопкой мыши и выбрав Гиперссылка | Удалите гиперссылку из контекстного меню.
Создание десятков или сотен гиперссылок может быстро занять огромное количество времени. Для более быстрого выполнения такой задачи требуется использование макроса.
Следующий макрос быстро удаляет все гиперссылки на листе, не затрагивая ничего, что он может содержать:
Sub KillLinks1() Do Until ActiveSheet.Hyperlinks.Count = 0 ActiveSheet.Hyperlinks(1).Delete Loop End Sub
Макрос работает, проходя через коллекцию гиперссылок и удаляя все, что там находится. (Коллекция «Гиперссылки» позволяет получить доступ ко всем гиперссылкам в документе. Удобно, да?)
При желании можно сделать макрос еще короче, до одной строки:
Sub KillLinks2() ActiveSheet.Hyperlinks.Delete End Sub
Выберите рабочий лист, на который вы хотите повлиять, запустите один из этих макросов, и вы сэкономите кучу времени!
_Примечание: _
Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.
link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера]
.
ExcelTips — ваш источник экономичного обучения Microsoft Excel.
Этот совет (10782) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:
link: / excel-Getting_Rid_of_All_Hyperlinks [Избавление от всех гиперссылок]
.