Jak usunąć wiersze powyżej aktywnej komórki lub określonego tekstu w programie Excel?

Jeśli istnieje ogromny arkusz z wieloma wierszami i chcesz po prostu usunąć wszystkie wiersze powyżej aktywnej komórki lub określonego tekstu, jak sobie z tym poradzisz? Możesz usunąć wiersze, zaznaczając je, a następnie klikając prawym przyciskiem myszy, aby ręcznie wybrać Usuń z menu kontekstowego. Ale tutaj mam kody VBA, aby szybko usunąć wiersze powyżej, jeśli jesteś tym zainteresowany, przeczytaj poniższe szczegóły.

Usuń wiersze powyżej z kodami VBA

---

Usuń wiersze powyżej z kodami VBA

Tutaj przedstawiam dla ciebie dwa kody VBA, jeden to usuwanie wierszy nad aktywną (wybraną komórką), drugi to usuwanie wierszy powyżej określonego tekstu.

1. Wybierz komórkę, z której chcesz usunąć wiersze nad nią, i naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Modułi wklej poniższy kod do pliku Moduł skrypt.

VBA: Usuń wiersze powyżej aktywnej komórki

Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub

 

3. naciśnij F5 klucz, to wiersze powyżej aktywnej komórki zostały usunięte. Zobacz zrzut ekranu:

Jeśli chcesz usunąć wiersze powyżej określonego tekstu, możesz użyć poniższego VBA.

VBA: Usuń wiersze powyżej określonego tekstu

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

Uwaga:

1. W kodzie Całkowita grupa to tekst, który chcesz znaleźć, możesz go zmienić według potrzeb.

2. Jeśli znaleziony tekst był już w pierwszym wierszu, pojawi się okno dialogowe z przypomnieniem.

3. Jeśli znalezionego tekstu nie ma w arkuszu, pojawi się okno dialogowe pokazane na poniższym zrzucie ekranu, aby o tym przypomnieć.