Как в excel дописать одно и то же к ссылкам?

Question

[Ambal89]

Добрый день, подскажите пожалуйста, есть прайс-лист, в котором указаны ссылки на картинки товаров. Раньше ссылки работали как есть, но с недавнего время хостинг изменил настройки, и нужно теперь ко всем ссылкам добавить расширение, а именно .jpg . Так как товаров много, можно ли это как-то сделать массово?
Ссылки выглядят таким образом :

spoiler

Answer 1

[Антон Федорян]

С помощью макроса:

Sub AppendExt()
    Dim WB As Workbook
    Dim WS As Worksheet
    
    Dim Ri As Integer
    Dim Rj As Integer
    Dim Ci As Integer
    Dim Cj As Integer
    
    Set WB = Excel.ActiveWorkbook
    Set WS = WB.Worksheets("list1")
    
    ' Диапазон ячеек для замены

    ' Начальная строка
    Ri = 1
    ' Конечная строка
    Rj = 4
    ' Начальный столбец
    Ci = 1
    ' Конечный столбец
    Cj = 2
    
    For C = Ci To Cj
        For R = Ri To Rj
            If Not IsEmpty(WS.Cells(R, C)) Then
                WS.Cells(R, C).Value = WS.Cells(R, C).Value & ".jpg"
            End If
        Next R
    Next C
End Sub

Либо просто скопировать нужные строки в любой блокнот с поддержкой регулярных выражений и подставить в конец все чего не достает, а потом этим заменить старые ссылки.

Sub AppendExt()
    Dim WB As Workbook
    Dim WS As Worksheet
    
    Set WB = Excel.ActiveWorkbook
    Set WS = WB.Worksheets("list1")
    
    For Each HL In WS.Hyperlinks
        HL.Address = HL.Address & ".jpg"
    Next
End Sub

Comments

[Ambal89]

Спасибо, подскажите пожалуйста, запустил его, он добавил .jpg только к тайтлу ссылки. К адресу ничего не добавил.

[Антон Федорян]

Ambal89: добавил код

[Ambal89]

Работает, огромное спасибо!