tasnif edilmiş (frekanslı) seriyi oluşturma

[abisSEN]

Aşağıda bir makinede üretilen günlük kusurlu mamul sayılarının dağılımı verilmiştir.

5 5 4 5 5 5
4 4 4 4 7 4
3 4 5 2 3 5
2 5 1 3 4 1
5 5 3 5 1 1

Arkadaşlar yukarıdaki verileri excelde tasnif edilmiş (frekanslı) seriye nasıl dönüştürüyoruz. yardım edebilirseniz çok sevinirim.

 

[dEdE]

Merhaba,
Forumumuza hoşgeldiniz.
Bir örnek dosya hazırlayıp, şu verileri su şekle dönüştürmek istiyorum diye dosya üzerinde gösterirseniz daha çabuk yanıt alırsınız.
Bu haliyle yanlış anlamalara ve gereksiz yazışmalara neden olacağını düşünüyorum.
Ancak Forumda yeni olmanız nedeniyle sorunuzu anladığım kadarıyla yanıtlayayım. Verilerinizin A1 den başladığını varsayarak aşağıdaki kodları yazdım.
Ekli dosyayı incelerseniz sonucun istediğiniz gibi olup olmadığını da görebilirsiniz.

Hoşçakalın.

Sub Say()
    ss = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    sk = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    Küçük = WorksheetFunction.Min(Range(Cells(1, 1), Cells(ss, sk)))
    Büyük = WorksheetFunction.Max(Range(Cells(1, 1), Cells(ss, sk)))
    ss1 = ss + 2
Cells(ss1, 1).Value = "Sayı"
Cells(ss1, 2).Value = "Frekans"
For i = Küçük To Büyük
    Frekans = WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(ss, sk)), i)
    If Frekans > 0 Then
        ss1 = ss1 + 1
        Cells(ss1, 1).Value = i
        Cells(ss1, 2).Value = Frekans
    End If
Next
End Sub

 

[abisSEN]

uyarınızı dikkate alacağım. ilginiz ve yardımınız için çok teşekkür ederim.