Serge
Гуру
(3379)
13 лет назад
Организовать можно
Но понадобится дополнительный столбец, с функцией ЛЕВСИМВ ()
И считайте единицы (или что хотите) там
Если дополнительный столбец не устраивает, то несложно написать свою функцию (стандартными функциями это ИМХО не организуешь, хотя...) , заточенную под Вас
Например, такую (можно и покрасивше, первое, что на ум пришло) :
Function Qtt_Mask(R, a)
Qtt_Mask = 0
For Each x In R.Cells
If a = Left(x, 1) Then
Qtt_Mask = Qtt_Mask + 1
End If
Next
End Function
Код функции - в модуль книги
На листе, соответственно, пишите формулу: =Qtt_Mask(<диапазон>;<критерий>)
Диапазон - понятно
Критерий ("маска") - либо ссылка, либо указан прямо (в кавычках)
Я бы написал: =счётесли(A1:A5=1*)
И хотел бы, чтобы это значило, что программа считает ячейки с числами, которые начинаются с цифры "1", а после единицы могло бы быть что-угодно: пустота (если число однозначное) или другие цифры (если число двузначное, трехзначное и т.д.)
Но в Excel такое не работает. Но можно ли как-нибудь организовать работу, чтобы получить желаемый результат?