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

Як видалити рядки, якщо комірка більша / менша за певне значення в Excel?

Іноді може знадобитися видалити рядки, якщо клітинки у вказаному стовпці більше або менше певного значення в Excel. У цій статті буде рекомендовано кілька методів вирішення цієї проблеми.

Видаліть рядки, якщо комірка більше / менше певного значення за допомогою коду VBA
Видаліть рядки, якщо комірка більше / менше певного значення за допомогою Kutools для Excel
Видаліть рядки, якщо комірка більше / менше певного значення за допомогою Kutoos для Excel


Видаліть рядки, якщо комірка більше / менше певного значення за допомогою коду VBA

Припустимо, ви хочете видалити цілі рядки, якщо комірка в стовпці D більша або менша за певне значення в Excel. Ви можете запустити такий код VBA для його досягнення.

1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код VBA у вікно коду.

Код VBA: Видаліть рядки, якщо комірка більша / менша за певне значення в Excel

Public Sub ProcessData()
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xRg.Range("A1").EntireRow.Insert
    Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
    xRg.Range("A1") = "Temp"
    xRg.AutoFilter 1, ">30000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub

примітки: У наведеному вище коді> 30000 означає, що ви видалите рядки, якщо клітинки перевищують 30000 у вказаному стовпці. Якщо ви хочете видалити рядки, якщо клітинки менше певного значення, змініть знак> на <і вкажіть своє значення.

3. прес F5 клавіша для запуску коду в спливаючому вікні Kutools для Excel діалоговому вікні, виберіть діапазон (одиночний стовпець), який ви знайдете, якщо клітинки цього стовпця більші або менші за певне значення. А потім натисніть OK кнопку. Дивіться знімок екрана:

Потім усі рядки із значенням комірки більше 30000 у стовпці D негайно видаляються.


Видаліть рядки, якщо комірка більше / менше певного значення за допомогою Kutools для Excel

повне г, повне г,, показали, від, номер, XNUMX Виберіть певні клітини корисність Kutools для Excel може допомогти вам вибрати всі рядки з комірками, більшими або меншими за певне значення у вказаному стовпці, а потім ви можете вручну видалити всі виділені рядки одночасно.

Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.

1. Виберіть стовпець, на основі якого потрібно видалити рядки, а потім натисніть Кутулс > вибрати > Виберіть певні клітини. Дивіться знімок екрана:

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

3. Потім з'явиться діалогове вікно, щоб повідомити, скільки рядків вибрано, натисніть кнопку OK кнопку. І ви можете бачити, що всі рядки, значення яких перевищують 30000, у стовпці D вибрані негайно.

4. Клацніть правою кнопкою миші на одному з вибраних рядків, а потім клацніть видаляти з меню, що клацне правою кнопкою миші. І всі вибрані рядки видаляються.

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї утиліти, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


Видаліть рядки, якщо комірка більше / менше певного значення за допомогою Kutoos для Excel

На додаток до вищезазначених двох методів, ви можете відфільтрувати всі рядки з клітинками, більшими або меншими за певне значення у вказаному стовпці, а потім видалити всі відфільтровані рядки за допомогою Видалити приховані (видимі) рядки та стовпці корисність Kutools для Excel.

Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.

1. Виберіть заголовок стовпця, а потім натисніть дані > фільтр. Дивіться знімок екрана:

2. Клацніть стрілку спадного меню в стовпці, на основі якого ви будете видаляти рядки, а потім натисніть Кількісні фільтри > Більш чим or Менше, ніж як нижче скріншот:

3 В Спеціальний автофільтр діалогове вікно, введіть певне число після того, як поле більше або менше поля, а потім клацніть на OK кнопки.

4. Потім усі рядки з певними комірками, які є більшими або меншими за певне значення у стовпці D, фільтруються. Ви можете видалити всі відфільтровані рядки, вибравши відфільтровані дані, а потім клацніть Кутулс > видаляти > Видалити приховані (видимі) рядки та стовпці. Дивіться знімок екрана:

5 В Видалити приховані (видимі) рядки та стовпці діалогове вікно, переконайтеся, що У вибраному діапазоні опція вибрана в Заглядати у спадному списку виберіть ряди в Тип видалення у розділі, вкажіть опцію Видимі рядки Детальний тип і, нарешті, клацніть на OK кнопки.

6. Потім усі видимі рядки у вибраному діапазоні негайно видаляються, ви можете скасувати фільтр, натиснувши дані > фільтр.

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї утиліти, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


Видаліть рядки, якщо комірка більше / менше певного значення за допомогою Kutools для Excel


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


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

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

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

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

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