Всем привет! Вот только зарегился у Вас! Хотелось бы хоть какой-то подсказки от умелых людей! У меня есть таблица со значениями,в ней они автоматически обновляются,но для статистики я не знаю как вести подсчет чтобы было подсчитано количество пустых клеток в столбце между заполненными и каждое значение в новой строке. Возможно там надо несколько формул объединить,но этого пока не могу. Есть образец который прилагаю.
Всем привет! Вот только зарегился у Вас! Хотелось бы хоть какой-то подсказки от умелых людей! У меня есть таблица со значениями,в ней они автоматически обновляются,но для статистики я не знаю как вести подсчет чтобы было подсчитано количество пустых клеток в столбце между заполненными и каждое значение в новой строке. Возможно там надо несколько формул объединить,но этого пока не могу. Есть образец который прилагаю.Leonid9156
Спасибо за ответ Игор! B2:B8 вниз по каждому столбцу от B до G вниз. Столбцы от I до N это как образец они там посчитаны вручную,а хотелось что так выводились данные от B2:B8 и до G2:G8 автоматически.
Спасибо за ответ Игор! B2:B8 вниз по каждому столбцу от B до G вниз. Столбцы от I до N это как образец они там посчитаны вручную,а хотелось что так выводились данные от B2:B8 и до G2:G8 автоматически.Leonid9156
С наступающим новым годом, друзья! Спасибо тебе огромное все получилось! Все чётко! P.S. Как это все интересно,я просто образования программиста не имею, а математику полюбил будучи уже взрослым;)
С наступающим новым годом, друзья! Спасибо тебе огромное все получилось! Все чётко! P.S. Как это все интересно,я просто образования программиста не имею, а математику полюбил будучи уже взрослым;)Leonid9156
Сообщение отредактировал Leonid9156 - Пятница, 31.12.2021, 13:12
Блин, Leonid9156, меня Ваши нули в примере запутали - Вы показали, что где одна непустая ячейка результат ""; а где две подряд - "0"... А это оказывается некритично До кучи макросик: [vba]
Код
Sub qq() Dim c&, r&, r1&, s& Range("I2:N" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents For c = 2 To 7 For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row r1 = Cells(Rows.Count, c + 7).End(xlUp).Row + 1 If Cells(r, c).Value = "" Then s = s + 1 End If If Cells(r, c) <> "" And r > 2 Then Cells(r1, c + 7).Value = s s = 0 End If Next r Next c End Sub
[/vba] В дльнейшем постарайтесь желаемый результат конкретней объяснять - что где и в каком виде.
Блин, Leonid9156, меня Ваши нули в примере запутали - Вы показали, что где одна непустая ячейка результат ""; а где две подряд - "0"... А это оказывается некритично До кучи макросик: [vba]
Код
Sub qq() Dim c&, r&, r1&, s& Range("I2:N" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents For c = 2 To 7 For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row r1 = Cells(Rows.Count, c + 7).End(xlUp).Row + 1 If Cells(r, c).Value = "" Then s = s + 1 End If If Cells(r, c) <> "" And r > 2 Then Cells(r1, c + 7).Value = s s = 0 End If Next r Next c End Sub
[/vba] В дльнейшем постарайтесь желаемый результат конкретней объяснять - что где и в каком виде._Igor_61
Михаил, с Новым годом! У нас уже наступил! Всего Вам самого хорошего! По теме - с нулями непонятка, как и было.. Но это к ТС-у вопрос, на который он так и не ответил Leonid9156, с Новым годом! И чтобы все Ваши желания сбылись - постарайтесь изучить средства, которыми пользуетесь а не искать готовых ответов. Интернет отключить могут или телефон может потерять работоспособность А считать все равно придется Всего самого хорошего! Набирайтесь опыта у Медведя, его самокрутки многому могут научить!
Михаил, с Новым годом! У нас уже наступил! Всего Вам самого хорошего! По теме - с нулями непонятка, как и было.. Но это к ТС-у вопрос, на который он так и не ответил Leonid9156, с Новым годом! И чтобы все Ваши желания сбылись - постарайтесь изучить средства, которыми пользуетесь а не искать готовых ответов. Интернет отключить могут или телефон может потерять работоспособность А считать все равно придется Всего самого хорошего! Набирайтесь опыта у Медведя, его самокрутки многому могут научить! _Igor_61
Сообщение отредактировал _Igor_61 - Суббота, 01.01.2022, 17:48