Есть таблица в которую вносится описание - столбец В. Описание это обычно текст, но бывает, что пользователи указывают адреса папок/файлов в виде текста (при этом не добавляют гиперссылку). Такие адреса нужно затем преобразовать в нормальную гиперссылку, кликнув по которой можно было переходить к определенному файлу / папке.
Напсал макрос для преобразования значений в столбце В из текста в гиперссылку. Но макрос преобразовывает в гиперссылку все значения без исключения,а нужно чтобы он игнорировал обычный текст и преобразовывал только гиперссылки
Код
Sub TransformToHyperLink()
Range("Таблица1[Описание]").Select
For Each xCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell
End Sub
For Each xCell In Range("Таблица1[Описание]")
If InStr(1, xCell, ":\") Then ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell
pinguindell, Ваш макрос выручил меня! Спасибо! У меня имеется столбец в таблице, в котором прописаны только адреса. А можно ли что-нибудь сделать чтобы он не создавал гиперссылки на этот же xlsm в пустых клетках? И можно ли задать несколько столбцов для данного макроса?