@Ambal89
Новичок в web'e

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

Добрый день, подскажите пожалуйста, есть прайс-лист, в котором указаны ссылки на картинки товаров. Раньше ссылки работали как есть, но с недавнего время хостинг изменил настройки, и нужно теперь ко всем ссылкам добавить расширение, а именно .jpg . Так как товаров много, можно ли это как-то сделать массово?
Ссылки выглядят таким образом :
spoiler
1fe1afb17de3497da0e6c826e08542af.png
  • Вопрос задан
  • 114 просмотров
Решения вопроса 1
AnnTHony
@AnnTHony
Интроверт
С помощью макроса:

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
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы