Счет количества непустых строк таблицы

[ZaS2jah0]

Требуется подсчитать количество непустых строк в таблице. Количество непустых ячеек в одной строке является величиной непостоянной.
Подскажите, как сделать?

[Serge 007]

Функцией СЧЁТЗ()

[ZaS2jah0]

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

[IKor]

Идёт подсказка:
Если известно общее количество ячеек и количество непустых ячеек =СЧЁТЗ(), то найти количество пустых ячеек можно при помощи простой арифметики...

[Шпец Докапыч]

Подскажите, как сделать?

Можно использовать дополнительный столбец с предложенной функцией. Например:
D1: =1*(СЧЁТЗ(A1:C1)>0)

Сумма по столбцу и будет искомым значением.

[ZaS2jah0]

=1*(COUNTA(B2:N2)>0)

Именно так получилось. Благодарю за помощь!

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

[ZaS2jah0]

Идёт подсказка:
Если известно общее количество ячеек и количество непустых ячеек =СЧЁТЗ(), то найти количество пустых ячеек можно при помощи простой арифметики...

повторюсь - мне нужно кол-во строк с не пустыми ячейками, а не кол-во пустых ячеек просто...

Впрочем, решение уже найдено...

[ZaS2jah0]

Подскажите еще - как мне вывести в ячейку Excel запись такого вида:
10 х 12000

где 10 и 12000 - значения ячеек.

Пробовал типа:
=O21+'x'+A1
но Excel не хочет понимать такую запись.

[Шпец Докапыч]

3. =O21&"x"&A1 или функцией СЦЕПИТЬ()
2. ПКМ по заголовку столбца → Скрыть. Подробнее в Гугле.
1. Компактнее что-то не приходит на ум, напрашивается пользовательская функция.

[ZaS2jah0]

И еще. Вот нашел такое на VBA:

Sub test()
   Dim i As Long, x As Long
   For i = 1 To Selection.Rows.Count
       If Application.CountA(Selection.Rows(i)) Then x = x + 1
   Next i
   MsgBox x
End Sub

Это возвращаясь к вопросу о подсчете не пустых строк таблицы. В VBA не силен, поэтому подскажите, как сделать, чтобы этот код записывал результирующее значение в ячейку, а не выдавал MessageBox?

И рабочий ли он?

[Шпец Докапыч]

Преобразовал код в пользовательскую функцию:

Код Выделить Развернуть

Function СЧСТРОК(rng As Range) As Long
   Dim i As Long, x As Long
   For i = 1 To rng.Rows.Count
       If Application.CountA(rng.Rows(i)) Then x = x + 1
   Next i
   СЧСТРОК = x
End Function
(Код нужно разместить в модуле: Alt+F11 → Insert → Module)

Затем в ячейку записываем формулу:
=СЧСТРОК(1:99)

[ZaS2jah0]

БОЛЬШОЕ СПАСИБО!