Определение количества повторяющихся чисел в строке

[Tidus]

Определить количество повторяющихся чисел в строке для каждого числа. Вот есть в строке такие числа:
1, 1, 2, 3, 4, 5, 5, 2, 2, 7, 5, 7
Важные условия:
- частота повторяющихся чисел может изменяться, какие из цифр буду в следующий раз мы не знаем;
- количество уникальных чисел также может изменяться.

Результатом будет являться выведение количество повторяющихся уникальных чисел:
Где единица: 2;
Где двойка: 3;
Где тройка: 1;
Где четверка: 1;
Где пятёрка: 3;
где семёрка: 2.

[doober]

Как работает сам не знаю.

RNG-это одна ячейка

Function Zifra(RNG As Range, Zif) As Long
Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Global = True
        .Pattern = "[" & Zif & "]"
    End With
        Set RegM = RegEx.Execute(RNG)
Set objRegEx = Nothing
  Zifra = RegM.Count
  Set RegM = Nothing
End Function

[VictorM]

Можно так, см.вложение.
Вместо кнопочки, выполнение макроса можно "повесить" на Worksheet_SelectionChange листа

[Tidus]

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

Можно так, см.вложение.
Вместо кнопочки, выполнение макроса можно "повесить" на Worksheet_SelectionChange листа

Забыл добавить. Как решить данную задачу с помощью элементарных функций Excel? И ещё: цифры находятся в строке одна цифра в одной ячейке и т.д.

[VictorM]

Забыл добавить

ну это понятно, как всегда

[ZORRO2005]

=ДЛСТР(текст)-ДЛСТР(ПОДСТАВИТЬ(текст;число;""))

[Tidus]

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

ну это понятно, как всегда

заметьте, ничего принципиально нового я не написал. Задание не имзенилось.

[ZORRO2005]

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

заметьте, ничего принципиально нового я не написал. Задание не имзенилось.

Заметьте формулу выше.

[VictorM]

Задание не имзенилось.

В таком случае, оно решено!
А если серьезно, то есть разница, решать задание формулами или макросом.
И это вегда оговаривается в задании, но к сожалению, не всегда вовремя, а после того, как задача решена.
Вот тогда и оказывается , что ее нужно было решать не так.

[IgorGO]

у меня точно такая же задача. посчитать сколько каких цифр. только они по одной штуке в текстовых файлах лежат в одной папке.
и заметьте:

ничего принципиально нового я не написал. Задание "практически" не имзенилось.

удивительно, но ни один из предложенных выше вариантов не подошел.
я все чаще замечаю, что вы пишете что-нибудь лишь от вас отцепились, а не чтобы людям помочь...