Небольшая памятка по работе с макросами VBA Excel. Для вставки в код, измените название листа и диапазон ячеек на свой.
Добавить текст к значениям (в данном случае добавить слово «add» в начале ячеек):
1 2 3 | For Each c In Worksheets("list1").Range("F7:F44").Cells c.Value = "add" + CStr(c.Value) Next |
Добавить к значениям текст из соседней ячейки справа:
1 2 3 | For Each c In Worksheets("list1").Range("F7:F44").Cells c.Value = CStr(c.Value) + " " + c.Cells(1, 2).Value Next |
Вывести строку обрезанную до 6 символов:
1 2 3 | For Each c In Worksheets("list1").Range("J3:J175").Cells c.Value = Left(c.Value, 6) Next |
Убрать все после первого пробела:
1 2 3 4 5 6 | For Each c In Worksheets("list1").Range("J3:J175").Cells c.Value = CStr(c.Value) + " " spacePos = inStr(1, c.Value, " ") artLen = spacePos - 1 c.Value = Left(c.Value, artLen) Next |
Убрать все до первого пробела, затем убрать пробелы в начале строки:
1 2 3 4 5 | For Each c In Worksheets("list1").Range("D2:D79").Cells spacePos = InStr(1, c.Value, " ") c.Value = Mid(c.Value, spacePos) c.Value = LTrim(c.Value) Next |
Если здесь нет нужного вам макроса, посмотрите ещё часть 2.