Как удалить все строки ниже определенной строки или активной ячейки в 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 Sub
3. нажмите F5 ключ для запуска кода. Затем все строки ниже активной строки ячейки (включая строку активной ячейки) немедленно удаляются.
Статьи по теме:
- Как удалить все строки, кроме первой строки заголовка в Excel?
- Как удалить строки, если ячейка больше / меньше определенного значения в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!