Страницы: 1
RSS
Как добавить к строке данные справа
 
Здравствуйте уважаемые знатоки эксель, проблема в следующем: в файле эксель в столбце I есть артикулы товаров, можно ли к артикулам подставить расширение в виде .jpg  к каждому, решаемо ли это вообще, может формула какая то или макрос!
 
Цитата
подставить расширение в виде .jpg
Результат в соседней ячейке
Код
Sub Add_jpg()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, "I").End(xlUp).Row
  For i = 2 To iLastRow
    Cells(i, "J") = Cells(i, "I") & ".jpg"
  Next
End Sub
 
Артём Москвитин, здравствуйте
Цитата
Артём Москвитин: подставить расширение в виде .jpg  к каждому,
=ячейка & ".jpg"

Название: Как добавить к строке данные справа
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
Цитата
Kuzmich написал:
Результат в соседней ячейке
Огромнейшее Вам спасибо!!! Всё работает как надо!
 
Код
Sub qq()
    [i2:i10] = [i2:i10 & ".jpg"]
End Sub
 
Добрый день! В конструкциях, подобных #5, есть тонкость - они не работают, если стиль ссылок установлен как R1C1.
Владимир
 
тогда так )

Код
Sub qq()
    Application.ReferenceStyle = xlA1
    [i2:i10] = [i2:i10 & ".jpg"]
End Sub
 
Цитата
sokol92: В конструкциях, подобных #5, есть тонкость
это вообще скользкий путь))
Цитата
New: тогда так
не по фэн-шую)) по фэншую надо запомнить, что было, поставить, как надо для работы и вернуть обратно в конце  :D
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
не фиг, пусть привыкают к A1 )
У нас не коммерческое ПО, а open source)
Изменено: New - 01.03.2021 15:41:27
 
Цитата
New написал:
пусть привыкают к A1
Off. Сейчас появится Ігор Гончаренко и такое начнется... :D  
Владимир
Страницы: 1
Наверх