Имеется массив чисел, каждое в отдельной ячейке. Необходимо определить, сколько раз каждое значение случайной величины встретилось в заданной выборке, т.е. посчитать частоты. И если как их считать знакомо, то вопрос - как вывести каждое уникальное значение случайной величины из массива в отдельный столбец, чтобы произвести дальнейшие расчеты?
На втором скриншоте - столбец "Случайные величины", который основывается как раз на массиве из первого скриншота. А мой вариант выборки, который имеется - в файле.
Sub Read_dic()
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
Dim a As Variant
a = Range("A2:I15")
Dim v As Variant
For Each v In a
dic(v) = dic(v) + 1
Next
Write_dic dic, Range("A23")
End Sub
Sub Write_dic(dic As Object, r As Range)
r.Cells(1, 1).Resize(dic.Count) = Application.Transpose(dic.Keys())
r.Cells(1, 2).Resize(dic.Count) = Application.Transpose(dic.Items())
End Sub