счёт кол-ва ячеек по критерию в другой колонке

[Море]

Здравствуйте! меня не назовешь программистом, но для себя на работе пишу формулы эксель. Задача, которую не могу решить больше полугода: счёт кол-ва ячеек по критерию в другой колонке. Т.е. в столбце 2 объединены позиции по несколько строк, а в столбце 3,4 - не объединены. в столбце 4, например "закупка" или "продажа" и нужно посчитать сколько позиций столбца А если закупка, и сколько если продажа. пример вложен

[svsh2016]

добрый день,вариант макроса,кнопки test и очистка

Sub test()
   Dim z, i&
   z = Range("B7:D" & Range("D" & Rows.Count).End(xlUp).Row).Value
 With CreateObject("scripting.dictionary")
  For i = 1 To UBound(z)
     If Not IsEmpty(z(i, 1)) Then .Item(z(i, 3)) = .Item(z(i, 3)) + 1
  Next
    Cells(7, 8).Resize(.Count, 2).Value = Application.Transpose(Array(.keys, .items))
    .RemoveAll
  For i = 1 To UBound(z)
     If Not IsEmpty(z(i, 2)) Then .Item(z(i, 3)) = .Item(z(i, 3)) + 1
   Next
  Cells(7, 10).Resize(.Count, 1).Value = Application.Transpose(.items)
  End With
End Sub

[Море]

ого! спасибо огромное! а функцией(формулой) в ячейках это не реализуемо? как вариант?

[IgorGO]

как вариант. одна формула для типов, вторая для видов

[Море]

Благодарю! попробую на работе применить.

[Море]

и на работе все отлично работает.
=(СУММПРОИЗВ(НЕ(ЕПУСТО($B$7:$B$18)) *($D$7:$D$18="закупка")))+(СУММПРОИ ЗВ(НЕ(ЕПУСТО($B$7:$B$18))*($D$7:$D$ 18="куплено")))

пришлось так доделать, т.к. не могу понять суть предложенной формулы и иначе увеличить кол-во условий))

Еще раз спасибо