Автор Александр Деребера задал вопрос в разделе Другие языки и технологии
Как в книге Excel 2007 добавить или удалить опр. букву во все ячейки и получил лучший ответ
Ответ от Алексей Матевосов (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, выбрать соответствующий макрос и нажать "Выполнить"
Так добавить или удалить? И до или после? И что в ячейках и что нужно поправить?
Самое простое – создать вспомогательный столбец. Допустим, если исходный столбец «А» , в ячейке В1 пишем формулу =”буква” & А1 (или =А1 & ”буква”), и растягиваем на весь столбец. Потом копируем его и специальной вставкой заменяем значения в столбце «А» , столбец «В» удаляем. Чтобы не добавить, а удалить символы с начала или с конца строки, используем формулы =правсимв (A1;длстр (A1)-1) и =левсимв (A1;длстр (A1)-1) соответственно, где последняя единица - количество символов. Можно и макросом, но в случае одноразового действия игра не стоит свеч.