Как найти пустую ячейку в excel макрос - Word и Excel - помощь в работе с программами

maverick

Пользователь

Сообщений: 20
Регистрация: 01.01.1970

Прошу помощи знающих.
Задача: имеем таблицу данных, которая постоянно пополняется (добавляются строки)
В таблице важным вяляется второй столбец; ячейки в нем заполнены в каждой строке.
Необходим макрос, который будет устанавливать табличный курсор в первую свободную (пустую) ячейку внизу этого столбца (т.е. фактически в следующую заполняему строку таблицы).

К сожалению, я пока «не очень» дружен с VBA =)
Пробовал воспользоваться простой записью макроса и примитивной последовательностью: поиск крайней заполненной ячейки с помощью Ctrl+PageDown и шаг вниз с помощью стрелки. Но попытка провалились, т.к. выбор крайней заполненной ячейки он понимает и записывает, как надо, а вот действия клавиатурных стрелок запоминаются не как «перемещение вниз (вверх, влево, вправо)», а как выбор какой-то конкретной ячейки с конкретным адресом.

Помогите, плз.

vlanib Пользователь Сообщений: 26 Регистрация: 01.01.1970	[В1].End(xlDown).Offset(1, 0).Value = «Последняя свободная ячейка столбца В»

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	В общем случае макрос может выглядеть так: Sub Макрос1() Dim iLastRow As Long iLastRow = Cells(Rows.Count,2).End(xlUp).Row cells(iLastRow+1,2).Select End Sub

maverick Пользователь Сообщений: 20 Регистрация: 01.01.1970	{quote}{login=vlanib}{date=13.05.2010 10:37}{thema=}{post}[В1].End(xlDown).Offset(1, 0).Value = «Последняя свободная ячейка столбца В»{/post}{/quote} уточнение: мне необходима первая, а не крайняя свободная ячейка. Можно как-то переделать?

maverick

Пользователь

Сообщений: 20
Регистрация: 01.01.1970

{quote}{login=Юрий М}{date=13.05.2010 10:41}{thema=}{post}В общем случае макрос может выглядеть так:
Sub Макрос1()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count,2).End(xlUp).Row
cells(iLastRow+1,2).Select
End Sub{/post}{/quote}

Спасибо огромное!
Я совершенно не понял как это работает, но это РАБОТАЕТ! =)))

Serge Пользователь Сообщений: 11308 Регистрация: 01.01.1970	А как переделать код: Sub Макрос1() Dim iLastRow As Long iLastRow = Cells(Rows.Count,2).End(xlUp).Row cells(iLastRow+1,2).Select End Sub , что бы искалась первая пустая ячейка в том столбце, в котором находится активная ячейка?

The_Prist Пользователь Сообщений: 14182 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	Sub Макрос1() Dim iLastRow As Long iLastRow = Cells(Rows.Count,activeCell.Column).End(xlUp).Row cells(iLastRow+1,activeCell.Column).Select End Sub Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Serge Пользователь Сообщений: 11308 Регистрация: 01.01.1970	Спасибо! Один вопрос. Если в столбце нет заполненых ячеек, то находится ячейка во второй строке… Почему и как сделать правильно (в первой)?

maverick

Пользователь

Сообщений: 20
Регистрация: 01.01.1970

тут же возник попутный вопрос:
в указаном столбце постоянно добавляются значения; это числа (что-то типа порядкового номера строки).
Как в тоу самую первую пустую ячейку подставить максимальное число этого столбца? А если быть точнее — «максимальное плюс один»

The_Prist Пользователь Сообщений: 14182 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	Sub Макрос1() Dim iLastRow As Long iLastRow = Cells(Rows.Count,activeCell.Column).End(xlUp).Row if iLastRow > 1 then iLastRow = iLastRow + 1 cells(iLastRow,activeCell.Column).Select End Sub Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Serge Пользователь Сообщений: 11308 Регистрация: 01.01.1970

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

