У Джона есть книга, в которой более тысячи URL-адресов, все в столбце A. Это не гиперссылки; они представляют собой обычный текст отдельных URL-адресов. Джон хочет преобразовать URL-адреса в активные гиперссылки, но выполнение преобразования по отдельности чрезвычайно утомительно, особенно для такого большого количества URL-адресов.
Один из способов выполнить преобразование – использовать функцию HYPERLINK. Поместите эту формулу в ячейку B1 и скопируйте ее столько ячеек, сколько необходимо:
= IF (A1 = «», «», HYPERLINK (IF (LEFT (A1,7) = «http: //»,» «,» http://») & A1))
В результате столбец B будет содержать гиперссылки для всего в столбце A. Формула не очень надежна, поскольку он имеет дело только с наличием или отсутствием текста «http://», и он может понадобиться вам также для работы с адресами «https». Можно настроить формулу (то есть сделать ее более сложной), но вы также можете рассмотреть возможность использования макроса для выполнения преобразований.
Чтобы быть эффективным, макрос должен быть пошаговым через каждую ячейку в выбранном диапазоне и, если ячейка не пуста, преобразовать содержимое в гиперссылку. Следующее поможет вам:
Sub URL_List () Dim sTemp As String Dim sURL As String Dim cell As Range For each cell In Selection If cell.Value «» Then sTemp = Left ( cell.Value, 7) Если sTemp = «http://» или sTemp = «https:/» Тогда sURL = cell.Value Else sURL = «http://» + cell.Value End If ActiveSheet.Hyperlinks.Add Anchor : = cell, _ Address: = sURL, TextToDisplay: = cell.Value End If Next cellEnd Sub
Макрос не является надежным; он предполагает, что если ячейка вообще что-либо содержит, это действительный URL-адрес. Он проверяет содержимое ячейки и, если перед содержимым не стоит текст «http://» или «https:/», то добавляется префикс «http://». Затем гиперссылка создается на основе содержимого ячейки.
Источник: