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ć.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!