{quote}{login=maverick}{date=13.05.2010 11:16}{thema=}{post}тут же возник попутный вопрос:
в указаном столбце постоянно добавляются значения; это числа (что-то типа порядкового номера строки).
Как в тоу самую первую пустую ячейку подставить максимальное число этого столбца? А если быть точнее — «максимальное плюс один»{/post}{/quote}Максимальное и порядковый номер это разные вещи. Если нужно просто следующий порядковый номер в первую пустую ячейку внести:

Sub Макрос1()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count,1).End(xlUp).Row
cells(iLastRow+1,1).Value =cells(iLastRow,1)+1
End Sub

Если максимальное+1
Sub Макрос1()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count,1).End(xlUp).Row
cells(iLastRow+1,1).Value =application.Max(Range(«A1:A» & iLastRow))+1
End Sub

Все применено к первому столбцу

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

	Спасибо! =) кой-чего подправил и всё работает =)))

А как можно такое провернуть:
Номера строк у меня добавляются автоматом. При этом так же автоматически создаётся копия листа-шаблона.
Надо теперь присвоить имя новому (только что созданому) листу, равное новому номеру строки.
Возможно ли такое?

The_Prist Пользователь Сообщений: 14182 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	Какое отношение вопрос имеет к данной теме? Создавайте тему по правилам и получите ответ. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

	А как прописать, что бы просматривался только диапазон P4:P16 , т.к. после этого идут дальше заполненные ячейки. Dim iLastRow As Long iLastRow = Cells(Rows.Count, 16).End(xlUp).Row Cells(iLastRow + 1, 16).Select

The_Prist Пользователь Сообщений: 14182 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	Range(«P16»).End(xlUp).Select Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

{quote}{login=The_Prist}{date=13.05.2010 11:16}{thema=}{post}Sub Макрос1()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count,activeCell.Column).End(xlUp).Row
if iLastRow > 1 then iLastRow = iLastRow + 1
cells(iLastRow,activeCell.Column).Select
End Sub{/post}{/quote}А так:
Sub www()
Columns(ActiveCell.Column).SpecialCells(4)(1).Select
End Sub
?

Я сам — дурнее всякого примера! …

{quote}{login=The_Prist}{date=24.12.2011 01:20}{thema=}{post}Range(«P16»).End(xlUp).Select{/post}{/quote}

Dim iLastRow As Long
iLastRow = Range(«P16»).End(xlUp).Select
Cells(iLastRow + 1, 16).Select

Переносит на ячейку Р2, а необходимо с верху вниз с Р4 до Р16 в зависимости от заполнения ячеек. Т.к. ячейка Р19 и ниже содержит данные.
Спасибо.

Hugo

Пользователь

Сообщений: 23253
Регистрация: 22.12.2012

Вот это
iLastRow = Range(«P16»).End(xlUp).Select
откуда взяли?

Можно так:
Sub tt()
Dim iLastRow As Long
iLastRow = Range(«P16»).End(xlUp).Row
Cells(iLastRow + 1, 16).Select
End Sub

Это от P16 идём вверх.
Можно наоборот, от P3 идём вниз по пустым:

Sub tt()
Range(«P3:P16»).SpecialCells(xlCellTypeBlanks).Cells(1) = «Пишем_сюда»
End Sub

Hugo Пользователь Сообщений: 23253 Регистрация: 22.12.2012	Вернее так, с обработкой ошибки, когда всё будет заполнено: Sub tt() On Error Resume Next Err.Clear Range(«P4:P15»).SpecialCells(xlCellTypeBlanks).Cells(1) = «Пишем_сюда» If Err <> 0 Then MsgBox «Всё заполнено!!!» Err.Clear End Sub

{quote}{login=Hugo}{date=25.12.2011 01:58}{thema=}{post}Вернее так, с обработкой ошибки, когда всё будет заполнено:

Sub tt()
On Error Resume Next
Err.Clear
Range(«P4:P15»).SpecialCells(xlCellTypeBlanks).Cells(1) = «Пишем_сюда»
If Err <> 0 Then MsgBox «Всё заполнено!!!»
Err.Clear
End Sub{/post}{/quote}

Спасибо. Но нужно чтобы он выделял ячейки с Р4 до Р16, а в этом макросе он вставляет в свободную ячейку надпись Всё заполнено!!!. Т.к. данные в эти ячейка вставляются тоже через макрос а не в ручную.
Спасибо.

{quote}{login=}{date=25.12.2011 02:06}{thema=Re: }{post}{quote}{login=Hugo}{date=25.12.2011 01:58}{thema=}{post}Вернее так, с обработкой ошибки, когда всё будет заполнено:

Попробую так:

Sub tt()
On Error Resume Next
Err.Clear
Range(«P4:P15»).SpecialCells(xlCellTypeBlanks).Cells(1).Select
If Err <> 0 Then MsgBox «Всё заполнено!!!»
Err.Clear
End Sub

{quote}{login=}{date=25.12.2011 02:12}{thema=Re: Re: }{post}{quote}{login=}{date=25.12.2011 02:06}{thema=Re: }{post}{quote}{login=Hugo}{date=25.12.2011 01:58}{thema=}{post}Вернее так, с обработкой ошибки, когда всё будет заполнено:

Попробую так:

Sub tt()
On Error Resume Next
Err.Clear
Range(«P4:P15»).SpecialCells(xlCellTypeBlanks).Cells(1).Select
If Err <> 0 Then MsgBox «Всё заполнено!!!»
Err.Clear
End Sub{/post}{/quote}

Опа. Заработало. Спасибо всем!!!

	Убрал лишнее и оставил только это: Range(«P4:P16»).SpecialCells(xlCellTypeBlanks).Cells(1).Select

Hugo Пользователь Сообщений: 23253 Регистрация: 22.12.2012	On Error Resume Next всёж оставьте

Станислав Пользователь Сообщений: 120 Регистрация: 11.10.2010	{quote}{login=Hugo}{date=25.12.2011 02:29}{thema=}{post}On Error Resume Next всёж оставьте :){/post}{/quote} Спасибо.

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

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

floove, Вы демонстрируете недюжинную сообразительность. Тема называется «Поиск первой свободной ячейки в стообце». Все ответы посвящены этому. И тут появляетесь Вы и задаете вопрос: «А как найти первую свободную ячейку в столбце?». Браво!

Я сам — дурнее всякого примера! …

Hugo Пользователь Сообщений: 23253 Регистрация: 22.12.2012	#30 28.12.2011 01:39:16 Сергей, мне кажется, что ты ошибаешься — тут нужен цикл по занятым до первой свободной.

Источник

0 / 0 / 0

Регистрация: 03.01.2014

Сообщений: 53

Поиск первой пустой ячейки в столбце А

17.02.2019, 14:46. Показов 13942. Ответов 6

Помогите, пожалуйста, новичку. Есть таблица, в которую постоянно вручную добавляются заполненные строки (от 1 до 10000), как макросом найти первую пустую ячейку столбца А, чтобы сделать вручную очередную вставку строк ?

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

17.02.2019, 14:57

прокрути страницу вниз. Там сайт (для ленивых не желающих пользоваться поиском) подбирает сообщения
Там есть ответ на вопрос

0 / 0 / 0

Регистрация: 03.01.2014

Сообщений: 53

17.02.2019, 15:08

[ТС]

Спасибо за быстрый ответ, но перед созданием темы я все пересмотрел, я не нашел ответ на свой вопрос, может Вы мне поможете. Если код нужно как-то изменить, то самостоятельно я не смогу это сделать, поэтому и обратился к профессионалам в надежде на помощь. Спасибо.

Vlad999

3827 / 2254 / 751

Регистрация: 02.11.2012

Сообщений: 5,930

18.02.2019, 09:32

Visual Basic

Dim lLastRow As Long
Dim lLastCol As Long
lLastRow = Cells(Rows.Count,1).End(xlUp).Row 'последняя строка по 1 столбцу
lLastCol = Cells(1, Columns.Count).End(xlToLeft).Column 'последний столбец по 1 строке
 
если есть скрытые строчки
lRow = Activesheet.usedrange.row + Activesheet.usedrange.rows.count - 1

Alex77755

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

19.02.2019, 00:47

несколько вариантов

Visual Basic

lLastRow = Cells(Rows.Count,1).End(xlUp).Row
lLastRow = Cells.SpecialCells(xlLastCell).Row
lLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
LastRow = Worksheets(1).Cells(1, 1).CurrentRegion.Rows.Count
 
LastColumn = Worksheets(1).Cells(1, 1).CurrentRegion.Columns.Count
lLastCol = Cells(1, Columns.Count).End(xlToLeft).Column
lLastCol = Cells.SpecialCells(xlLastCell).Column
lLastCol = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1

0 / 0 / 0

Регистрация: 03.01.2014

Сообщений: 53

19.02.2019, 21:51

[ТС]

Спасибо огромное !

tmash

35 / 30 / 6

Регистрация: 21.08.2015

Сообщений: 121

20.02.2019, 22:31

Привет!

Visual Basic

Public Function Столбец_Ячейка_Пустая(ByVal r As Range) _
        As Range
 
    Set Столбец_Ячейка_Пустая = r.SpecialCells(xlCellTypeBlanks)(1)
 
End Function

Источник

На чтение 4 мин. Просмотров 11k.

Что делает макрос: Вы часто можете столкнуться с необходимостью добавить строки или столбцы к существующему набору данных. Этот макрос позволяет автоматически найти и выбрать первую пустую строку или столбец. Он предназначен для использования в сочетании с другими макрокомандами.

Содержание

Как макрос работает
Код макроса
Как этот код работает
Код макроса
Как этот код работает
Как использовать

Как макрос работает

Эти макросы используют элемент Cells и свойство Offset в качестве ключевых инструментов навигации.
Элемент Cells принадлежит объекту Range. Это дает нам чрезвычайно удобный способ выбора диапазонов с помощью кода. Для этого требуется только относительные строки и столбцы в качестве параметров. Cells(5,4) приводит к строке 5, столбцу 4 (или ячейке D5). Cells(16, 4) приводит к строке 16, столбцу 4 (или ячейке D16).
Помимо передачи жестких чисел в элемент Cells, вы также можете передавать выражения.
Cells(Rows.Count, 1) то же самое, что выбрать последнюю строку и первый столбец в таблице. В Excel 2010 переводит к ячейке A1048576.
Cells(1,Columns.Count) выбирает первую строку и последний столбец в таблице. В Excel 2010 приводит к ячейке XFD1.
Объединение оператора Cells со свойством End позволяет перейти к последней использованной строке или столбцу. Это утверждение эквивалентно переходит к ячейке A1048576 и нажав Ctrl + Shift + стрелка вверх на клавиатуре. Excel автоматически переходит к последней использованной строки в столбце A.

Cells(Rows.Count, 1).End(xlUp).Select

Переходит к ячейке XFD1 и нажав Ctrl + Shift + стрелка влево на клавиатуре. Это переводит вас к последней использованной колонке в строке 1.

Cells(1, Columns.Count).End(xlToLeft).Select

Когда вы дойдете до последней строки или столбца, вы сможете использовать свойство Offset для перемещения вниз или к следующей пустой строке или столбцу.
Свойство Offset использует индекс строки и столбца, чтобы указать изменяющуюся базовую точку.Например, оператор выбирает ячейку А2, так как индекс строки в Offset перемещения строки базовой точки на единицу:

Range("A1").Offset(1, 0).Select

Этот оператор выбирает ячейку С4, и перемещает базовую точку на три строки и два столбца:

Range("A1").Offset(3, 2).Select

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

Код макроса

