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 for Applications (VBA) jest popularna wśród zaawansowanych użytkowników, firm i programistów. Akcje oparte na VBA, takie jak wstawianie wierszy w Excelu, mogą zaoszczędzić wiele czasu, szczególnie przy obsłudze dużych zbiorów danych.

Ponadto Excel VBA pozwala na wstawianie wierszy zgodnie z określoną logiką, na przykład wstawianie wiersza, gdy trzecia kolumna jest pusta, lub wstawianie wierszy po aktualnie aktywnej komórce. Czytaj dalej, aby poznać 3 najlepsze kroki do automatyzacji wstawiania wierszy w programie Excel.

1. Wstawianie wierszy za pomocą VBA

Aby wstawić pojedynczy lub wiele wierszy, możesz użyć prostego kodu VBA. Oto kroki do wykonania:

Kroki wstawiania wierszy za pomocą VBA

1. Otwórz docelowy skoroszyt programu Excel.
2. Uzyskaj dostęp do dowolnego arkusza, w którym chcesz wstawić wiersz.
3. Naciśnij klawisze Alt+F11, aby wyświetlić edytor VBA.
4. Wybierz zakładkę Wstaw w menu, a następnie kliknij Moduł, aby otworzyć pusty moduł.
5. Skopiuj i wklej poniższy kod VBA, aby wstawić pojedynczy wiersz:

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

Po zakończeniu kliknij klawisz F5, aby wykonać makro. Nowy wiersz pojawi się w odwołaniu, które podałeś.

Wstawianie wielu wierszy

Aby wstawić wiele wierszy, zmień odwołanie na zakres komórek. Na przykład:

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

2. Wstawianie wierszy poprzez kopiowanie

Możesz skopiować istniejący wiersz i wkleić go w inne miejsce za pomocą poniższego kodu:

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

Ten kod skopiuje wiersz A4 i wklei go pomiędzy wierszami A5 a A7 (czyli do A6). Pamiętaj, że zmiany dokonane za pomocą VBA nie mogą być cofnięte za pomocą Ctrl+Z. Musisz ręcznie usunąć zmiany.

3. Wstawianie wierszy bez formatowania

Aby wstawić wiersz bez kopiowania formatowania z sąsiednich wierszy, użyj poniższego kodu:

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

Ostatnie słowa

Wstawianie wierszy w małych plikach Excel można łatwo wykonać przy użyciu funkcji wstawiania lub menu kontekstowego. Jednak przy dużych zbiorach danych ręczne wstawianie wierszy staje się czasochłonne. W takim przypadku zastosowanie kodów VBA może znacznie zwiększyć efektywność pracy.

Odkryj więcej możliwości Excel VBA

Szukasz więcej informacji na temat funkcjonalności Excel VBA? Sprawdź, jak łatwe może być sprawdzanie pisowni w Excelu dzięki VBA.