подсчёт одинаковых значений

[kajlas]

Всем привет. Столкнулся с такой проблемой.
Есть столбец с разными цифрами, к примеру
23
345
367
670 и т.д.
Нужно что бы появлялся список в котором были бы все значения по порядку которые есть в этом столбце и напротив этих значений сколько раз оно повторялось.
Как пример
23-1
345-16
367-50
Если в эксель это сделать сложно подскажите в какой программе будет проще.
Спасибо

[Aleksandr H.]

а) формулу

=СЧЁТЕСЛИ(R1C1:R500C1;RC1)

б) сортировать по столбце п.а

[svsh2016]

добрый день,протестируйте макрос,кнопка yyy

Sub yyy()
    Dim z, i&
    z = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
 With CreateObject("scripting.dictionary"): .comparemode = 1
        For i = 1 To UBound(z): .Item(z(i, 1)) = .Item(z(i, 1)) + 1
        Next
 Range("C1").Resize(.Count, 2).Value = Application.Transpose(Array(.Keys, .Items))
 End With
   End Sub

[kajlas]

Ребята спасибо за помощь, всё получилось.