Sub PervayaPustayaStroka()
'Шаг 1: Объявляем переменные
Dim LastRow As Long
'Шаг 2: Захват последнего использованного номера строки
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
'Шаг 3: Выбираем следующую строку вниз
Cells(LastRow, 1).Offset(1, 0).Select
End Sub

Как этот код работает

Шаг 1 первый объявляет переменную Long Integer под названием LastRow — держатель номера строки последней использованной строки.
На шаге 2 мы фиксируем последнюю использованную строку, начиная с самой последней строки в листе и используя свойство End, чтобы перейти к первой непустой ячейке (переход к ячейке A1048576 нажатием Ctrl + Shift + стрелка вверх на клавиатуре).
На этом этапе мы используем свойство Offset для перемещения на одну строку вниз и выбираем первую пустую ячейку в столбце A.

Код макроса

Sub PerviiPustoiStolbec()
'Шаг 1: Объявляем переменные
Dim LastColumn As Long
'Шаг 2: захват последнего использованного номера столбца
LastColumn = Cells(5, Columns.Count).End(xlToLeft).Column
'шаг 3: выбираем следующий пустой столбец
Cells(5, LastColumn).Offset(0, 1).Select
End Sub

Как этот код работает

Сначала мы объявляем переменную Long Integer под названием LastColumn — держатель номера столбца последнего используемого столбца.
На шаге 2 мы фиксируем последний используемый столбец, начиная с самого последнего столбца в листе и используя свойство End, чтобы перейти к первой непустой колонке
(эквивалент перейти к ячейке XFD5, нажав Ctrl + Shift + стрелка влево на клавиатуре).
На этом этапе мы используем свойство Offset для перемещения на одну колонку и выбираем первый пустой столбец в строке 5.

Как использовать

Вы можете реализовать эти макросы, вставив их в стандартный модуль:

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

Источник

Be it for troubleshooting formula errors or data integrity, you might find yourself trying to identify those cells going through the entire workbook. In this article we’re going to show to find in Excel if cell is blank using VBA and automate this process.

How to find in Excel if cell is blank using VBA

VBA has some predefined types for the cells that contains special values. These can be accessed with the SpecialCells method. The SpecialCells method uses two arguments to specify the cells; Type and Value. Using a combination of these two arguments you can easily access the cell or range type you desired. Below is a list of values both arguments can get.

Type

xlCellTypeAllFormatConditions. Cells of any format
xlCellTypeAllValidation. Cells having validation criteria
xlCellTypeBlanks. Empty cells
xlCellTypeComments. Cells containing comments
xlCellTypeConstants. Cells containing constants
xlCellTypeFormulas. Cells containing formulas
xlCellTypeLastCell. The last cell in the selected range. Note that this will include empty cells that have had any cells that changed from their default format.
xlCellTypeSameFormatConditions. Cells having the same format
xlCellTypeSameValidation. Cells having the same validation criteria
xlCellTypeVisible. All visible cells

Value

xlErrors
xlLogical
xlNumbers
xlTextValues

To find the blank cells using VBA, using xlCellTypeBlanks constant for the type argument is enough. The value argument can be omitted.

An important point in here is that the Selection.SpecialCells(xlCellTypeBlanks).Cells returns an array of cells. So, before returning any information, we need to step through each cell in the array. A For Each…Loop is perfect for arrays consisting of objects. We designed our code to return the address of all blank cells in a Message Box.

To be able to run codes, you need to add a module into the workbook or the add-in file. Copy and paste the code into the module to run it. The main advantage of the module method is that it allows saving the code in the file, so that it can be used again later. Furthermore, the subroutines in modules can be used by icons in the menu ribbons or keyboard shortcuts. Remember to save your file in either XLSM or XLAM format to save your VBA code.

Find blank cells

Sub FindBlankCells()

    Dim rng As Range, message As String

    For Each rng In Selection.SpecialCells(xlCellTypeBlanks).Cells

        message = message & Chr(10) & rng.Address 'Chr(10) is for new line

    Next

    MsgBox message, vbOKOnly, "Empty Cells" 'vbOKOnly is the type of the message box

End Sub

Источник

Содержание

Макрос определяющий пустая ли ячейка или заполненная в VBA Excel
Алгоритм для строго определенной ячейки с применением её адреса.
Алгоритм для выделенной (активной) ячейки :
Еще один способ определения в примере для активной ячейки, но можно использовать и для конкретной ячейки с адресом.
Добавить комментарий Отменить ответ
Как определить — пустая ячейка, или в ней содержатся данные
Как определить, пустая ячейка или нет (способы)
Процедуры VBA
Код для конкретной ячейки
Код для активной ячейки
Функция ЕПУСТО для проверки пустых ячеек
Примеры использования функции ЕПУСТО
Почему следует использовать функцию ЕПУСТО при проверке пустых ячеек?
Пример проверки на пустую ячейку
Как подсчитать количество пустых ячеек в Эксель
Особенности применения функции ЕПУСТО в Excel
Выводы

Макрос определяющий пустая ли ячейка или заполненная в VBA Excel

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

Далее приведем несколько простых макросов для определения заполнения ячейки данными и разберем принцип их работы. Фрагменты этих макросов вы можете добывать в свой код для реализации проверки заполнения ячеек.

Рассмотрим несколько вариантов VBA алгоритмов:

Алгоритм для строго определенной ячейки с применением её адреса.

Пример для ячейки с адресом B6:

Private Sub CommandButton1_Click() ‘наименование алгоритма
If IsEmpty(Range(«B6»)) = True Then ‘условие, если ячейка пустая, то
MsgBox («В ячейке нет данных») ‘вывод сообщения, что в ячейке нет данных
Else ‘в противном случае
MsgBox («Данные внесены в ячейку») ‘вывод сообщения, что в ячейке есть данные
End If ‘конец блока «если»
End Sub ‘конец алгоритма

Алгоритм для выделенной (активной) ячейки :

Private Sub CommandButton1_Click() ‘наименование алгоритма
If IsEmpty(ActiveCell) = True Then ‘условие, если активная ячейка (ActiveCell) пустая, то
MsgBox («В ячейке нет данных») ‘вывод сообщения, что в ячейке нет данных
Else ‘в противном случае
MsgBox («Данные внесены в ячейку») ‘вывод сообщения, что в ячейке есть данные
End If ‘конец блока «если»
End Sub ‘конец алгоритма

Еще один способ определения в примере для активной ячейки, но можно использовать и для конкретной ячейки с адресом.

Private Sub CommandButton1_Click() ‘наименование алгоритма
If Len(ActiveCell) Then ‘если активная ячейка заполнена данными (имеет объем информации)
MsgBox («Данные внесены в ячейку») ‘вывод сообщения, что в ячейке есть данные
Else ‘в противном случае
MsgBox («Ячейка пустая») ‘вывод сообщения, что в ячейке нет данных
End If ‘конец блока «если»
End Sub ‘конец алгоритма

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

Этот сайт использует Akismet для борьбы со спамом. Узнайте, как обрабатываются ваши данные комментариев.

Источник

Как определить — пустая ячейка, или в ней содержатся данные

Если пользователь использует таблицу Excel с небольшим количеством данных, то проблем с не возникает с поиском пустых ячеек. Но когда информации очень много, хорошо было бы автоматизировать этот процесс. Ведь вручную просматривать тысячи ячеек занимает очень много времени, которое можно было бы использовать для других рабочих задач или отдыха. Особенно это важно при работе с документами, где большая часть данных – числовые. Там и без того важно не запутаться.

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

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

Как определить, пустая ячейка или нет (способы)

Это можно сделать с помощью функции ЕПУСТО , которая может использоваться для данных самых разных типов, включая не только числа и текст, но даже логические функции. Давайте более подробно рассмотрим особенности работы с этой формулой.

