W tym artykule utworzymy makro do usuwania niekompletnych rekordów zawierających puste komórki.
Surowe dane składają się z niektórych przykładowych danych, które obejmują imię i nazwisko, wiek i płeć. Zawiera również kilka pustych komórek.
Chcemy usunąć te rekordy, które zawierają puste komórki.
Wyjaśnienie logiczne
Stworzyliśmy makro „BlankRowDeletion” do usuwania niekompletnych rekordów. Przeszukuje i wybiera puste komórki, a następnie usuwa cały wiersz zawierający pustą komórkę.
Wyjaśnienie kodu
Ustaw Rng = Zakres("A9:C" i LastRow)
Powyższy kod służy do stworzenia obiektu zakresu dla podanych danych.
Rng.SpecialCells(xlCellTypeBlanks).Wybierz
Powyższy kod służy do wybierania pustych komórek w określonym zakresie.
Zaznaczenie.Cały wiersz.Usuń
Powyższy kod służy do usunięcia całego wiersza dla wybranej komórki.
Proszę postępować zgodnie z poniższym kodem!
Option Explicit Sub BlankRowDeletion() 'Deklarowanie zmiennych Dim LastRow As Long Dim Rng As Range 'Pobieranie numeru wiersza ostatniej komórki LastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row 'Wybieranie wszystkich danych Set Rng = Range("A9 :C" & LastRow) 'Wybieranie pustych komórek Rng.SpecialCells(xlCellTypeBlanks).Select 'Usuwanie całego wiersza Selection.EntireRow.Delete Range("A9").Select End Sub
Jeśli podobał Ci się ten blog, podziel się nim ze znajomymi na Facebooku. Możesz również śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy poprawić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail