Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Подсчет чередующихся значений
 
#1
27.06.2015 18:58:58
Приветствую.
В работе появилось необходимость подсчитать в большом диапазоне данных, серию чередующихся значение, т.е. когда значения идут так: 1-0-1-0-1-0-1-0-1.
В прилагаем шаблоне есть пример, но там просто в ручную выделено для наглядности.
Заранее спасибо за помощь.
 
 
 
#2
27.06.2015 19:06:15
Что делать с найденными - выделить цветом или написать в ст. С "1 серия" и т.д.?
 
 
 
#3
27.06.2015 19:15:08
Например
 
 
 
#4
27.06.2015 19:55:07
Цитата
Казанский написал: Что делать с найденными - выделить цветом или написать в ст. С "1 серия" и т.д.?
В идеале нужно узнать кол-во таких длинных серий: подойдет просто кол-во серий (например больше 4-х)
 
 
 
#5
27.06.2015 22:59:29
wotar, пробуйте UDF. Можно применять к целым столбцам, в данном случае =Wotar(E:E)
Код
Function Wotar(r As Range)
  With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "1(01){2,}"
    Wotar = .Execute(Join(WorksheetFunction.Transpose(Intersect(r.Columns(1), r.Worksheet.UsedRange).Value), "")).Count
  End With
End Function
 
 
 
#6
28.06.2015 13:54:35
К сожалению, УДФ для меня это как для колхозника нанотехнологии. Посмотрел пару инструкций по применению УДФ, однако так и не заработало ничего.
 
 
 
#7
28.06.2015 13:56:38
Вставьте код в общий модуль.
В ячейку листа:
=Wotar(здесь_указать_диапазон_данных)
 
 
 
#8
28.06.2015 14:10:15
Использовал способ предложенный vikttur.
Изменено: wotar - 28.06.2015 14:22:44
 
 
 
#9
28.06.2015 16:07:43
wotar, вот ваш файл с UDF
 
 
 
Страницы: 1
Наверх