Jak sprawdzić, czy komórka lub zakres wielu komórek jest pusty w Excel VBA?

Dzisiaj dowiemy się, jak łatwo sprawdzić, czy jedna lub wiele komórek jest pusta za pomocą Visual Basic for Applications (VBA). Treść dotyczy programu Excel 2019/365, 2016 i wcześniejszych wersji pakietu Microsoft Office.

Prace przygotowawcze

Przed rozpoczęciem kodowania za pomocą VBA w programie Excel musisz upewnić się, że karta deweloperska jest włączona. Jeśli tak nie jest, zajrzyj do tego krótkiego samouczka.

Sprawdzanie, czy zakres komórek Excela jest pusty za pomocą VBA

1. W programie Excel otwórz środowisko Visual Basic, naciskając Alt + F11
2. Wstaw następujący kod jako procedurę w arkuszu lub alternatywnie w dedykowanym module VBA.

Sub Check_Cell_is_empty_alt()
    Dim rng As Range
    Set rng = Selection
    For Each Cell In rng
        If IsEmpty(Cell.Value) = True Then
            Debug.Print ("Pusta")
        Else
            Debug.Print ("Nie pusta")
        End If
    Next Cell
    End Sub

3. Przejdź do arkusza kalkulacyjnego i wybierz dowolny zakres komórek.
4. Wróć do edytora Visual Basic i upewnij się, że przeglądarka natychmiastowa (CTRL+G) jest widoczna — ponieważ metoda Debug.Print w kodzie wygeneruje wynik do tego okna.
5. Naciśnij F5, aby uruchomić swój kod.
6. Spójrz na wyniki w bezpośrednim oknie.

Wyniki

Wszystkie puste komórki zostaną zidentyfikowane.

Możliwe rozszerzenia kodu

Możesz oczywiście rozszerzyć ten kod w razie potrzeby, jeśli chcesz pominąć puste wartości lub po prostu nic nie robić, jeśli komórki nie są pełne. Możesz również sprawdzić, czy sam zakres jest pusty, czyli nie zawiera żadnych wartości.

Sprawdzanie niepustych pól

W ten sam sposób można użyć właściwości IsEmpty, aby sprawdzić pola, które nie są puste.

If Not IsEmpty(Cell.Value) = True Then
        Debug.Print ("Nie pusta")
    Else
        Debug.Print ("Pusta")
    End If

Dim i As Long
        Dim c As Long
        Dim myRange As Range
        Dim myCell As Range
        Set myRange = Range("A1:A10")
        For Each myCell In myRange
            If IsEmpty(myCell) Then
                myCell.Interior.Color = RGB(255, 87, 87)
                i = i + 1
            End If
        Next myCell
        MsgBox "Razem jest " & i & " pustych komórek z " & c & "."