Как удалить строки выше активной ячейки или определенного текста в Excel?
Если у вас есть огромная таблица с множеством строк, и вы хотите удалить все строки выше активной ячейки или определенного текста, как вы можете это сделать? Вы можете удалить строки, выбрав их, а затем щелкнув правой кнопкой мыши и выбрав Удалить в контекстном меню вручную. Но здесь у меня есть коды VBA для быстрого удаления строк сверху; если вам интересно, пожалуйста, прочитайте подробности ниже.
Удаление строк выше с помощью кодов VBA
Удаление строк выше с помощью кодов VBA
Здесь я представляю вам два кода VBA: один удаляет строки выше активной (выбранной) ячейки, а другой удаляет строки выше указанного текста.
1. Выберите ячейку, над которой вы хотите удалить строки, и нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Нажмите Вставить > Модуль и вставьте приведенный ниже код в скрипт Модуля.
VBA: Удалить строки выше активной ячейки
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Нажмите F5 , затем строки выше активной ячейки будут удалены. См. скриншот:
Если вы хотите удалить строки выше указанного текста, вы можете использовать следующий 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. В коде «Total Group» — это текст, который вы хотите найти, вы можете изменить его по своему усмотрению.
2. Если найденный текст уже находится в первой строке, появится диалоговое окно, которое вас об этом уведомит.
3. Если указанный текст не найден на листе, появится диалоговое окно, которое вас об этом уведомит, как показано ниже.
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек