Note: The other languages of the website are Google-translated. Back to English

Як знайти та замінити значення більше / менше, ніж певне значення в Excel?

Можливо, на вашому аркуші є кілька даних, тепер ви хочете знайти всі клітинки, що містять значення, яке перевищує або менше певного числа, а потім замінити їх іншим необхідним значенням відразу. Звичайна функція "Знайти та замінити" не застосовується для вирішення цієї проблеми. Чи є у вас якісь інші хороші поради щодо вирішення цього завдання?

Знайти та замінити значення більше / менше, ніж конкретне значення, кодом VBA

Знайдіть і замініть значення, більші / менші за конкретне значення, Kutools для Excel


Наприклад, я знайду всі значення, які перевищують 500, і заміню їх на 0.

doc замінити більше 1

Наступний код VBA може допомогти вам замінити значення, більші або менші за певне значення, на одне, будь-ласка, виконайте наступне:

1. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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. Клацання Кутулс > вибрати > Виберіть певні клітини, див. скріншот:

3, в Виберіть певні клітини діалогове вікно натисніть кнопку Осередок опція під Тип вибору, і вибрати Більш чим від Конкретний тип , і введіть значення, яке потрібно використовувати, крім того, у текстовому полі Більш чим, див. скріншот:

doc замінити більше 5

4. Потім натисніть OK кнопку, усі комірки, що перевищують 500, були негайно вибрані, потім введіть значення, яке потрібно замінити, та натисніть Ctrl + Enter клавіші разом, усі вибрані значення були замінені одночасно. Дивіться скріншоти:

doc замінити більше 6 2 doc замінити більше 7

примітки: В Виберіть певні клітини діалоговому вікні, ви можете використовувати інші критерії, такі як Менш, Так само, Містить, І так далі.

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!


Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

Статті по темі:

Як знайти та замінити точну відповідність у Excel?

Як замінити текст на відповідні картинки в Excel?

Як знайти та замінити колір заливки в Excel?


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (2)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Це дійсно круто!!! Я це люблю!
Цей коментар був мінімізований модератором на сайті
Якби тільки був спосіб зробити те ж саме без втрати формул(
There are no comments posted here yet
Будь ласка, залишайте свої коментарі англійською мовою
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL