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

Question

[Qairat]

Всем Привет!
Такая ситуация. Есть такой файл:

И везде на гипперссылках написано слово parsing/Licenses/Details/и свое значение.

Теперь мне надо поменять там слово parsing на другое слово.
Как можно сделать сразу везде?
Помогите.
Там более 20 тысяч строк.

Answer 1

[Saboteur]

Alt+F11

Sub FixLinks()
    Dim hLink As Hyperlink
    Dim sOld As String
    Dim sNew As String

    sOld = "http://parsing"
    sNew = "http://newsite"
    
    For Each hLink In ActiveSheet.Hyperlinks
        hLink.Address = Replace(hLink.Address, sOld, sNew)
    Next hLink
End Sub

выполнить

Comments

[anlesav]

а если мне надо просто в начале каждой гиперссылки добавить путь которого не было до этого? ну то-есть мне нету чего менять, и надо оставить то что было, добавив в начале строки каждой гиперссылки какой-то текст