Note: The other languages of the website are Google-translated. Back to English

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


strzałka niebieski prawy bąbelek 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

 

doc usuń wiersze powyżej 1

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

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

doc usuń wiersze powyżej 3

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.
doc usuń wiersze powyżej 4

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

 

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL