Как проверить, пуста ли ячейка или диапазон нескольких ячеек с помощью Excel VBA?

Сегодня мы узнаем, как легко проверить, пуста ли одна или несколько ячеек, используя Visual Basic для приложений. Содержимое актуально для Excel 2019/365, 2016 и более ранних версий Microsoft Office.

Подготовительная работа

Прежде чем приступить к написанию кода с помощью VBA в Excel, вам необходимо убедиться, что вкладка «Разработка» включена. Если это не так, пожалуйста, изучите этот краткий учебник.

Проверка того, пуст ли диапазон ячеек Excel с помощью VBA

  1. В Excel откройте среду Visual Basic, нажав Alt+F11.
  2. Вставьте следующий код в качестве процедуры в свой рабочий лист или, альтернативно, в специальный модуль 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
  1. Перейдите в свою электронную таблицу и выберите произвольный диапазон ячеек.
  2. Вернитесь в редактор Visual Basic и убедитесь, что средство просмотра Immediate Viewer (CTRL+G) видно, так как метод Debug.Print в коде выведет результат в это окно.
  3. Нажмите F5, чтобы запустить код.
  4. Посмотрите на результаты в ближайшем окне.

Как проверить, пуста ли ячейка или диапазон нескольких ячеек с помощью Excel VBA?

  • Все пустые ячейки будут идентифицированы.

Возможные расширения кода

Вы можете расширить этот код по мере необходимости, чтобы пропустить пустые значения или просто ничего не делать, если ячейки не заполнены. Точно так же вы можете проверить, пуст ли сам диапазон, т.е. не содержит ли он пустых ячеек.

Проверка непустых полей

Таким же образом вы можете использовать свойство 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")

For Each myCell In myRange
    c = c + 1
    If IsEmpty(myCell) Then
        myCell.Interior.Color = RGB(255, 87, 87)
        i = i + 1
    End If
Next myCell

MsgBox "Всего " & i & " пустые ячейки из " & c & "."

(11) Комментарии

  1. Спокойный Мышонок -

    Крутая находка! Нам нужно больше таких лайфхаков для Excel, чтобы упростить рутинную работу. Были бы идеи про то, как автоматизировать работа с отчетами

  2. Олег Бобер -

    Здорово, что вы поделились своим опытом. У меня возникло несколько вопросов, но, думаю, я смогу разобраться самостоятельно

  3. Оля Мур -

    Этот пост просто супер! Я ищу способ оптимизировать свой рабочий процесс в Excel, и ваш подход к проверке пустых ячеек выдает невероятные результаты. Спасибо!

  4. Юля Кот -

    Круто! Я сначала думала, что VBA — это сложно, но теперь вижу, что с помощью таких простых примеров можно научиться многому

  5. Анна Доброта -

    Советую всем, кто работает с Excel, обязательно прочитать эту статью! Я использовала описанный метод, и он сильно упростил мою работу.

  6. Иван Петров -

    Спасибо большое за полезную информацию! Я всегда сталкивался с проблемой проверки ячеек в Excel, и ваш метод на VBA действительно оказался полезным. Теперь я смогу улучшить свои отчеты

  7. Саша 6543 -

    Но как быть, если я хочу проверить несколько диапазонов? Ваш код работает только с одной ячейкой

  8. Максим IT -

    Я всегда использовал формулы для проверки ячеек, но визуальная программа на VBA с легкостью делает это быстрее. Это, похоже, совсем новый уровень. Есть идеи, как это адаптировать для больших диапазонов

  9. Даша Лиса -

    Классная статья! Я никогда не думала, что можно так легко проверить ячейки с помощью VBA. Сохраню на потом, спасибо

  10. Лена Котик -

    Не могу удержаться от улыбки, когда понимаю, как легко можно делать такие вещи в Excel! Использую ваш код уже несколько дней, и это просто устраняло массу хлопот!

  11. Александр Заяц -

    Потрясающая статья! Я в восторге от того, как легко можно проверять ячейки. Буду пробовать это в своей работе. Спасибо за вашу помощь!

