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

s_i_d Пользователь Сообщений: 24 Регистрация: 05.02.2013	#1 19.05.2013 19:35:24 Как узнать сколько строк заполнено в 22 столбце, к примеру. Спасибо!

jakim Пользователь Сообщений: 2109 Регистрация: 01.03.2013	#2 19.05.2013 19:51:53 функция COUNTA СЧЁТЗ

Nic70y Пользователь Сообщений: 3289 Регистрация: 22.12.2012 Win7 MSO 2013	#3 19.05.2013 19:56:41 Примерно так: Прикрепленные файлы 22.xls (27 КБ)

s_i_d Пользователь Сообщений: 24 Регистрация: 05.02.2013	#4 19.05.2013 20:02:51 а можно код VBA, файл не открывается

Nic70y Пользователь Сообщений: 3289 Регистрация: 22.12.2012 Win7 MSO 2013	#5 19.05.2013 20:05:47 В файле формула =СЧЁТЗ(ДВССЫЛ(СИМВОЛ(B1+64)&":"&СИМВОЛ(B1+64))) где в B1 - 22

s_i_d Пользователь Сообщений: 24 Регистрация: 05.02.2013	#6 19.05.2013 20:14:16 Мне на VBA в макрос нужно, формула не пойдет

vikttur Пользователь Сообщений: 47172 Регистрация: 15.09.2012	#7 19.05.2013 20:15:50 Rng.Rows.Count Это если известен диапазон Rng Найти последнюю заполненную строку и отнять количество незаполненных сверху: lRws = .Cells(Rows.Count, "V" ) .End(xlUp).Row -5

s_i_d Пользователь Сообщений: 24 Регистрация: 05.02.2013	#8 19.05.2013 20:36:45 Спасибо

Михаил Пользователь Сообщений: 27 Регистрация: 01.01.1970	#9 01.04.2014 14:31:37 Вставил Вашу формулу в макрос он выдает ошибку на нее. Помогите

Юрий М

Модератор

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

Контакты см. в профиле

#10

01.04.2014 14:43:54

Цитата
Михаил пишет: Вставил Вашу формулу в макрос он выдает ошибку на нее

ЧЬЮ формулу?

Johny

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

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

#11

01.04.2014 14:49:45

Код
Sub CountCells() MsgBox Evaluate("COUNTA(V:V)") End Sub

There is no knowledge that is not power

Scripter

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

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

#12

01.04.2014 14:52:08

Цитата
s_i_d пишет: Как узнать сколько строк заполнено в 22 столбце

VBA:
кол-во не пустых
nNonBlank = WorksheetFunction.CountA(Columns(22))

последняя не пустая
nLastRow = ActiveSheet.Cells(Rows.Count, 22).End(xlUp).Row

Изменено: Scripter - 01.04.2014 22:26:58

olegator13god

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

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

#13

26.11.2015 14:52:07

Цитата
Nic70y написал: =СЧЁТЗ(ДВССЫЛ(СИМВОЛ(B1+64)&":"&СИМВОЛ(B1+64)))

а как сделать что бы он считал строки начиная со второй, что бы не указывать последнюю ячейку? Я сдел так СЧЁТЗ(А2:А10000), но хочется что бы не было ограничения вовсе.
я хочу счетчик этот в 1 строку столбца вставлять в котором и надо посчитать.

Изменено: olegator13god - 28.11.2015 12:17:40

vikttur Пользователь Сообщений: 47172 Регистрация: 15.09.2012	#14 28.11.2015 12:07:36 Вставить в соседний столбец - и нет проблемы. Но лучше использовать ограниченный диапазон, ведь будут просматриваться все ячейки диапазона, а это дополнительные вычисления. Вариант - использовть СЧЕТЕСЛИ. Функция сама определяет используемый диапазон: =СЧЕТЕСЛИ(A2:A5000;">0")

Читают тему