Количество повторов значения ячейки в массиве

[A2B]

Доброго времени суток!

Помогите чайнику) (Excel 2003)

ПРИМЕР: Необходимо вывести в ячейке С1 количество повторений значения ячейки А1 в массиве Columns("B"), при том, что это значение в ячейках столбца "В" может быть в любом месте текста ячейки (позиция плавающая)

Имеется ввиду аналог "Ctrl+F", когда выдаётся в скольких ячейках найден искомый текст.

Смысл в том, чтобы в итоге, в столбце А оставить только те значения, которые повторяются в массиве меньше чем n раз

Бьюсь вторую неделю, понимаю, что наверное нужна серьёзная процедурка, но у самого знаний не хватает(((

Если у Вас решения нет, подкажите хоть, возможно ли оно чисто теоретически...

Заранее спасибо!

[Dophin]

возможно практически все если есть пример.

с листами "есть вот" и "хочу вот так"

[alex77755]

количество повторений значения ячейки А1 в массиве Columns("B")

=СЧЁТЕСЛИ(B1:B65000;A1)

[A2B]

Сообщение от alex77755

=СЧЁТЕСЛИ(B1:B65000;A1)

Спасибо, так уже конечно пробовал, сравнивает только ячейки целиком, потому не подходит...

Сообщение от Dophin

возможно практически все если есть пример.

с листами "есть вот" и "хочу вот так"

Примерно хочу так, столбец "А" - значения, столбец "В" - база сравнения, столбец "С" - количество ячеек в столбце "В" содержащих значение An (значение проставил ручками)))

[Pavel55]

=СЧЁТЕСЛИ(B:B;"*" & A1 & "*")

[alex77755]

Сделал функцию. Работает, но долго

Function KolMas(Iskomoe, massiv As Range)
Dim I
Dim re
re = massiv.Column
For I = 1 To massiv.Count
re = Cells(I, massiv.Column).Value
If InStr(1, re, Iskomoe) > 0 Then KolMas = KolMas + 1
Next I
End Function

Мжно попробовать загнать всё в массив и обработать массив. Будет быстрей. Но сейчач уже спать охота. Завтра попробую

[A2B]

Сообщение от Pavel55

=СЧЁТЕСЛИ(B:B;"*" & A1 & "*")

СПАСИБО ОГРОМНОЕ!
Так заработало, сам не допёр что * в кавычки взять нужно)))

[A2B]

Сообщение от alex77755

Сделал функцию. Работает, но долго

Function KolMas(Iskomoe, massiv As Range)
Dim I
Dim re
re = massiv.Column
For I = 1 To massiv.Count
re = Cells(I, massiv.Column).Value
If InStr(1, re, Iskomoe) > 0 Then KolMas = KolMas + 1
Next I
End Function

Мжно попробовать загнать всё в массив и обработать массив. Будет быстрей. Но сейчач уже спать охота. Завтра попробую

Pavel подсказал как встроенной функцией сделать, так удобнее пока.
В любом случае спасибо за участие!)

Кстати, интересно, если усложнить задачу и искать не значение ячейки An полностью, а часть текста по признаку, например 6 цифр подряд (Типа *######*). Такое возможно?

[Dophin]

мне полностью повторить свое прошлое сообщение или сами догадаетесь?