Как удалить строки выше активной ячейки или определенного текста в 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. Если указанный текст не найден на листе, появится диалоговое окно, которое вас об этом уведомит, как показано ниже.