Как удалить строки над активной ячейкой или конкретным текстом в Excel?
Если существует огромный рабочий лист с несколькими строками, и вы просто хотите удалить все строки над активной ячейкой или конкретным текстом, как вы можете с этим справиться? Вы можете удалить строки, выбрав их, а затем щелкнув правой кнопкой мыши, чтобы выбрать Удалить из контекстного меню вручную. Но здесь у меня есть коды VBA для быстрого удаления строк выше, если вам это интересно, прочтите подробности ниже.
Удалите строки выше с кодами VBA
Удалите строки выше с кодами VBA
Здесь я представляю вам два кода VBA: один - удалить строки над активной (выбранной ячейкой), другой - удалить строки над указанным текстом.
1. Выберите ячейку, над которой вы хотите удалить строки, и нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули, и вставьте ниже код в Модули скрипты.
VBA: удалить строки над активной ячейкой
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Нажмите F5 key, то строки над активной ячейкой были удалены. Смотрите скриншот:
Если вы хотите удалить строки над указанным текстом, вы можете использовать VBA ниже.
VBA: удалить строки над указанным текстом
Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
Dim fRg As Range
Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
If Not fRg Is Nothing Then
If fRg.Row <> 1 Then
Range("A1", fRg.Offset(-1)).EntireRow.Delete
Else
MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
End If
Else
MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
End If
End Sub
Примечание:
1. В коде Общая группа это текст, который вы хотите найти, вы можете изменить его по своему усмотрению.
2. Если найденный текст уже был в первой строке, появится диалоговое окно с напоминанием.
3. Если найденный текст не существует на листе, появится диалоговое окно, как показано на скриншоте ниже, чтобы напомнить вам.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!