как массово изменить гиперссылки?

[Talker6]

У меня есть следующий код для создания гиперссылок:

Sub BatchCreateHyperlink()
  beginrow = 1
  endrow = 1000
  x_const = 23
  For i = beginrow To endrow
  ActiveSheet.Hyperlinks.Add ActiveSheet.Cells(i, x_const), "SCANNED\File-" & Cells(i, x_const + 1).Value & ".pdf"
  ActiveSheet.Cells(i, x_const).Value = Cells(i, x_const + 1).Value
  Next
  
End Sub

Данный код создаёт в столбце W начиная со строки №1 по строку №1000 ссылки на файлы *.pdf, где концовка названия файлов берётся из соседнего справа (X) столбца. Путь даётся относительный. Папка SCANNED лежит рядом с самим excel-файлом, с которым Вы сейчас работаете. Файлы внутри этой папки имеют следующий вид: File1.pdf или Fileabc.pdf.

[EducatedFool]

У меня есть следующий код для создания гиперссылок:

И что дальше?
В чем проблема-то? Что не получается?

Гиперссылки на файлы проще создавать так:
http://excelvba.ru/code/FilenamesCollection

[Talker6]

Попробуй вот этот код:

Function GetUrlFromHyperlink(ByVal range As range) As String
If (range.Hyperlinks.Count > 0) Then
GetUrlFromHyperlink = range.Hyperlinks(1).Address
Else
GetUrlFromHyperlink = ""
End If
End Function
Sub gg()
    For i = 1 To 203
        ActiveSheet.Cells(i, 11).Value = GetUrlFromHyperlink(Cells(i, 10))

    Next
End Sub

Изменишь в ячейках при помощи стандартной заменой текста где надо и обратно засунешь в соседние ячейки в гиперссылки.

[Talker6]

Сообщение от EducatedFool

И что дальше?
В чем проблема-то? Что не получается?

Гиперссылки на файлы проще создавать так:
http://excelvba.ru/code/FilenamesCollection

Я говорю это в помощь автору темы. Возможно н сможет извлечь пользу из данного кода.