Другие языки программирования и технологии

Как в книге Excel 2007 добавить или удалить опр. букву во все ячейки

Автоматический справочник не может понять мой вопрос, поэтому обращаюсь к людям.
Нужно во все ячейки столбца добавить(или удалить) одну(две) и ту же букву перед (или после) имеющегося там текста. Как это осуществить автоматически?
Вариант с макросами. Дополнительные столбцы не нужны

Sub InsSymStr()
fraza = InputBox("Введите букв для вставки в начало", "Ввод букв")
For Each cell In Selection
If cell.Value <> "" Then cell.Value = fraza & cell.Value
Next
End Sub

Sub InsSymEnd()
fraza = InputBox("Введите букв для вставки в конец", "Ввод букв")
For Each cell In Selection
If cell.Value <> "" Then cell.Value = cell.Value & fraza
Next
End Sub

Sub DelSymStr()
fraza = InputBox("Введите буквы удаляемые из начала", "Ввод букв")
For Each cell In Selection
If Left(cell.Value, Len(fraza)) = fraza Then cell.Value = Mid(cell.Value, Len(fraza) + 1, Len(cell.Value))
Next
End Sub

Sub DelSymEnd()
fraza = InputBox("Введите буквы удаляемые из конеца", "Ввод букв")
For Each cell In Selection
If Right(cell.Value, Len(fraza)) = fraza Then cell.Value = Mid(cell.Value, 1, Len(cell.Value) - Len(fraza))
Next
End Sub

Как вставить макросы и как использовать.
Alt+F11. В меню Insert проекта VBA нажать Module. В открывшееся окно Module1 вставить коды. Закрыть окно VBA
Выделить диапазон ячеек, в которые надо вставлять или удалять символы. Alt+F8, выбрать соответствующий макрос и нажать "Выполнить"
Павел Вовк
Павел Вовк
27 337
Лучший ответ
Так добавить или удалить? И до или после? И что в ячейках и что нужно поправить?
YC
Yhlas Chowdurow
53 138
Самое простое – создать вспомогательный столбец. Допустим, если исходный столбец «А» , в ячейке В1 пишем формулу =”буква” & А1 (или =А1 & ”буква”), и растягиваем на весь столбец. Потом копируем его и специальной вставкой заменяем значения в столбце «А» , столбец «В» удаляем. Чтобы не добавить, а удалить символы с начала или с конца строки, используем формулы =правсимв (A1;длстр (A1)-1) и =левсимв (A1;длстр (A1)-1) соответственно, где последняя единица - количество символов. Можно и макросом, но в случае одноразового действия игра не стоит свеч.
Михаил Сугак
Михаил Сугак
4 236