Прескочи на основното съдържание

Как да намерите и замените стойности, по-големи от / по-малки от определена стойност в Excel?

Автор: Xiaoyang Последна промяна: 2020-06-03

Може би във вашия работен лист има множество данни, сега искате да намерите всички клетки, които съдържат стойността, по-голяма или по-малка от определено число, и след това да ги замените с друга стойност, от която се нуждаете наведнъж. Нормалната функция за намиране и замяна не се прилага за решаване на този проблем, имате ли други добри предложения за справяне с тази задача?

Намерете и заменете стойности, по-големи от/по-малки от определена стойност с VBA код

Намерете и заменете стойности, по-големи от / по-малки от определена стойност с Kutools за Excel


Например, ще намеря всички стойности, които са по-големи от 500, и ще ги заменя с 0.

doc замества по-голямо от 1

Следният VBA код може да ви помогне да замените стойностите, които са по-големи или по-малки от конкретна стойност, с единица, моля, направете следното:

1. Задръжте натиснат ALT + F11 ключове и отваря Microsoft Visual Basic за приложения прозорец.

2. Щракнете Поставете > Модулии поставете следния код в Модули Window.

VBA код: Намерете и заменете стойности, по-големи или по-малки от определена стойност

Sub FindReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Value > 500 Then
        Rng.Value = 0
    End If
Next
End Sub

3. След това натиснете F5 клавиш, за да стартирате този код, и изберете данните за диапазона, които искате да замените, от полето за подкана, вижте екранната снимка:

doc замества по-голямо от 2

4. И после щракнете върху OKи можете да видите, че всички стойности, по-големи от 500, са заменени с 0.

doc замества по-голямо от 3

Забележка: В горния код можете да промените следните променливи на желаните от вас.

  • Ако Rng.Value > 500 След това
  • Rng.Value = 0

Ако не сте запознати с кода, мога да говоря за удобен инструмент - Kutools за Excel, Със своята Изберете конкретни клетки можете бързо да изберете клетките, от които се нуждаете, и след това да ги замените наведнъж.

Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни.

След инсталиране Kutools за Excel, направете следните стъпки:

1. Изберете диапазона от данни, който искате да намерите и замените.

2. Щракнете Kutools > Изберете > Изберете конкретни клетки, вижте екранна снимка:

3. В Изберете конкретни клетки кликнете върху Клетка опция под Тип селекция, и изберете По-велик от от Специфичен тип падащо меню и въведете стойността, която искате да използвате в текстовото поле освен това По-велик от, вижте екранна снимка:

doc замества по-голямо от 5

4, След това кликнете OK всички клетки, по-големи от 500, са избрани веднага, след това въведете стойността, с която трябва да замените, и натиснете Ctrl + Enter клавиши заедно, всички избрани стойности са заменени едновременно. Вижте екранни снимки:

doc замества по-голямо от 6 2 doc замества по-голямо от 7

Забележка: В Изберете конкретни клетки диалогов прозорец, можете да използвате други критерии, като напр По-малко от, Равно на, Съдържа, и така нататък.

Изтеглете и безплатна пробна версия Kutools за Excel сега!


Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. Изтеглете и изпробвайте безплатно сега!

Още по темата:

Как да намерите и замените точното съвпадение в Excel?

Как да замените текст със съответните картини в Excel?

Как да намеря и заменя цвета на запълване в Excel?

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If only there was a way to do the same without losing formulas(
This comment was minimized by the moderator on the site
It's really awesome!!! I love it!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations