Подсчет Нескольких текстовых значений в одном столбце

[Djin1904]

Братцы столкнулся с такой проблемой-есть столбец большой длины(к примеру в нем:яблоки,груши,бананы,киви и т.д.(в любой последовательности,повторы обязательно присутствуют))-мне нужно посчитать количество ТЕКСТОВЫХ вхождений вместе взятых(яблоки+груши+киви)-я реализовывал через СЧЕТЕСЛИ([диапозон];"яблоки")+СЧЕТЕСЛИ([диапозон];"бананы")+СЧЕТЕСЛИ([диапозон];"киви") и т.д.но это очень громоздко,есть ли возможность как-нибудь это сократить для экономии места или времени?или есть альтернативная функция специально для этого случая?

[IgorGO]

=СЧЕТЗ(диапазон)-СЧЕТ(диапазон)

- это и будет количество текстовых значений

[Djin1904]

Я закинул пример небольшой(выделил форму какую хотел бы упростить).Если не сложно-на этом примере покажите.

[IgorGO]

у меня получилось 6 )))

[svsh2016]

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

Sub test()
   Dim z, i&
   z = Range("B5:B" & Range("B" & Rows.Count).End(xlUp).Row).Value
 With CreateObject("scripting.dictionary")
  For i = 1 To UBound(z)
      If z(i, 1) = "рядовой" Or z(i, 1) = "ефрейтор" Or z(i, 1) = "сержант" Or z(i, 1) = "мл.сержант" Then
     .Item(z(i, 1)) = .Item(z(i, 1)) + 1
     End If
   Next
  Range("G5").Resize(.Count, 2).Value = Application.Transpose(Array(.keys, .items))
End With
End Sub