Эта функция имеет очень простую схему использования. Если в конкретной ячейке нет никакой информации, то возвращается ИСТИНА . Если же в ней содержится определенная информация, то, соответственно, значение оказывается ЛОЖЬ.

Есть и другие способы определения, есть ли информация во всех ячейках определенного диапазона или в конкретной ячейке. Также в некоторых ситуациях разумно применять обычную функцию ЕСЛИ , знакомую почти каждому активному пользователю. Давайте разберем также и правила их использования.

Процедуры VBA

VBA – это язык программирования, который используется для написания макросов. Это маленькие исполняемые модули, которые выполняют определенную последовательность действий, в том числе, и осуществляют проверку, есть ли внутри ячейки какая-то информация, или нет.

Код для конкретной ячейки

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

Sub example()

If IsEmpty(Range(«A1»)) = True Then

MsgBox «Ячейка пустая»

Else

MsgBox «Ячейка не пустая»

End If

End Sub

Этот фрагмент кода проверяет ячейку А1 на предмет того, содержатся ли в ней какие-то данные. И результат выводит в соответствующее окошко.

Код для активной ячейки

Если перед нами стоит задача написать макрос, который проводит анализ выделенной ячейки на предмет содержания в ней какой-то информации, то нужно использовать такой фрагмент кода.

Sub example()

If IsEmpty(ActiveCell) = True Then

MsgBox «Ячейка пустая»

Else

MsgBox «Ячейка не пустая»

End If

End Sub

Функция ЕПУСТО для проверки пустых ячеек

Как мы уже поняли, функция ЕПУСТО дает возможность определить, пустая ли определенная ячейка. Давайте разберем некоторые практические аспекты использования этой функции.

Примеры использования функции ЕПУСТО

Давайте опишем некоторые способы применения функции ЕПУСТО на практике. Допустим, вы работаете преподавателем и у вас открыта таблица с оценками учеников по последнему тесту. При этом некоторые из баллов не записаны, поскольку ряд студентов плохо сдали его и пошли на пересдачу. И допустим, перед нами стоит задача написать в третьей колонке список тех, кто сдал экзамен с первого раза.

Чтобы реализовать поставленные задачи, нам нужно ввести следующую формулу после выделения диапазона C3:C18.

Если пользователь хоть немного понимает, как устроена работа с формулами, то он, основываясь на синтаксисе приведенной выше строки, поймет, что если в ячейке есть балл, то в ячейку будет записано «Сдал». Если же оценки нет, то появится результат «На пересдачу».

После того, как мы введем эту формулу, результат будет следующим:

Далее давайте попробуем сделать особое форматирование в зависимости от того, есть ли оценка у человека или нет. Для этого нужно найти параметр «Стили» на вкладке «Главная». Там находится пункт «Условное форматирование». После того, как мы его выберем, нужно нажать кнопку «Создать правило».

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

После этого нам нужно нажать на кнопку «Формат» и выбрать красный цвет фона. Действия подтверждаются путем нажатия кнопки «ОК». Теперь у нас все ячейки с надписью «На пересдачу» выделяются красным цветом.

Почему следует использовать функцию ЕПУСТО при проверке пустых ячеек?

Тот человек, который уже немного разбирается в Excel, может задать вопрос: почему нельзя использовать банальную функцию ЕСЛИ для этой цели? Да, можно. Достаточно просто записать такую формулу:

Видим, что мы здесь использовали кавычки для определения ячеек без никаких значений. И в описанном выше случае эта формула также бы работала. Но не во всех случаях это возможно. Если содержатся определенные типы значений, этот трюк работать не будет. Давайте обратим внимание на этот скриншот.

Видим, что в первой ячейке содержится знак ‘. Этот символ не отображается в листе, и он также не может быть обнаружен функцией ЕСЛИ . Все потому, что это специальный символ Excel, который необходим для того, чтобы показывать текстовую информацию, если ячейка находится в числовом формате, например. Это часто используется, если необходимо в ячейку вставить плюс. Если не использовать одинарную кавычку, программа будет думать, что это мы собираемся вводить формулу. В этом основное отличие.

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

