Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Количество уникальных значений после фильтрации
 
Привет,
Фильтр уникальных значений в поле.
Есть ли альтернатива формуле в ячейке F1?
 
Можно на 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
 
А чем собственно функция в F1 не устроила? Вроде верно все считает.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Читают тему (гостей: 1)