Как удалить строки выше активной ячейки или заданного текста в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек