W tym artykule dowiemy się, jak usuwać wiersze, gdy nie ma danych w całym wierszu.
Poniżej znajduje się migawka danych, które posiadamy:
Koncepcja tego samouczka polega na tym, że jeśli w wybranym zakresie A1: E10 znajduje się jakikolwiek pusty wiersz, kod vba powinien usunąć ten wiersz.
Musimy wykonać poniższe kroki:
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
- Wprowadź następujący kod w bieżącym module arkusza roboczego
Sub Usuń cały wiersz()
Przyciemnij i tak długo
„Obliczanie i aktualizacja ekranu są wyłączone, aby przyspieszyć makro”
Z aplikacją
.Calculation = xlCalculationManual
.Aktualizacja ekranu = Fałsz
Dla i = Wybór.Liczba wierszy do 1 Krok -1
Jeśli WorksheetFunction.CountA(Selection.Rows(i)) = 0 Wtedy
Wybór.Wiersze(i).Cały wiersz.Usuń
Zakończ, jeśli
Dalej ja
.Calculation = xlCalculationAutomatic
.Aktualizacja ekranu = Prawda
Kończyć z
Napis końcowy
- Najpierw ręcznie usuńmy dane z rzędu, aby przetestować nasz kod.
- Po skopiowaniu kodu; wybierz zakres A1: E10 i ręcznie usuń dowolny wiersz
- Teraz uruchom makro za pomocą klawiszy ALT + F8 i wybierz DeleteEntireRow
- Pusty wiersz został usunięty, a wszystkie poniższe wiersze zostały przesunięte w górę.
W ten sposób możemy usuwać wiersze za pomocą vba w programie Microsoft Excel.
Pobierz-usuń wiersze w VBA