Количество уникальных значений после фильтрации

liny1 Пользователь Сообщений: 93 Регистрация: 15.01.2015	#1 07.03.2015 11:58:37 Привет, Фильтр уникальных значений в поле. Есть ли альтернатива формуле в ячейке F1? Прикрепленные файлы Lin123.xlsx (9.68 КБ)

Казанский

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

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

07.03.2015 23:55:30

Можно на VBA написать

Код

Function liny1(r As Range)
Application.Volatile
On Error Resume Next
With New Collection
  For Each r In r.Cells
    If Not IsEmpty(r.Value) Then
      If Not r.EntireRow.Hidden Then .Add Empty, CStr(r.Value)
    End If
  Next
  liny1 = .Count
End With
End Function

Прикрепленные файлы

Lin123.xls (44 КБ)

The_Prist Пользователь Сообщений: 14896 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#3 08.03.2015 14:27:43 А чем собственно функция в F1 не устроила? Вроде верно все считает. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...