Добавить текст в начало и конец ячеек столбца C - VBA
Формулировка задачи:
Доброй ночи!
Имеется excel файл напечатанного ниже формата:
Столбец "A"
- артикула;Столбец "C"
- ключевые слова. Встолбе "C"
заполнено около 50 тыс. строк. Напишите пожалуйста макрос который в начало ячеекстолбца "C"
- добавит два символа {, А в конец ячеекстолбца "C"
- добавит два символа ,} Пример исходной строки: [c1] слово 1, слово 2, слово 3 Пример необходимого результата: [c1] {,слово 1, слово 2, слово 3,} Во вложении прикрепляю файл исходник.Решение задачи: «Добавить текст в начало и конец ячеек столбца C»
textual
Листинг программы
Sub test() Dim x, i& x = Sheets("Исходник").Range("C1:C" & Sheets("Исходник").Range("C" & Rows.Count).End(xlUp).Row).Value With CreateObject("VBScript.RegExp"): .Pattern = ".+": .Global = True For i = 1 To UBound(x) If .test(x(i, 1)) Then x(i, 1) = .Replace(x(i, 1), "{,$&,}") Next End With Sheets("Необходимый результат").Range("C1").Resize(UBound(x), UBound(x, 2)).Value = x End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д