Jak używać VBA do wstawiania wierszy w programie Microsoft Excel: 3 najlepsze kroki

Automatyzacja arkusza programu Excel przy użyciu języka programowania Visual Basic jest popularna wśród zaawansowanych użytkowników programu Excel, firm i programistów. Akcje oparte na VBA, na przykład wstaw wiersz VBA, automatycznie dodadzą wiersze jednym kliknięciem.

Ponadto Excel VBA może wstawiać wiersze zgodnie z określoną logiką, na przykład wstawianie wiersza, gdy trzecia kolumna jest pusta, wstawianie wierszy po aktualnie aktywnej komórce i tak dalej. Dlatego czytaj dalej, aby dowiedzieć się, jak używać języka VBA do wstawiania wierszy w arkuszu programu Excel.

1. Użyj VBA, aby wstawić wiersz: pojedynczy i wielokrotny

Możesz napisać prosty kod VBA , aby wstawić jeden lub wiele wierszy po wyznaczonych odwołaniach do komórek, używając metody Insert i właściwości EntireRow edytora Excel VBA.

Oto kroki, które możesz wypróbować wraz z kodami VBA:

• Otwórz docelowy skoroszyt programu Excel i uzyskaj dostęp do dowolnego arkusza programu Excel, w którym chcesz wstawić wiersz.
• Naciśnij klawisze Alt+F11 , aby wyświetlić edytor Excel VBA.
• W edytorze kodu poszukaj zakładki Wstaw w sekcji menu i kliknij ją.
• Teraz kliknij Moduł , aby otworzyć pusty moduł edycji kodu VBA.
• Skopiuj i wklej poniższy kod VBA, aby wstawić pojedynczy wiersz. Możesz zmienić zakres komórek, jeśli chcesz wstawić wiersz w innym miejscu.

Sub vba_insert_row() Range("A3").EntireRow.Insert End Sub

Po zakończeniu wpisywania kodu naciśnij klawisz F5 , aby wykonać makro VBA. Nowy wiersz pojawi się w odwołaniu do komórki, o którym wspomniałeś w kodzie VBA.

Aby wstawić wiele wierszy, zmień odwołanie do komórki z jednego adresu komórki na zakres komórek. Na przykład potrzebujesz dwóch wierszy między A3 i A6 , wprowadź A4:A5 jako odwołanie do komórki. Kod VBA po wstawieniu zakresu komórek powinien wyglądać tak:

Sub vba_insert_row() Range("A4:A5").EntireRow.Insert End Sub

2. Użyj VBA, aby wstawić wiersz: Nowy skopiowany wiersz

Możesz użyć następującego małego kodu, aby skopiować wiersz i wkleić go w innym miejscu.

Sub vba_insert_row() Rows(4).Copy Rows(6).Insert Shift:=xlShiftDown End Sub

Jeśli uruchomisz ten kod, program Excel skopiuje wiersz A4 i wklei go między wierszami A5 i A7 , czyli A6 . Należy pamiętać, że automatycznych modyfikacji opartych na języku VBA nie można cofnąć za pomocą polecenia Ctrl+Z . Musisz ręcznie usunąć zmiany.

3. Użyj VBA, aby wstawić wiersz: bez formatowania

Załóżmy, że chcesz wstawić wiersz między dwoma wierszami bez kopiowania formatowania z sąsiednich wierszy. Możesz to łatwo zrobić, uruchamiając ten kod wiersza wstawiania VBA:

Sub vba_insert_row() Rows(5).EntireRow.Insert Rows(5).ClearFormats End Sub

Po uruchomieniu wyżej wymienionego skryptu VBA, pusty i wolny od formatowania wiersz pojawi się tam, gdzie chcesz.

Ostatnie słowa

Wstawianie wierszy w małych plikach programu Excel może być łatwiejsze przy użyciu funkcji wstawiania lub menu kontekstowego dostępnego po kliknięciu prawym przyciskiem myszy. Jeśli jednak pracujesz nad analizą dużych zbiorów danych lub arkuszem Excel zawierającym tysiące wierszy, ręczne wstawianie wierszy staje się procesem czasochłonnym. Tutaj możesz zastosować wyżej wymienione kody wierszy wstawiania VBA, aby zaoszczędzić czas.

Szukasz ciekawszych rzeczy, które Excel VBA może dla Ciebie zrobić? Oto kolejna dla Ciebie: łatwe sprawdzanie pisowni w Excelu dzięki VBA.