excel удалить буквы в ячейке

Ответ от Алексей Матевосов (AlexM)[гуру]
Вариант с макросами. Дополнительные столбцы не нужны
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, выбрать соответствующий макрос и нажать "Выполнить"