Soru? Tekrarlanan kelimeler ve kaçar tane olduğu

[muratuu1982]

Merhaba değerli hocalarım,
excel tablosunun bir sütununda yer alan aynı veya farklı kelimeleri saymasını ve bu kelimelerin kaçar tane olduğunu söylemesini istiyorum.
örneğin B sütununda 1.000'den fazla satırda yer alan kelimeleri;

elma: 5
armut: 8
ayva: 103
şeklinde listeleyecek.
Ben "eğersay" ile bir şeyler yapmaya çalıştım fakat olmadı.
Yardımcı olabilirseniz çok müteşekkir olurum.

VBA da olabilir.

 

[pitchoute]

Merhabalar, deneyip sonucu paylaşabilir misiniz;

=EĞERSAY($B$2:$B$1001, D2)

 

[muratuu1982]

Merhabalar, deneyip sonucu paylaşabilir misiniz;

=EĞERSAY($B$2:$B$1001, D2)

Teşekkür ederim,
Bu formülle ilgili bir sorun var penceresi çıktı

 

[pitchoute]

Şöyle dener misiniz;

=EĞERSAY($B$2:$B$1001; D2)

 

[muratuu1982]

Şöyle dener misiniz;

=EĞERSAY($B$2:$B$1001; D2)

Terimsel bir karşılığı var mı bilmiyorum ama ortasından çapraz çizgi inen bir 0 çıktı

​

 

[Trilenium]

Formül yerine Pivot table kullansanız daha rahat edersiniz.

 

[muratuu1982]

Formül yerine Pivot table kullansanız daha rahat edersiniz.

Bu konuda hiçbir bilgim yok, ben bir deneyeyim, teşekkür ederim.

 

[mustafa1205]

Örnek Dosya Eklerseniz daha kolay ve çabuk cevap bulabilirsiniz

 

[tugkan]

Merhaba değerli hocalarım,
excel tablosunun bir sütununda yer alan aynı veya farklı kelimeleri saymasını ve bu kelimelerin kaçar tane olduğunu söylemesini istiyorum.
örneğin B sütununda 1.000'den fazla satırda yer alan kelimeleri;

elma: 5
armut: 8
ayva: 103
şeklinde listeleyecek.
Ben "eğersay" ile bir şeyler yapmaya çalıştım fakat olmadı.
Yardımcı olabilirseniz çok müteşekkir olurum.

VBA da olabilir.

Bu işlemi yapmak için hem Excel formülleri hem de VBA kullanarak çözüm sunabilirim. İstersen önce formülle başlayalım, ardından VBA ile çözümü de sunabilirim.

Formülle Çözüm (PivotTable Yöntemi)

1. PivotTable Kullanarak:
   • Tablonuzda herhangi bir hücreyi seçin.
   • Menüden Ekle > PivotTable seçeneğini tıklayın.
   • PivotTable’ı yeni bir sayfaya ekleyin.
   • B Sütununu satır alanına (Row Labels) ve yine B Sütununu değerler alanına (Values) ekleyin.
   • Değerler alanında, Toplam yerine Say (Count) işlemini seçin.

Bu adımlar sonucunda her kelimenin kaç kere geçtiğini listeleyebilirsiniz.

VBA ile Çözüm
Eğer VBA ile yapmak istiyorsanız, aşağıdaki makro her bir benzersiz kelimeyi sayar ve sonuçları başka bir sayfaya yazdırır:

Sub KelimeSayaci()
    Dim kelimeDic As Object
    Dim sonSatir As Long
    Dim i As Long
    Dim kelime As String
    Dim ws As Worksheet
    Dim wsSonuc As Worksheet
    
    ' Sözlük oluştur (benzersiz kelimeleri saymak için)
    Set kelimeDic = CreateObject("Scripting.Dictionary")
    
    ' Çalışılan sayfa
    Set ws = ThisWorkbook.Sheets("Sayfa1") ' Sayfa adını ihtiyacınıza göre değiştirin
    
    ' Son satırı bul
    sonSatir = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' Kelimeleri say
    For i = 1 To sonSatir
        kelime = ws.Cells(i, "B").Value
        If kelimeDic.exists(kelime) Then
            kelimeDic(kelime) = kelimeDic(kelime) + 1
        Else
            kelimeDic.Add kelime, 1
        End If
    Next i
    
    ' Sonuçları başka bir sayfaya yazdır
    Set wsSonuc = ThisWorkbook.Sheets.Add
    wsSonuc.Name = "Kelime Sonuçları"
    
    wsSonuc.Cells(1, 1).Value = "Kelime"
    wsSonuc.Cells(1, 2).Value = "Adet"
    
    i = 2
    For Each kelime In kelimeDic.Keys
        wsSonuc.Cells(i, 1).Value = kelime
        wsSonuc.Cells(i, 2).Value = kelimeDic(kelime)
        i = i + 1
    Next kelime
