Еще несколько полезных скриптов VBA для Excel. Для вставки в код макроса не забудьте изменить название листа и диапазон ячеек на свой.
Убрать всё после любого символа (в примере после знака ‘+’). Обратите внимание, если вы хотите поменять символ, необходимо сделать это в двух строках — во 2-ой и 3-ей. Вторая строка была добавлена для того, чтобы не было ошибок в случае отсутствия искомого символа:
1 2 3 4 5 6 | For Each c In Worksheets("list1").Range("B2:B72").Cells c.Value = CStr(c.Value) + "+" spacePos = InStr(1, c.Value, "+") artLen = spacePos - 1 c.Value = Left(c.Value, artLen) Next |
Сделать все первые буквы в ячейках прописными:
1 2 3 | For Each c In Worksheets("list1").Range("F2:F72").Cells c.Value = UCase(Mid(c.Value, 1, 1)) + Mid(c.Value, 2) Next |
Добавить плюс перед ‘7’ (может пригодится при редактировании списка номеров телефонов):
1 2 3 4 5 | For Each c In Worksheets("list1").Range("F2:F72").Cells if Mid(c.Value, 1, 1) = "7" then c.Value = "+" + CStr(c.Value) endif Next |
Если здесь нет нужного вам макроса, посмотрите ещё часть 1.