Kelimeleri Harflere Bölmek İstiyorum

[Yasin000]

Elimdeki dosya: https://s4.dosya.tc/server10/rh8r4m/Sehirler.xlsx.html

Benden istenenler:

Bu şehir isimlerindeki harfleri ayırıp hangi harften kaç tane var saydırman gerekecek
Ardından pareto analizi (pareto grafiği) ile görselleştirmeni

yardımlarınızı bekliyorum. Şimdiden teşekkürler

 

[Necdet]

Merhaba,

Sorunuz çok açık olmakla birlikte :

Aşağıdaki kodlar E sütununa Harfleri, F sütununa ise Adetleri yazar.
Düşündüğünüz gibi olmaz ise kodları inceleyip kendinize uyarlayınız.
Başka yöntemler de mevcut, ilk akla gelen basit yöntemi kullandım.

Sub HarfSay()

    Dim i As Long, _
        j As Integer, _
        s, _
        c As Range, _
        h As String, _
        b As String
    
    s = Array("A", "B", "C", "Ç", "D", "E", "F", "G", "Ğ", "H", "I", "İ", "J", "K", "L", "M", "N", "O", "Ö", "P", "R", "S", "Ş", "T", "U", "Ü", "V", "Y", "Z")

    Application.ScreenUpdating = False
    
    Range("E2").Resize(29, 1) = Application.WorksheetFunction.Transpose(s)
    Range("F2:F30").ClearContents
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
    
        b = Application.WorksheetFunction.Trim(Cells(i, "A"))
        
        For j = 1 To Len(Cells(i, "A"))
        
            h = Mid(b, j, 1)
            Set c = Range("E:E").Find(h, LookIn:=xlValues, LookAt:=xlWhole)
            If Not c Is Nothing Then Range("F" & c.Row) = Range("F" & c.Row) + 1
            
        Next j
        
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[Ömer]

Merhaba,

Formül ile:
Alfabedeki harfleri C2:C30 aralığına yazın.

Daha sonra aşağıdaki formülü D2 hücresine yazıp dizi formülüne çevirdikten sonra D30 hücresine kadar kopyalayın.

=TOPLA(UZUNLUK($A$2:$A$9555))-TOPLA(UZUNLUK(YERİNEKOY(BÜYÜKHARF($A$2:$A$9555);BÜYÜKHARF(C2);"")))

.

 

[izcik]

=PARÇAAL($A$2;SÜTUN()-1;1)

Harfleri ayırmak için kullanabilirsiniz