Автоматический справочник не может понять мой вопрос, поэтому обращаюсь к людям.
Нужно во все ячейки столбца добавить(или удалить) одну(две) и ту же букву перед (или после) имеющегося там текста. Как это осуществить автоматически?
Другие языки программирования и технологии
Как в книге 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, выбрать соответствующий макрос и нажать "Выполнить"
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) соответственно, где последняя единица - количество символов. Можно и макросом, но в случае одноразового действия игра не стоит свеч.
Похожие вопросы
- Как в Excel 2007 посчитать сумму чисел в окрашенных ячейках
- вопрос по "множественному" ЕСЛИ в логических формулах Excel 2007 и 2010
- Excel 2007 x^3+1,41*x^2-5,4724*x-7,380384=0 как решить это уравнение ???=(
- Как в VBA (Excel 2007) первые листы всех XLS файлов в папке перенести в один XLS файл?
- Как в Excel задать формулу для ячейки ?
- Вопрос по Excel. Подставить значение ячейки в адрес и вывести результат адреса.
- Дублирование ячеек в Excel
- Excel. Макрос. Найти в Листе1 значение активной ячейки из Листа2.
- Изменение содержимого ячейки Excel
- Не могу разобраться с VBA Excel 2003 как копировать содер жимое одной ячейки в другую