hücre içindeki farklı değerleri sayma

[Erdem Akdemir]

aabbbcccc

a1 hücresinde böyle bir veri olduğunu düşünelim

burdaki değerleri tek başına saymak için nasıl bir formül gerekli

a=2

b=3

c=4

sonuçlarını almam lazım

 

[Orion1]

Bir ktf hazırladım.B1 hücresindeki formüle bakınız.
Dosya ektedir.

Function aynileri_say(hcr As Range)
Dim z As Object, i As Integer, vkey, k As String
Set z = CreateObject("Scripting.Dictionary")
For i = 1 To Len(hcr)
    If Not z.exists(Mid(hcr, i, 1)) Then
        z.Add Mid(hcr, i, 1), 1
        Else
        z.Item(Mid(hcr, i, 1)) = z.Item(Mid(hcr, i, 1)) + 1
    End If
Next
For Each vkey In z.keys
    k = k & " " & vkey & "=" & z.Item(vkey)
Next
aynileri_say = k
End Function

 

[Erdem Akdemir]

Bir ktf hazırladım.B1 hücresindeki formüle bakınız.
Dosya ektedir.

Function aynileri_say(hcr As Range)
Dim z As Object, i As Integer, vkey, k As String
Set z = CreateObject("Scripting.Dictionary")
For i = 1 To Len(hcr)
    If Not z.exists(Mid(hcr, i, 1)) Then
        z.Add Mid(hcr, i, 1), 1
        Else
        z.Item(Mid(hcr, i, 1)) = z.Item(Mid(hcr, i, 1)) + 1
    End If
Next
For Each vkey In z.keys
    k = k & " " & vkey & "=" & z.Item(vkey)
Next
aynileri_say = k
End Function

bana lazım olan yerleşik fonksiyonlarla yapılacak olanı

bunlar karışıkta olabilir

abacabbcacc

bu şekildeki içinde sınıflandırma yaparak

a değerinden kaç tane var olduğu hesaplayabilecek, yerleşik formül arıyorum

ilgilendiğiniz için teşekkürler

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz. İki farklı çözüm yolu hazırladım. Dilediğinizi kullanabilirsiniz.

 

[Erdem Akdemir]

korhan bey sağolun aradığım buydu

 

[enorjinalinsan]

hocam süpersiniz.

excel.web.tr hazine rezervi