Сьогодні ми дізнаємося, як легко перевірити, чи є одна або кілька клітинок порожніми, за допомогою Visual Basic для додатків. Вміст актуальний для Excel 2019 / 365, 2016 та попередніх версій Microsoft Office.
Підготовчі роботи
Перш ніж розпочати кодування за допомогою VBA в Excel, вам потрібно переконатися, що ваша вкладка розробка увімкнена. Якщо це не так, перегляньте цей короткий посібник .
Перевірка, чи порожній діапазон клітинок Excel за допомогою VBA
- У Excel відкрийте середовище Visual Basic, натиснувши Alt+F11
- Вставте наступний код як процедуру у свій робочий аркуш або, як альтернатива, у виділений модуль 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 ("Empty")
Else
Debug.Print ("Not Empty")
End If
Next Cell
End Sub
- Перейдіть до електронної таблиці та виберіть довільний діапазон комірок.
- Поверніться до редактора Visual Basic і переконайтеся, що засіб перегляду безпосереднього перегляду (CTRL+G) є видимим, оскільки метод Debug.Print у коді виведе результат у це вікно.
- Натисніть F5, щоб запустити свій код.
- Подивіться на результати безпосередньо у вікні.

- Усі порожні клітинки будуть ідентифіковані.
Можливі розширення коду: Ви, очевидно, можете розширити цей код за потреби, якщо хочете пропустити порожні значення або просто нічого не робити, якщо клітинки не заповнені. Аналогічно можна перевірити, чи порожній сам діапазон, тобто чи немає чорних клітинок.
Перевірка непорожніх полів
Таким же чином ви можете використовувати властивість IsEmpty, щоб перевірити наявність полів, які не порожні.
If Not IsEmpty(Cell.Value) = True Then
Debug.Print ("Not Empty")
Else
Debug.Print ("Empty")
End If
Бонус: використовуйте наступний код, якщо ви також хочете виділити порожні клітинки.
Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") Для кожної myCell у myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Є всього " & я & " пусті комірки з " & c & "."