Как изменить последнюю цифру в числе во всем столбце?

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
caa
Сообщения: 2
Зарегистрирован: 24 май 2006, 08:45

Привет всем!

Помогите, пожалуйста, кто не занят!

Нужно изменить последнюю цифру во всех позициях в прайсе, например, на девятку. Как это сделать, голову ломаю. Начальник просит. Помогите. Заранее спасибо.
Аватара пользователя
Игорь Акопян
Сообщения: 1440
Зарегистрирован: 13 окт 2004, 17:11
Откуда: СПБ
Контактная информация:

мысль навскидку - привести к строке, заменить последний символ, и обратно в число :)
Изображение
Zigi
Сообщения: 32
Зарегистрирован: 18 янв 2005, 16:45
Откуда: СПб

=ЗНАЧЕН(СЦЕПИТЬ(ЛЕВСИМВ(A1;ДЛСТР(A1)-1);"9")).
caa
Сообщения: 2
Зарегистрирован: 24 май 2006, 08:45

Я вот такое придумал :) =ROUND(A1/10;0)*10+$C$1

А как эту функцию в макрос засунуть ?
pashulka
Сообщения: 831
Зарегистрирован: 24 ноя 2004, 03:46
Контактная информация:

Код: Выделить всё

[A1:A100] = [IF(ISNUMBER(A1:A100),REPLACE(A1:A100,LEN(A1:A100),1,9)*1,A1:A100)]
Ответить