Оставить комментарий

Как создать простую систему отслеживания потенциальных клиентов в Excel перед покупкой CRM-системы

Как создать простую систему отслеживания потенциальных клиентов в Excel перед покупкой CRM-системы

Прежде чем инвестировать в CRM-систему, создайте практичную систему отслеживания потенциальных клиентов в Excel с таблицами, выпадающими списками, датами последующих действий, фильтрами, условным форматированием и простой панелью инструментов на основе сводных таблиц.

Простая распечатываемая форма учета посещаемости в детском саду на дому: что отслеживать и зачем.

Простая распечатываемая форма учета посещаемости в детском саду на дому: что отслеживать и зачем.

Используйте этот простой распечатываемый бланк учета посещаемости детского сада для домашнего ухода за детьми, чтобы отслеживать прибытия, отъезды, отсутствия, подписи и необходимые записи.

Простой шаблон таблицы учета товарных запасов для Excel: готовый к использованию в розничной торговле формат, позволяющий быстро проводить сверку данных.

Простой шаблон таблицы учета товарных запасов для Excel: готовый к использованию в розничной торговле формат, позволяющий быстро проводить сверку данных.

Создайте простую таблицу Excel для учета товарных запасов в розничных магазинах, включающую артикул, местоположение, подсчитанное количество, отклонения, пересчет и элементы управления, готовые к печати.

Шаблон маркетинговой стратегии на одной странице для печати, предназначенный для местных предприятий.

Шаблон маркетинговой стратегии на одной странице для печати, предназначенный для местных предприятий.

Используйте этот шаблон маркетинговой стратегии на одной странице, который можно распечатать, чтобы выбрать местную аудиторию, предложение, сочетание каналов, бюджет, действия и измеримые цели.

Бесплатный шаблон графика смен для сотрудников в Excel с автоматическим калькулятором рабочего времени.

Бесплатный шаблон графика смен для сотрудников в Excel с автоматическим калькулятором рабочего времени.

Создайте бесплатный график смен для сотрудников в Excel, включающий время начала/окончания, вычеты за перерывы, обработку ночных смен, итоговые еженедельные данные и простой калькулятор отработанных часов.

Лучшие бесплатные приложения для выставления счетов для малых предприятий сферы услуг в США (2026)

Лучшие бесплатные приложения для выставления счетов для малых предприятий сферы услуг в США (2026)

Сравните лучшие бесплатные приложения для выставления счетов для американских компаний сферы услуг в 2026 году, включая Zoho Invoice, Square, Wave, PayPal и Invoice Ninja.

Простой шаблон Excel для отслеживания заработной платы каждые две недели для небольших команд: удобная настройка для начинающих.

Простой шаблон Excel для отслеживания заработной платы каждые две недели для небольших команд: удобная настройка для начинающих.

Создайте в Excel простую систему учета заработной платы на два раза в неделю для небольшой команды, с понятными таблицами, формулами, проверками и практическими ограничениями для безопасной сверки заработной платы.

Как экспортировать контакты Salesforce в чистый формат Excel

Как экспортировать контакты Salesforce в чистый формат Excel

Узнайте, как экспортировать контакты Salesforce в чистый файл Excel, сохранять идентификаторы и текстовые поля, безопасно удалять дубликаты и избегать распространенных ошибок при работе с CSV-файлами.

Шаблон сметы строительных работ в формате Excel для печати, предназначенный для небольших подрядчиков.

Шаблон сметы строительных работ в формате Excel для печати, предназначенный для небольших подрядчиков.

Создайте в Excel распечатываемую смету строительных работ с учетом практических категорий затрат, формул, полей для пометок, параметров печати и контрольного списка, готового для подрядчика.

Печатный чек-лист планирования мероприятий и шаблон бюджета для Word

Печатный чек-лист планирования мероприятий и шаблон бюджета для Word

Используйте этот печатный чек-лист планирования мероприятий и шаблон бюджета в Word для отслеживания ответственных, сроков, затрат, поставщиков и готовности к мероприятию с четкими проверками качества.