Активировать список URL-адресов в столбце Excel

Question

У меня есть более 1700 записей названий книг в файле Excel. Каждая из этих более 1700 записей имеет ссылку на изображение обложки, и эти изображения обложек названы частью ISBN# названия (например, 3-539-4.jpg). Все эти изображения обложек необходимо визуально проверить по записям их названий для правильного соответствия.

Я придумал, как поступить, чтобы разместить локальный URL в столбце рядом со столбцом заголовка. Нажатие на каждый URL откроет изображение в моем приложении предварительного просмотра, чтобы можно было проверить, соответствует ли заголовок изображения обложки заголовку в соседней ячейке. У меня есть локальные URL в столбце, но мне нужен ярлык, чтобы сделать их все активными, а не устанавливать каждый по отдельности в функции «Вставить гиперссылку» (что заняло бы примерно 1,5 вечности).

Есть ли макрос или модуль VBA, который можно использовать, чтобы это произошло по всему столбцу URL-адресов?

Ниже представлено изображение того, что я начал, на котором первый из них активен.

Answer 1

For each myCell in Range("A1:A1700")
    ActiveSheet.Hyperlinks.Add myCell, Address:=MyCell.Value
Next myCell

Отрегулируйте в соответствии с фактическим диапазоном, в котором находятся ваши ссылки.

Вам также следует знать, что проверка ссылки не выполняется, поэтому ячейка, содержащая «Случайный текст», будет ссылаться на «Случайный текст» независимо от того, является ли эта ссылка действительной.