We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
sub Hist3UK(M As Long, arr() As Double) Dim i As Long, j As Long Dim Length As Single ReDim breaks(M) As Single ReDim freq(M) As Single For i = 1 To M freq(i) = 0 Next i Length = (arr(UBound(arr)) - arr(1)) / M For i = 1 To M breaks(i) = arr(1) + Length * i Next i For i = 1 To UBound(arr) If (arr(i) <= breaks(1)) Then freq(1) = freq(1) + 1 If (arr(i) >= breaks(M - 1)) Then freq(M) = freq(M) + 1 For j = 2 To M - 1 If (arr(i) > breaks(j - 1) And arr(i) <= breaks(j)) Then freq(j) = freq(j) + 1 Next j Next i For i = 1 To M Sheet3.Cells(i + 9, 10) = breaks(i) Sheet3.Cells(i + 9, 11) = freq(i) Next i End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.