[Morpheus]

malkinfedor, Ctrl+H.

[malkinfedor]

К сожалению не все так просто, когда выделяешь эту ячейку с гиперссылкой, то в строке формула только то что написано в самой яячейке а не адрес куда ссылается эта ссылка.

[Morpheus]

malkinfedor, нашел макрос. У меня 2010 Office, но в 2007 должно быть примерно так же:

1. Файл ---> Параметры ---> Настройка ленты ---> ставим флажок "Разработчик" ---> OK.
2. Разработчик ---> Макросы ---> задаём имя, например: "lnk" ---> Создать.
3. Копируем текст макроса:
   
   Код:

   Sub lnk()
   old_link = ActiveCell.Text
   Selection.Hyperlinks.Delete
   new_link = Replace(old_link, "notebook8", "server")
   ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
   new_link, TextToDisplay:=new_link
   End Sub

   Сохраняем и закрываем окно.
4. Возвращаемся в таблицу ---> выделяем ячейки со ссылками ---> Макросы ---> Выполнить.

Ссылки должны замениться, текст меняем с помощью Ctrl+H.
Разумеется, тренироваться лучше на копии файла.

[v12345]

Если пользователь чувствует себя с макросами неуверенно, ему лучше подойдет способ, основанный на формулах.
На первой картинке - вид ячеек с содержимым, на второй - в режиме формул.

[malkinfedor]

Спасибо всем товарищи, очень помогли!
Тему можно считать решенной, но если вдруг у кого возникнет такая же потребность, сейчас сюда выложу ответы с другого форума, не знаю разрешено ли тут давать линки на другие форумы.

Как применить этот макрос для других файлов, это для тех кто вообще с excel не дружит

Перенесите единственный модуль из этой книги в свою. Alt+F11. Модуль называется mReplaceHyperlink. Подробнее о том, где искать модули:http://excel-vba.ru/Tips_What_Module.html Вам нужен стандартный модуль. Перенести можно прям в редакторе VBA, просто удерживая мышкой этот модуль и перетаскивая в папку модулей своей книги.

[EPMAKOB]

Мне надо было поменять ссылки в двух колонках (в 16-й и 15-й по счету, т.е. в колонке "P" и "Q")

Вот что получилось:

Sub HLinke()
For index2 = 1 To 2
For Index = 2 To 300
Cells(Index, 15 + index2).Select
If ActiveCell.Text <> "" Then
old_link = ActiveCell.Text
Selection.Hyperlinks.Delete
new_link = Replace(old_link, "notebook8", "server")
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
new_link, TextToDisplay:=new_link
End If
Next Index
Next index2
End Sub

[Petrik99]

А если нужно, к примеру, не удалить/изменить что-то в ссылке, а добавить. Тоесть есть путь C:\Program Files, а нужно сделать C:\2013\Program Files? Как правильно прописать? Как применять макрос в данном случае?