У Джона есть рабочая книга, в которой более тысячи URL-адресов, все в столбце A. Это не гиперссылки; они представляют собой обычный текст отдельных URL-адресов. Джон хочет преобразовать URL-адреса в активные гиперссылки, но выполнение преобразования по отдельности чрезвычайно утомительно, особенно для такого большого количества URL-адресов.

Один из способов выполнить преобразование — использовать функцию ГИПЕРССЫЛКА. Поместите эту формулу в ячейку 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)

If sTemp = "http://" Or sTemp = "https:/" Then                 sURL = cell.Value             Else                 sURL = "http://" + cell.Value             End If             ActiveSheet.Hyperlinks.Add Anchor:=cell, _               Address:=sURL, TextToDisplay:=cell.Value         End If     Next cell End Sub

Макрос не надежен; он предполагает, что если ячейка вообще что-либо содержит, это действительный URL. Он проверяет содержимое ячейки, и, если перед содержимым не стоит текст «http: //» или «https: /», то добавляется префикс «http: //». Затем гиперссылка создается на основе содержимого ячейки.

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

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

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

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

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

link: / excel-Converting_a_Range_of_URLs_to_Hyperlinks [Преобразование диапазона URL-адресов в гиперссылки].