Нужно добавить в столбец с набором данных (цифры) в каждую ячейку текстовое окончание - .jpg. Возможно ли это сделать автоматически или только вручную? Заранее благодарен.
Доброго дня!
Нужно добавить в столбец с набором данных (цифры) в каждую ячейку текстовое окончание - .jpg. Возможно ли это сделать автоматически или только вручную? Заранее благодарен.Alex_77
Alex_77, добрый вечер,вариант макроса кнопки test и повтор
[vba]
Код
Sub test() Dim x, i&: x = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row) With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True For i = 1 To UBound(x) If .test(x(i, 1)) Then x(i, 1) = .Replace(x(i, 1), "'$&.jpg") Next End With Range("A1").Resize(UBound(x), UBound(x, 2)).Value = x End Sub
[/vba]
Alex_77, добрый вечер,вариант макроса кнопки test и повтор
[vba]
Код
Sub test() Dim x, i&: x = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row) With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True For i = 1 To UBound(x) If .test(x(i, 1)) Then x(i, 1) = .Replace(x(i, 1), "'$&.jpg") Next End With Range("A1").Resize(UBound(x), UBound(x, 2)).Value = x End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
