Sayı Saydırma

[uKiGS]

Merhaba,

A1 ve A18 arasında olan sayılar arasında 7,5'dan büyük sayıları ayrı ayrı saymasını istiyorum. Kaç tane 8 var kaç tane 9 var gibi. Bunun için geçerli bir formül var mı ?

Teşekkürler

 

[çıtır]

8 i Saymak için ;diğerlerini ayarlarsınız.

=EĞERSAY(A1:A18;"=8")

 

[uKiGS]

teşekkürler

 

[çıtır]

teşekkürler

Rica ederim.Kolay gelsin.

 

[Orion1]

Makro ile alternatif.
Ekli dosyayı inceleyiniz.

Sub saybenzersiz59()
Dim z As Object, i As Byte, say As Double
Range("B1:C18").ClearContents
Set z = CreateObject("Scripting.Dictionary")
For i = 1 To 18
    If Cells(i, "A").Value > 7.5 Then
        If Not z.exists(Cells(i, "A").Value) Then
            z.Add Cells(i, "A").Value, 1
        Else
            z.Item(Cells(i, "A").Value) = z.Item(Cells(i, "A").Value) + 1
        End If
    End If
Next i
Range("B1").Resize(z.Count, 2) = Application.Transpose(Array(z.keys, z.items))
MsgBox "işlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub