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