Страницы: 1
RSS
Удаление формулы гипперсылки
 
Помогите пожалуйста, пол дня мучаюсь уже! Нужно удалить формулу гиперссылки, оставив только сам адрес гиперссылки и её имя. У меня в одном столбце "A" идут имена, которыми я называю гиперссылки, а в столбце "B" адреса на файлы на компьютере, как простой текст. Получается следующая формула в столбце "С":
=ГИПЕРССЫЛКА(A1;B1)
Файлы по ссылке прекрасно открываются.
Теперь я хочу удалить столбцы "A" и "B". Но для этого нужно столбец "С" преобразовать: формулу удалить и оставить только имя и путь ведущий к файлу.
Изменено: dim284 - 28.05.2020 15:41:56
 
dim284, dim284, ДД. файл-пример в студию с исходными данными и желаемым результатом.  
Не бойтесь совершенства. Вам его не достичь.
 
Прикрепляю пример, как-то так.
Изменено: dim284 - 28.05.2020 15:33:36
 
dim284,
Код
Sub fdf()
Lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To Lr
    a = Cells(i, 1).Value
    b = Cells(i, 2).Value
    
    Cells(i, 3).Hyperlinks.Delete
    
    Cells(i, 3).Hyperlinks.Add Anchor:=Cells(i, 3), Address:= _
    b, TextToDisplay:=a
Next i
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
Спасибо Mershik, все прекрасно работает!
Страницы: 1
Наверх