Пример проверки на пустую ячейку

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

Чтобы понять, есть ли пустые ячейки, нужно использовать именно формулу массива. Ее основное отличие в том, что она работает одновременно с большим количеством данных. Чтобы сделать формулу массива, нужно нажать комбинацию Ctrl + Shift + Enter после того, как формула будет введена в соответствующую строку.

В примере, которое описывается нами сейчас, функция СУММ применяется с целью определения количества всех значений, которые возвращаются функцией ЕПУСТО . Если же после вычисления по этой формуле окажется значение, превышающее ноль, то вернется значение «Истина».

Как следствие, мы получим следующую таблицу.

Видим, что в рассматриваемом примере есть те ячейки, не содержащие никаких значений.

Внимание. Были использованы символы «–-» в формуле, приводимой выше. На это надо обратить особое внимание. Эти символы означают двойное отрицание. В нашем примере его нужно использовать, чтобы превратить логический тип данных в числовой.

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

Но практика показывает, что наиболее удобно использовать двойной минус. Это не только более удобно на этапе набора, но еще и ускоряет работу таблицы. Причем прирост производительности может достигать 15 процентов, что очень много, когда имеется большое количество функций.

Как подсчитать количество пустых ячеек в Эксель

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

Сама таблица выглядит так.

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

Функция ЕСЛИ дает возможность осуществить проверку набора ячеек на предмет того, есть ли среди них пустые значения (для этого используется функция —ЕПУСТО с соответствующими аргументами). Если в итоге суммирования было возвращено положительное значение, то будет показан текст, в котором записано, сколько ячеек без значения. Для этого используется функция СЧИТАТЬПУСТОТЫ . А с помощью знака & мы соединяем несколько значений.

Получается такой документ.

При этом нужно помнить про все особенности и ограничения применения функции ЕСЛИ, описанные выше.

Особенности применения функции ЕПУСТО в Excel

Есть несколько типов функций, и ЕПУСТО принадлежит к категории логических. Простыми словами, она проверяет какое-то выражение на предмет соответствия определенному критерию. Таких функций насчитывается еще огромное количество, и это не только указанная выше ЕСЛИ . Также к таким функциям относятся такие операторы, как ЕССЫЛКА, ЕЧИСЛО и так далее. Все они возвращают одно из двух возможных значений: истинное или ложное.

Если записать функцию, ее синтаксис будет следующим.

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

Есть ряд особенностей, которые берутся в учет, когда пользователь собирается работать с этой функцией:

Нельзя указывать конкретное значение, как параметр, поскольку тогда будет автоматически возвращено значение «ЛОЖЬ». Все дело в том, что такое значение априори не может содержат никаких значений.
Если перед нами стоит задача сделать так, чтобы было возвращена «ИСТИНА» в случае заполненности ячейки любой информацией, то нужно использовать сразу две функции: НЕ и ЕПУСТО . Тогда сначала нужно использовать первую, а потом вторую в качестве аргумента.
Использование функции АДРЕС , как параметр функции ЕПУСТО . бесполезно. Тогда всегда будет возвращаться результат, что критерию значение не соответствует. Все потому, что функцией АДРЕС осуществляется возвращение ссылки, которая сама по себе уже является разновидностью информации даже в том случае, если в ячейке, на которую она ссылается, нет никаких данных.
Значение «ЛОЖЬ» будет в качестве итога даже в той ситуации, когда есть ошибка. Все потому, что какая-то информация содержится в ней в любом случае, пусть даже неверная. А если речь идет об информации про ошибку, то это еще и полезная информация. А ссылка уже может считаться полноценным типом данных.
Очень часто пользователи забывают о формуле массива, чтобы осуществить проверку сразу большого количества ячеек. Иначе значение, возвращаемое функцией, будет неправильным.

Выводы

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

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

Источник