Как заменить пустые ячейки нулём в Excel

В некоторых анализах, пустые клетки могут привести к неприятностям. Они могут вызвать проблемы сортировки, вызвать ошибку при автоматическом заполнении, ошибки в сводных таблицах (применить функцию Count вместо функции Sum), и так далее. 

Этот макрос может заменить пустые ячейки нулем. Он перебирает все ячейки в заданном диапазоне, а затем использует функцию Len, чтобы проверить длину значений в активной ячейке. Пустые клетки имеют длину символа 0. Если длина действительно 0, макрокоманда вводит 0 в ячейке, эффективно делая замену.

1. Шаг 1 объявляет две переменные объекта Range. 

2. При выполнении макрос уничтожает стек отката. Это означает, что вы не сможете отменить изменения, поэтому нужно сохранить книгу перед запуском макроса. Это делает Шаг 2.

3. Шаг 3 заполняет переменную MyRange с целевым диапазоном. 

4. Шаг 4 начинает цикл через каждую ячейку в целевом диапазоне. После того, как клетка активируется.

5. Шаг 5 использует функцию IsEmpty, чтобы убедиться, что ячейка не пуста. Затем мы используем функцию Len, которая является стандартной функцией Excel и возвращает значение, соответствующее длине строки. Если ячейка пуста, то длина будет равна 0. Можно, очевидно, проставить в ячейку любое значение: «N/A», «пока не определено», «Нет данных», и т.д.). 

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

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.