Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 29.08.2008, 13:37   #1
Konstantin_Z
Пользователь
 
Регистрация: 22.08.2008
Сообщений: 65
По умолчанию Добавить в конец текст

Необходимо добавить во все непустые ячейки (заданного диапазона) в конец определенный текст, например " срок реализации 10 дней". Как это максимально просто сделать? Желательно без использования VBA.

Например, имеем
Сыр

Рыба


Салат

необходимо получить, соответственно:
Сыр срок реализации 10 дней

Рыба срок реализации 10 дней


Салат срок реализации 10 дней
Konstantin_Z вне форума
Старый 29.08.2008, 14:04   #2
ZORRO2005
Форумчанин
 
Аватар для ZORRO2005
 
Регистрация: 26.11.2006
Сообщений: 584
По умолчанию

B1=A1&" срок реализации 10 дней"
ZORRO2005 вне форума
Старый 29.08.2008, 14:07   #3
дмидми
Форумчанин
 
Аватар для дмидми
 
Регистрация: 06.03.2008
Сообщений: 352
По умолчанию

Без VBA - никак.

Правка -- Специальная вставка -- Значения -- Сложить
не работает для текстовых переменных.

Попытка выделить в диапазоне ячейки с константами и занести в них формулу вроде =rc&$a$1 может быть (лень проверять), возможна при отключении режима "Вычисления -- Автоматически", иначе получаем цикличность.

Но кому нужны все эти извращения? Совершенно незачем загонять всё в одну ячейку. В одной колонке - наименование товара, в другой - срок реализации, и все дела.

(Добавлено.)
ZORRO2005, Вы правы. Просто я не рассматривал вариант с использованием дополнительной колонки. Однако на бессмысленности решения самой задачи в той форме, в которой она поставлена, настаиваю.

Последний раз редактировалось дмидми; 29.08.2008 в 14:09.
дмидми вне форума
Старый 29.08.2008, 17:07   #4
Konstantin_Z
Пользователь
 
Регистрация: 22.08.2008
Сообщений: 65
По умолчанию

я думал о поиске и замене
что-то наподобие аналога пользовательского формата
# ##0__;-# ##0__;"ничего нет";"зачем Вы сюда "@" написали?"

но, вероятно, так не получится
Konstantin_Z вне форума
Старый 29.08.2008, 20:30   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

1) я не понимаю Вашего нежелания использовать макросы... Ведь простейшим макросом это в пять секунд решается,
типа такого:
Код:
Sub AddMyText()
    Dim iCell As Range
    Application.ScreenUpdating = False
    For Each iCell In Selection
        iCell = iCell & " срок реализации 10 дней". 
    Next
    Application.ScreenUpdating = True
    MsgBox "Done!" 
End Sub
2) если это разовая операция (т.е. можно сделать ручками), то, как Вам предложили - в дополнительный столбец формулу: =A1&" срок реализации 10 дней"
протянуть на весь столбец.
потом выделить и через специальная вставка - вставлять значения заменить всё в столбце A
всё. задача решена.

Цитата:
Сообщение от дмидми
Однако на бессмысленности решения самой задачи в той форме, в которой она поставлена, настаиваю.
и, кстати, полностью согласен!
Serge_Bliznykov вне форума
Старый 01.09.2008, 13:10   #6
Konstantin_Z
Пользователь
 
Регистрация: 22.08.2008
Сообщений: 65
По умолчанию

да, это разовая операция
поэтому и хотелось без ВБА
Konstantin_Z вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как пререместить мигающую палочку в конец строки TEdit ? Protsv Общие вопросы Delphi 2 07.04.2008 08:43
Конец света и сверхъестественное Hallo Свободное общение 113 30.03.2008 00:10
Поставить курсор в конец строки в TEdit Никки Общие вопросы Delphi 2 17.03.2008 00:27
Добавить данные в поле (в конец) John_chek БД в Delphi 6 20.08.2007 14:23
Как из Memo вывести строки в txt файл в конец там существующих Saili Компоненты Delphi 8 16.12.2006 11:23