W tym artykule dowiemy się, jak usuwać puste kolumny za pomocą VBA w programie Microsoft Excel. Usuniemy kolumny, które są całkowicie puste, to znaczy, że w całej kolumnie nie ma żadnych danych.
Weźmy przykład i zrozum:
Mamy dane w zakresie A1: I21, w którym kolumna A zawiera nazwę, kolumna B jest pusta, kolumna C zawiera adres ulicy, kolumna D Miasto, kolumna E jest pusta, kolumna F zawiera region, kolumna G jest pusta, kolumna H zawiera kraj imię i nazwisko, a kolumna I zawiera numer telefonu.
Chcemy usunąć puste kolumny z danych, wykonaj poniższe kroki i kod:
- Otwórz stronę VBE, aby nacisnąć klawisz Alt + F11
- Włóż moduł, aby napisać kod
- Napisz poniższy kod:
Sub Delete_Columns() Dim C As Integer C = ActiveSheet.Cells.SpecialCells(xlLastCell).Column Do C = 0 If WorksheetFunction.CountA(Columns(C)) = 0 Then Columns(C).Delete End If C = C - 1 koniec pętli Sub
Wyjaśnienie kodu:
Najpierw zdefiniowaliśmy wszystkie zmienne. Następnie zakres pustych kolumn, a następnie użyliśmy „Do until loop”, aby usunąć puste kolumny. A teraz zdefiniowaliśmy pustą kolumnę i polecenie usunięcia.
Aby uruchomić kod, naciśnij klawisz F5 na klawiaturze,
- Wszystkie puste kolumny zostaną usunięte.
W ten sposób możemy usunąć puste kolumny poprzez VBA w Microsoft Excel.
Jeśli podobały Ci się nasze blogi, podziel się nimi ze znajomymi na Facebooku. A także możesz śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy ulepszyć, uzupełnić lub unowocześnić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail