Delete Entire Row using VBA – Excel Macro Example Code

Excel VBA code to Delete Entire Row przykład pomoże nam usunąć wiersze w arkuszu Excela. Możemy użyć metody Delete w Rows, aby usunąć cały wiersz. W tym przykładzie zobaczymy, jak usunąć cały wiersz w arkuszu Excela za pomocą VBA. Kod makra Excel VBA do usuwania całych wierszy makro powinno działać dla wszystkich wersji Microsoft Excel 2003, Excel 2007, Excel 2010 i Excel 2013.

Kod VBA do usuwania całych wierszy

Oto składnia i przykład kodu makra VBA do usuwania całych wierszy z arkuszy Excela. To pomoże Ci wiedzieć, jak usunąć cały wiersz z skoroszytu programu Excel za pomocą VBA.

VBA Usuń cały wiersz: Składnia

Poniżej znajduje się składnia makra VBA Usuń cały wiersz i przykładowe makropolecenie VBA, aby usunąć cały wiersz z arkusza roboczego za pomocą VBA. Używamy metody Delete obiektu Rows arkusza.


Rows(

).EntireRow.Delete


Tutaj Numer wiersza jest numerem wiersza do usunięcia. A metoda EntireRow.Delete usunie cały wiersz z arkusza Excel.

Usuwanie całego wiersza za pomocą VBA: Examples

Następujący kod makra Excel VBA delete whole row ma na celu usunięcie całego wiersza z arkusza. To makro VBA usuwanie całego wiersza będzie usunąć wiersz, który mamy wymienione w kodzie.

Sub sbVBS_To_Delete_EntireRow () Rows(1).EntireRow.DeleteEnd Sub

Instrukcje, aby uruchomić kod makra VBA do usuwania całego wiersza

Proszę postępować zgodnie z poniższymi krokami, aby wykonać makro VBA usuwanie całego wiersza.
Krok 1: Otwórz dowolny istniejący skoroszyt programu Excel.Krok 3: Wstaw moduł kodu z menu wstawiania.
Krok 4: Skopiuj powyższy kod i wklej do modułu kodu, który został wstawiony w powyższym kroku.
Krok 5: Wprowadź kilka przykładowych danych w wierszu 1.
Krok 6: Teraz naciśnij F5, aby wykonać kod.

Teraz możesz zaobserwować, że cały wiersz 1 jest usunięty z arkusza.

Wyjaśniony kod VBA do usunięcia całego wiersza:

Uruchomienie programu i podprocedury, aby napisać kod VBA do usunięcia całego wiersza z arkusza.
Sub sbVBS_To_Delete_EntireRow_C()

’Określenie wierszy do usunięcia i usunięcie wierszy za pomocą metody EntireRow.Delete.
Rows(1).EntireRow.Delete

’Zakończenie procedury podrzędnej do usunięcia całego wiersza.
End Sub

Tutaj Rows(1) mówi Excelowi, aby usunął wiersz 1 arkusza. A metoda Delete usunie cały wiersz z arkusza.

VBA, aby usunąć cały wiersz w Excelu :

Jeśli chcesz usunąć kilka pierwszych wierszy w Excelu, możesz powtórzyć polecenie delete kilka razy. Poniższy przykład kodu makra VBA do usuwania całego wiersza pokaże Ci, jak usunąć pierwsze 3 wiersze w arkuszu.

Sub sbVBS_To_Delete_FirstFewRows_in_Excel() Rows(1).EntireRow.Delete Rows(1).EntireRow.Delete Rows(1).EntireRow.DeleteEnd Sub

W tym przykładzie widać, że polecenie delete jest powtarzane 3 razy. Najpierw usuwa pierwszy wiersz, kiedy usuwamy pierwszy wiersz. Następny wiersz staje się (2nd Row) pierwszego wiersza. Więc jeśli usuniesz pierwszy wiersz ponownie. Następny rząd (3rd Row) staje się pierwszym rzędem. Oznacza to, że usunęliśmy pierwsze trzy wiersze za pomocą VBA.

