Як видалити всі рядки нижче певного рядка або активної комірки в 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 для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наступний код VBA у вікно коду.
Код VBA: Видаліть усі рядки під активним рядком комірки в Excel
Sub DeleteAllBelow()
Rows(ActiveCell.Row & ":" & Rows.Count).Delete
End Sub
3 Натисніть кнопку F5 клавіша для запуску коду. Потім усі рядки під активним рядком комірки (включаючи активний рядок комірок) негайно видаляються.
Статті по темі:
- Як видалити всі рядки, крім першого рядка заголовка в Excel?
- Як видалити рядки, якщо комірка більша / менша за певне значення в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!