End Sub

Bu VBA kodu şu adımları izler:

1. "Sayfa1" isimli sayfanın B sütunundaki kelimeleri tarar.
2. Her bir kelimenin kaç kere tekrarlandığını sayar.
3. Sonuçları yeni bir sayfada listeler.

Makroyu çalıştırmak için:

1. Alt + F11 tuşlarına basarak VBA düzenleyicisini açın.
2. Insert > Module seçeneğinden yeni bir modül ekleyin.
3. Yukarıdaki kodu bu modüle yapıştırın.
4. F5 tuşuna basarak makroyu çalıştırın.

Sonuçları yeni bir sayfada görebileceksiniz.

Her iki yöntem de işinizi görecektir!

 

[muratuu1982]

Bu işlemi yapmak için hem Excel formülleri hem de VBA kullanarak çözüm sunabilirim. İstersen önce formülle başlayalım, ardından VBA ile çözümü de sunabilirim.

Formülle Çözüm (PivotTable Yöntemi)

1. PivotTable Kullanarak:
   • Tablonuzda herhangi bir hücreyi seçin.
   • Menüden Ekle > PivotTable seçeneğini tıklayın.
   • PivotTable’ı yeni bir sayfaya ekleyin.
   • B Sütununu satır alanına (Row Labels) ve yine B Sütununu değerler alanına (Values) ekleyin.
   • Değerler alanında, Toplam yerine Say (Count) işlemini seçin.

Bu adımlar sonucunda her kelimenin kaç kere geçtiğini listeleyebilirsiniz.

VBA ile Çözüm
Eğer VBA ile yapmak istiyorsanız, aşağıdaki makro her bir benzersiz kelimeyi sayar ve sonuçları başka bir sayfaya yazdırır:

Sub KelimeSayaci()
    Dim kelimeDic As Object
    Dim sonSatir As Long
    Dim i As Long
    Dim kelime As String
    Dim ws As Worksheet
    Dim wsSonuc As Worksheet
   
    ' Sözlük oluştur (benzersiz kelimeleri saymak için)
    Set kelimeDic = CreateObject("Scripting.Dictionary")
   
    ' Çalışılan sayfa
    Set ws = ThisWorkbook.Sheets("Sayfa1") ' Sayfa adını ihtiyacınıza göre değiştirin
   
    ' Son satırı bul
    sonSatir = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
   
    ' Kelimeleri say
    For i = 1 To sonSatir
        kelime = ws.Cells(i, "B").Value
        If kelimeDic.exists(kelime) Then
            kelimeDic(kelime) = kelimeDic(kelime) + 1
        Else
            kelimeDic.Add kelime, 1
        End If
    Next i
   
    ' Sonuçları başka bir sayfaya yazdır
    Set wsSonuc = ThisWorkbook.Sheets.Add
    wsSonuc.Name = "Kelime Sonuçları"
   
    wsSonuc.Cells(1, 1).Value = "Kelime"
    wsSonuc.Cells(1, 2).Value = "Adet"
   
    i = 2
    For Each kelime In kelimeDic.Keys
        wsSonuc.Cells(i, 1).Value = kelime
        wsSonuc.Cells(i, 2).Value = kelimeDic(kelime)
        i = i + 1
    Next kelime
End Sub

Bu VBA kodu şu adımları izler:

1. "Sayfa1" isimli sayfanın B sütunundaki kelimeleri tarar.
2. Her bir kelimenin kaç kere tekrarlandığını sayar.
3. Sonuçları yeni bir sayfada listeler.

Makroyu çalıştırmak için:

1. Alt + F11 tuşlarına basarak VBA düzenleyicisini açın.
2. Insert > Module seçeneğinden yeni bir modül ekleyin.
3. Yukarıdaki kodu bu modüle yapıştırın.
4. F5 tuşuna basarak makroyu çalıştırın.

Sonuçları yeni bir sayfada görebileceksiniz.

Her iki yöntem de işinizi görecektir!

Çok teşekkür ederim.
Şöyle bir hata alıyorum.
"Compile Error:
compile error for each control variable must be variant or object"

 

[Korhan Ayhan]

Faydalı olabilir...

 

[muratuu1982]

Faydalı olabilir...

Çok teşekkür ederim. @tugkan hocamın mesajındaki adımları yaparak PİVOT TABLO olarak, ihtiyacım olanı hallettim.
Kendisine ve size çok teşekkür ederim.
Sizin paylaşımınızda da çok güzel bir anlatım var. Teşekkür ederim, eyvallah.