Подсчитайте значения для строки, если строки скрыты

Я хочу, чтобы подсчитать, где:Подсчитайте значения для строки, если строки скрыты

столбец А содержит «а»
строки, содержащие «а» скрыты.

Например:

Если строки 2 & 5 (содержащие "а") скрыты вывод должен быть 2 (за исключением видимого "а" в строке 3).

enter image description here

2013-10-11 Santosh

возможного дубликата [Как только подсчета видимых строк при использовании функции COUNTIFS?] (Http://stackoverflow.com/questions/14323194/ how-do-i-only-count-visible-rows-when-use-the-countifs-function) –

@mehow Я хочу подсчитать строки, которые не видны. – Santosh

Не могли бы вы убедиться, что это только видимый объект, который вы хотите подсчитать, или скрытые строки, которые вы хотите подсчитать? Поскольку 'ColA' также содержит' A', и обе ситуации заканчиваются на '2'. – CustomX

Использование здоровой части от here

=COUNTIF(A1:A5,"a")-SUMPRODUCT(--($A$1:$A$5="a"),SUBTOTAL(103,OFFSET(A1,ROW($A$1:$A$5)-ROW(A1),0)))

источник

2013-10-12 02:59:15 brettdj

+ 1 Для решения без VBA :) –

@brettdj Работал как шарм. Большое спасибо. – Santosh

Самый простой способ:

1) Добавить вспомогательный столбец

=SUBTOTAL(103, A2) рядом колонке А, для A3, она становится (103, А3) и так далее

2) Затем используйте

=COUNTIFS(A2:A5,"a",B2:B5,"=0")

источник

2013-10-11 07:21:58 sam092

В VBA У меня есть пользовательская функция следующим образом:

Public Function IsCellHidden(vRange As Range) As Boolean 
    'Check if a cell is hidden 

    Dim vHidden As Boolean 

    If vRange.Rows(1).Hidden Or vRange.Columns(1).Hidden Then vHidden = True 

    IsCellHidden = vHidden 
End Function

Тогда я положил это в колонке В на соответствующей ячейке в колонке А, так В1 бы, например, быть =IsCellHidden(A1), а затем в C6 я бы =COUNTIFS(A1:A10,"A",B1:B10,TRUE)

источник

2013-10-11 07:50:18 neelsg

Это будет считать только скрытые строки.

Sub SumInvisible() 

    For i = 1 To 10 
     If Range("A" & i).EntireRow.Hidden = True Then 
      If Range("A" & i).value = "a" then 
       Var = Var + 1 
      End if 
     End If 
    Next i 

    Range("B" & i).Value = Var 

End Sub

источник

2013-10-11 07:55:58 CustomX

Это идеальное, но его последнее оружие. – Santosh

Подсчитайте значения для строки, если строки скрыты

ответ

Смежные вопросы