VBA, aby usunąć cały wiersz w Excelu: Kod VBA wyjaśniony

Tutaj jest wyjaśnienie VBA usuń cały wierszMakro, aby usunąć pierwsze trzy wiersze w Excelu.

Rozpoczęcie procedury pisania poleceń VBA do usuwania pierwszych kilku (3) wierszy.
Sub sbVBS_To_Delete_FirstFewRows_in_Excel_C()

’Pierwszy wiersz jest usuwany
Rows(1).EntireRow.Delete
’Teraz Drugi wiersz staje się pierwszym wierszem- ponownie usuwamy pierwszy wiersz.
Rows(1).EntireRow.Delete
’Teraz Trzeci wiersz staje się pierwszym wierszem- ponownie polecenie delete usuwa pierwszy wiersz.
Rows(1).EntireRow.Delete
’Usunęliśmy pierwsze 3 wiersze i tutaj kończymy procedurę podrzędną.
End Sub

VBA do usuwania całych wierszy w Excelu: Użycie pętli For

Tutaj jest przykładowe makro VBA do usuwania pierwszych kilku wierszy przy użyciu pętli For. To usunie pierwsze 10 rekordów używając pętli For w VBA.

Sub sbVBS_To_Delete_EntireRow_For_Loop()Dim iCntr For iCntr = 1 To 10 Step 1 Rows(1).EntireRow.Delete NextEnd Sub

VBA to Delete Entire Row in Excel : Using For Loop – Explanation

Tutaj jest szczegółowe wyjaśnienie usuwania wiersza używając pętli For w VBA.

Rozpoczęcie procedury podrzędnej w celu napisania makra VBA do usuwania wierszy przy użyciu pętli for VBA.
Sub sbVBS_To_Delete_EntireRow_For_Loop_C()
’Deklarowanie zmiennej iCntr do przechowywania iteracji pętli for.
Dim iCntr
’zapętlenie wierszy przy użyciu pętli for, tutaj instrukcja step wskazuje przyrost iCntr.
For iCntr = 1 To 10 Step 1
’usunięcie pierwszego wiersza.
Rows(1).EntireRow.Delete
Next
’Usunęliśmy pierwszy wiersz 10 razy, to znaczy, że usunęliśmy pierwsze 10 wierszy w arkuszu Excela używając pętli for i VBA.
End Sub

VBA aby usunąć cały wiersz w Excelu: Używając pętli Do while

Tutaj jest przykład VBA usuń cały wiersz makro aby usunąć kilka pierwszych wierszy używając pętli Do while. To usunie pierwsze 10 rekordów używając pętli For w VBA.

Sub sbVBS_To_Delete_EntireRow_Do_while_Loop()Dim iCntriCntr = 10 ' Last row Do While iCntr >= 1 Rows(iCntr).EntireRow.Delete iCntr = iCntr - 1 LoopEnd Sub

VBA do usuwania całego wiersza w Excelu: Użycie pętli Do while – wyjaśnienie

Tutaj jest wyjaśnienie do powyższego makra VBA do usuwania całego wiersza, aby usunąć wiersze używając pętli Do while.

Uruchamianie makra VBA do usuwania wierszy za pomocą pętli Do while.
Sub sbVBS_To_Delete_EntireRow_Do_while_Loop()
’Deklarowanie zmiennej przechowującej numer ostatniego wiersza i używanie jej jako zmiennej licznika.
Dim iCntr
’Przypisywanie wartości ostatniego wiersza do iCntr.
iCntr = 10 ’ Ostatni wiersz
’Używając pętli do while usuwamy wiersze od ostatniego (10-tego) wiersza .
Do While iCntr >= 1
Rows(iCntr).EntireRow.Delete
iCntr = iCntr – 1
Loop
’kończąc procedurę podrzędną w tym miejscu.
End Sub

Tutaj można zaobserwować, że zapętlamy wiersze od ostatniego do początku. To będzie dokładny kod podczas usuwania wierszy z arkusza. Zawsze usuwaj wiersz od ostatniego do pierwszego.