Поиск и замена чисел
lolsecret
Дата: Вторник, 20.10.2015, 19:01 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Здравствуйте. Собственно суть: Есть числа, к примеру, которые меньше 20 000 (250, 1000, 15 000 и тд). Как их всех "выделить" и заменить 20 000-ми? Очень прошу на помощь, прошу прощения если не в тот топик, впервые тут. Заранее благодарен за любую оказанную помощь
Здравствуйте. Собственно суть: Есть числа, к примеру, которые меньше 20 000 (250, 1000, 15 000 и тд). Как их всех "выделить" и заменить 20 000-ми? Очень прошу на помощь, прошу прощения если не в тот топик, впервые тут. Заранее благодарен за любую оказанную помощь lolsecret
Ответить
Сообщение Здравствуйте. Собственно суть: Есть числа, к примеру, которые меньше 20 000 (250, 1000, 15 000 и тд). Как их всех "выделить" и заменить 20 000-ми? Очень прошу на помощь, прошу прощения если не в тот топик, впервые тут. Заранее благодарен за любую оказанную помощь Автор - lolsecret Дата добавления - 20.10.2015 в 19:01
Pelena
Дата: Вторник, 20.10.2015, 19:06 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19195
Репутация:
4423
±
Замечаний:
±
Excel 365 & Mac Excel
Где они есть? В строке, в столбце, в таблице. Приложите пример в соответствии с Правилами форума
Где они есть? В строке, в столбце, в таблице. Приложите пример в соответствии с Правилами форумаPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Где они есть? В строке, в столбце, в таблице. Приложите пример в соответствии с Правилами форумаАвтор - Pelena Дата добавления - 20.10.2015 в 19:06
Serge_007
Дата: Вторник, 20.10.2015, 19:10 |
Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
как их всех "выделить" и заменить 20 000-ми?
Здравствуйте[vba]Код
Sub Num_Change() Dim TC As Range For Each TC In Range("a1:c100")'диапазон указываете свой If TC <20000 Then TC=20000 Next TC End Sub
[/vba]
как их всех "выделить" и заменить 20 000-ми?
Здравствуйте[vba]Код
Sub Num_Change() Dim TC As Range For Each TC In Range("a1:c100")'диапазон указываете свой If TC <20000 Then TC=20000 Next TC End Sub
[/vba]Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение как их всех "выделить" и заменить 20 000-ми?
Здравствуйте[vba]Код
Sub Num_Change() Dim TC As Range For Each TC In Range("a1:c100")'диапазон указываете свой If TC <20000 Then TC=20000 Next TC End Sub
[/vba]Автор - Serge_007 Дата добавления - 20.10.2015 в 19:10
МВТ
Дата: Вторник, 20.10.2015, 19:11 |
Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация:
137
±
Замечаний:
0% ±
Excel 2007
В лоб - примерно так - работает с выделенны диапазоном, не выделяйте пустые ячейки, в них тоже вставится 20000[vba]Код
Sub tt() Dim arr, I As Long, J As Long, Rng As Range Set Rng = Selection arr = Rng.Value For I = 1 To UBound(arr) For J = 1 To UBound(arr, 2) If arr(I, J) < 20000 Then arr(I, J) = 20000 Next Next Rng.Value = arr End Sub
[/vba]
В лоб - примерно так - работает с выделенны диапазоном, не выделяйте пустые ячейки, в них тоже вставится 20000[vba]Код
Sub tt() Dim arr, I As Long, J As Long, Rng As Range Set Rng = Selection arr = Rng.Value For I = 1 To UBound(arr) For J = 1 To UBound(arr, 2) If arr(I, J) < 20000 Then arr(I, J) = 20000 Next Next Rng.Value = arr End Sub
[/vba] МВТ
Сообщение отредактировал МВТ - Вторник, 20.10.2015, 19:13
Ответить
Сообщение В лоб - примерно так - работает с выделенны диапазоном, не выделяйте пустые ячейки, в них тоже вставится 20000[vba]Код
Sub tt() Dim arr, I As Long, J As Long, Rng As Range Set Rng = Selection arr = Rng.Value For I = 1 To UBound(arr) For J = 1 To UBound(arr, 2) If arr(I, J) < 20000 Then arr(I, J) = 20000 Next Next Rng.Value = arr End Sub
[/vba] Автор - МВТ Дата добавления - 20.10.2015 в 19:11
lolsecret
Дата: Вторник, 20.10.2015, 19:14 |
Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Где они есть? В строке, в столбце, в таблице. Приложите пример в соответствии с Правилами форума
Числа расположены в столбце. Прошу прощения за неполноту
Где они есть? В строке, в столбце, в таблице. Приложите пример в соответствии с Правилами форума
Числа расположены в столбце. Прошу прощения за неполнотуlolsecret
Ответить
Сообщение Где они есть? В строке, в столбце, в таблице. Приложите пример в соответствии с Правилами форума
Числа расположены в столбце. Прошу прощения за неполнотуАвтор - lolsecret Дата добавления - 20.10.2015 в 19:14
lolsecret
Дата: Вторник, 20.10.2015, 19:16 |
Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Serge_007 , МВТ , дико извиняюсь, я только начинаю работать с excell'ем, еще чайник. Не скажите, куда вписывать эти данные, или как ими "пользоваться".
Serge_007 , МВТ , дико извиняюсь, я только начинаю работать с excell'ем, еще чайник. Не скажите, куда вписывать эти данные, или как ими "пользоваться".lolsecret
Сообщение отредактировал Serge_007 - Вторник, 20.10.2015, 19:19
Ответить
Сообщение Serge_007 , МВТ , дико извиняюсь, я только начинаю работать с excell'ем, еще чайник. Не скажите, куда вписывать эти данные, или как ими "пользоваться".Автор - lolsecret Дата добавления - 20.10.2015 в 19:16
Serge_007
Дата: Вторник, 20.10.2015, 19:17 |
Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
Числа расположены в столбце
Тогда достаточно формулы в соседнем столбце:Код
=(A1<20000)*20000+A1*(A1>=20000)
илиКод
=ЕСЛИ(A1<20000;20000;A1)
lolsecret , зачем Вы процитировали оба кода?! Бан хотите? Ваш пост исправил, но это в первый и последний раз
Числа расположены в столбце
Тогда достаточно формулы в соседнем столбце:Код
=(A1<20000)*20000+A1*(A1>=20000)
илиКод
=ЕСЛИ(A1<20000;20000;A1)
lolsecret , зачем Вы процитировали оба кода?! Бан хотите? Ваш пост исправил, но это в первый и последний разSerge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение Числа расположены в столбце
Тогда достаточно формулы в соседнем столбце:Код
=(A1<20000)*20000+A1*(A1>=20000)
илиКод
=ЕСЛИ(A1<20000;20000;A1)
lolsecret , зачем Вы процитировали оба кода?! Бан хотите? Ваш пост исправил, но это в первый и последний разАвтор - Serge_007 Дата добавления - 20.10.2015 в 19:17
_Boroda_
Дата: Вторник, 20.10.2015, 19:20 |
Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
Выделяете столбец Данные - фильтр Жмете стрелку фильтра - числовые фильтры - меньше - 20000 Выделяете полученное, пишете 20000, жмете Контрл Ентер (одновременно) Жмете стрелку фильтра - удалить фильтр Добавлено Сначала вместо Контрл ошибочно написал Альт
Выделяете столбец Данные - фильтр Жмете стрелку фильтра - числовые фильтры - меньше - 20000 Выделяете полученное, пишете 20000, жмете Контрл Ентер (одновременно) Жмете стрелку фильтра - удалить фильтр Добавлено Сначала вместо Контрл ошибочно написал Альт _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Выделяете столбец Данные - фильтр Жмете стрелку фильтра - числовые фильтры - меньше - 20000 Выделяете полученное, пишете 20000, жмете Контрл Ентер (одновременно) Жмете стрелку фильтра - удалить фильтр Добавлено Сначала вместо Контрл ошибочно написал Альт Автор - _Boroda_ Дата добавления - 20.10.2015 в 19:20
lolsecret
Дата: Вторник, 20.10.2015, 19:31 |
Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Serge_007 , Прошу прощения, больше не совершу глупой ошибки. Serge_007 , _Boroda_ , МВТ , Спасибо большое, вы очень помогли.
Serge_007 , Прошу прощения, больше не совершу глупой ошибки. Serge_007 , _Boroda_ , МВТ , Спасибо большое, вы очень помогли.lolsecret
Ответить
Сообщение Serge_007 , Прошу прощения, больше не совершу глупой ошибки. Serge_007 , _Boroda_ , МВТ , Спасибо большое, вы очень помогли.Автор - lolsecret Дата добавления - 20.10.2015 в 19:31