Добавить текст в начало и конец ячеек столбца 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.4 из 5
Похожие ответы