Excel: заменить слова в ячейках располагающимися под ними ссылками (в формате http://…)

Posted by obzor under VBA

В каждой ячейке написали , например, Фото1, но под этим словом скрываются гиперссылки, которые нужно изменять в обычном текстовом формате ссылки http//…. , иначе говоря надо удалить лишнее из каждой =ГИПЕРССЫЛКА(«http://www.paremo.ru/upload/images/goods/2108a7fb-d910-11e4-0693-5404a6b1dcb9_11.jpg»; «Фото 11″….12,13 и оставить http://www.paremo.ru/upload/images/g…6b1dcb9_11.jpg, чтобы в ячейках были написаны обычные ссылки. В ручную можно, конечно, удалять лишнее по каждой ячейке, но их таких 1500 и у всех разные ссылки.

AlexM12

Я не экстрасенс, но так как утро вечера мудренее, догадался о чем мечтает ТС.
Код в стандартном модуле

Sub Макрос()
    Application.ScreenUpdating = False
    Dim iAddress As String, iCell As Range
    For Each iCell In Selection
        iAddress = Split(iCell.Formula, """")(1)
        iCell.ClearContents
        ActiveSheet.Hyperlinks.Add Anchor:=iCell, Address:=iAddress
    Next
    Application.ScreenUpdating = True
End Sub

Выделить диапазон ячеек с гиперссылками, сделанных функцией ГИПЕРССЫЛКА() и запустить макрос.

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel