Як видалити всі рядки нижче певного рядка або активної комірки в Excel?

Щоб видалити всі рядки під певним рядком або активною коміркою, ця стаття може вам допомогти.

Видаліть усі рядки нижче певного рядка в Excel за допомогою коду VBA
Видаліть усі рядки під активною коміркою в Excel із кодом VBA

Видаліть усі рядки нижче певного рядка в Excel за допомогою коду VBA

Наступний код VBA допоможе вам видалити всі рядки під певним рядком у Excel.

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

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

Код VBA: Видаліть усі рядки під певними рядками в Excel

Sub DeleteRowsBelow()
    Worksheets("Sheet1").Rows(5 & ":" & Worksheets("Sheet1").Rows.Count).Delete
End Sub

примітки: У коді VBA номер 5 та Sheet1 вказують, що всі рядки під рядком 5 (включають рядок 5) у Sheet1 будуть видалені після запуску коду. Ви можете змінити їх відповідно до своїх потреб.

3. прес F5 клавіша для запуску коду. Потім усі рядки під рядком 5 (включаючи рядок 5) негайно видаляються, як показано на знімку екрана нижче.

Видаліть усі рядки під активною коміркою в Excel із кодом VBA

Для видалення всіх рядків під активним рядком комірки в Excel можна спробувати наступний код VBA.

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

Код VBA: Видаліть усі рядки під активним рядком комірки в Excel

Sub DeleteAllBelow()
    Rows(ActiveCell.Row & ":" & Rows.Count).Delete
End Sub

3 Натисніть кнопку F5 клавіша для запуску коду. Потім усі рядки під активним рядком комірки (включаючи активний рядок комірок) негайно видаляються.

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

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

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

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

Детальніше ... Завантажити безкоштовно... Придбати ...

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

Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!