Excel VBA: повернуть ячейки в гиперссылки и игнорировать пустые значения

У меня есть следующий скрипт VBA:

Sub ConvertToHyperlinks() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng Application.ActiveSheet.Hyperlinks.Add Rng, "http://" & Rng.Value Next End Sub 

Он принимает выбранные ячейки и преобразует их в гиперссылки, на которые можно щелкнуть. например, если ячейка имеет значение «example.com», она будет повернута к « http://example.com »,

Он работает нормально, единственное, что если ячейка пуста, она все равно превратит ее в гиперссылку со значением «http: //»,

Как я могу заставить его игнорировать ячейки с пустыми значениями и не добавлять к ним «http: //» ?

Что-то вроде этого (вам нужна только 1 строка для вашего WorkRng )

 Sub ConvertToHyperlinks() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.InputBox("Range", xTitleId, Selection.Address, Type:=8) For Each Rng In WorkRng If Len(Rng.Value) > 0 Then ActiveSheet.Hyperlinks.Add Rng, "http://" & Rng.Value Next End Sub 
Interesting Posts

сравнить данные в двух таблицах Excel и затем выделить общие данные в одном excel

Excel: Формула для извлечения строки текста, помеченной маркерами из ячеек

Как разрешить пользователю редактировать диапазоны в Protected Excel с помощью EPPlus и c #?

Ссылка на значение из элемента Excel Listbox в функции .Match в VBA

Код валюты поставляется с Unicode, а экспорт – в excel

Может ли VLOOKUP взять массив в качестве критериев?

Создание цветного вектора в VBA

Worksheet_change: удалено целое значение столбца, идентифицируйте непустые ячейки до этого действия

Условное форматирование с помощью формулы VLOOKUP

Проблемы с меткой Excel / VBA

Как сохранить выходные файлы в той же папке, что и исходная книга

Проверка данных Resiprok в Excel

Как отображать символы Unicode в цвете в Excel?

Публикация файла подключения данных OData Excel 2013 (odc) с использованием объекта групповой политики без sharepoint

Запись строк в Excel через массив

Давайте будем гением компьютера.