Tekrar eden sayıları ve bu sayıların tekrar adetlerini bulma

[aytunc75]

Merhaba,
Excel 1 sayfada A sütunu B sütunu ve C sütunu altında yaklaşık 50.000 satırlık data da rakamlar yazıyor.
Başka bir sayfada sütunlar altında tekrar eden sayıları ve kaç defa tekrar ettiğini nasıl bulabilirim acaba?
Data çok yüklü ve sürekli ilave bilgi gelmesi nedeniyle koşullu biçimlendirme ile istediğimi yapamadım.

Aşağıdaki örnek tabloda kırmızı ile işaretlediğim bölüm sayfa 1deki verileri yeşil ile başlıklarını yazdığım bölüm ise yapmak istediğim şeyi belirtmekte.

A sütunu	B sütunu	C sütunu		A sütunu Tekrar Eden Sayı	A sütunu Tekrar Eden Sayı Adedi		B sütunu Tekrar Eden Sayı	B sütunu Tekrar Eden Sayı Adedi		C sütunu Tekrar Eden Sayı	C sütunu Tekrar Eden Sayı Adedi
2,20	2,98	2,67		2,71	2		3,2	3		2,67	2
1,68	3,20	4,44		1,92	2		3	2		3,08	2
2,71	2,96	2,18		1,45	2		3,12	2		3,69	2
1,92	3,13	3,08		2,63	2					2,44	3
1,80	2,97	3,69
1,45	3,58	6,11
2,30	3,02	2,71
2,38	3,00	2,44
2,63	2,91	2,44
3,23	3,10	1,99
1,85	3,12	3,65
2,71	3,20	3,69
2,63	3,20	2,67
1,45	3,12	2,44
1,92	3,00	3,08

Yardımlarınızı rica ederim.

 

[Haluk]

En kolay ve hızlı çalışanı; her sütun için bir Pivot Table yapın.

.

 

[aytunc75]

Pivot tablo bir çözüm ancak her seferinde veri yenilemek gerekiyor. Bunun yerine kod yardımı ile daha hızlı ve pratik bir çözüm olabileceğini düşünüyorum.

 

[Haluk]

Tabloya yeni veri girdiğinizde sadece Data sekmesinde "Refresh All" butonuna tıklayacaksınız o kadar ..... Sonuçta makro da olsa, bir şekilde butona tıklmanız lazım.

Çok fazla veride formülle çözüm de randımanlı olmaz...

.

 

[aytunc75]

Bu belirtmiş olduğunuz kısım zaten yapılabilcek şey. Daha kolay yönetimi olacağını düşündüğüm için formda konu açtım. Size teşekkür ederim. Umarım başkasından yardım alabilirim.

 

[Necdet]

Bu belirtmiş olduğunuz kısım zaten yapılabilcek şey. Daha kolay yönetimi olacağını düşündüğüm için formda konu açtım. Size teşekkür ederim. Umarım başkasından yardım alabilirim.

en basit yöntemi Pivot Table
Sayfa2 yi seçtiğinizde tüm pt otomatik olarak yenilenir.

Dosyayı Yüklemek İçin TIKLAYINIZ

 

[aytunc75]

Necdet Hocam Bu belirtmiş olduğunuz kısım maalesef sorumdaki cevabı karşılamıyor.
Pivot table yaptığınızda sütündaki tüm sayıları ve bu sayıların tekrarını getiriyor.
Benim sorum daki tablo örneğimde görüleceği üzere belli bir rakamın üzerinde tekrar edenleri getirmesi şeklinde. Yani örnek olarak 50.000satırlık bir data da en çok tekrar eden 10 sayıyı ve bu 10 sayının kaç defa tekrar ettiğinin bilgisine ihtiyacım bulunmaktadır.

 

[Korhan Ayhan]

Merhaba,

Necdet beyin paylaştığı dosyada Sayfa2 sayfasında A1 hücresindeki filtre butonuna tıklayıp DEĞER FİLTRELERİ seçeneğini seçtiğinizde açılan menüde en altta İLK 10 gibi bir seçenek çıkıyor. Buradan dilediğiniz değeri tanımlayıp sonuç alabilirsiniz.

 

[Mdemir63]

Selam

@Necdet abinin dosyasından yararlandım.

inceleyiniz

 

[aytunc75]

Selam

@Necdet abinin dosyasından yararlandım.

inceleyiniz

Çok teşekkür ederim. İstediğim tam olarak buydu.

ACaba sütünları nasıl çoğalatabilirim. Ben örnekte A b ve C kolonları olarak vermiştim ancak esas yüklü data da farklı kolonlara bunu uygulamam gerekiyor

 

[Mdemir63]

Hangi kolonlarda orjinal dosyanız

 

[aytunc75]

Hangi kolonlarda orjinal dosyanız

Orjinal dosyada toplam 20 kolonda bu bilgiye ihtiyacım var. İlgili kolonları aşağıda paylaşıyorum.

N

O

P

Q

R

S

Y

Z

AA

AB

AC

AD

AE

AF

AG

AH

AI

AJ

AK

AL

AM

AN

AO

 

[Mdemir63]

Orjinal dosyada toplam 20 kolonda bu bilgiye ihtiyacım var. İlgili kolonları aşağıda paylaşıyorum.

N

O

P

Q

R

S

Y

Z

AA

AB

AC

AD

AE

AF

AG

AH

AI

AJ

AK

AL

AM

AN

AO

[/QUOT

bilgileri orjinal olmayan ama yapısı aynı olan örnek dosyanızı gönderirseniz bakabilirim.

 

[aytunc75]

İndir öenek excel xlsx

Dosyayı indir öenek excel xlsx

dosya.co

kopyaladım. Çok teşekkür ederim değerli yardımlarınız için

 

[Necdet]

Merhaba,
Korhan bey'in önerisine bir şey demediniz.

 

[aytunc75]

Sorunun bir üst kısmındaki cevabımda bu sorunuzun cevabı mevcut.

 

[Mdemir63]

Selam

Belki daha kısa yolu vardır. Ben bildiğim yoldan yaptım.

indir

 

[aytunc75]

Selam

Belki daha kısa yolu vardır. Ben bildiğim yoldan yaptım.

indir

Hocam elinize emeğinize aklınıza sağlık. Çalışma çok çok güzel olmuş . Teşekkür ederim

 

[Mdemir63]

Rica ederim.
İyi çalışmalar

 

[veyselemre]

Selam
Belki daha kısa yolu vardır. Ben bildiğim yoldan yaptım.
indir

Linkteki dosya üzerinde hazırlanmıştır.

Sub TekrarSayilariGetir()
    Dim veri, liste, kys, itms, i%, ii%, iii%

    With Sheets("Sayfa1")
        veri = .Range("N2:AO" & .Cells(Rows.Count, "N").End(3).Row).Value
        ReDim liste(1 To UBound(veri), 1 To UBound(veri, 2) * 2)
    End With

    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(veri, 2)
            .RemoveAll
            For ii = 1 To UBound(veri)
                If veri(ii, i) <> "" Then .Item(veri(ii, i)) = .Item(veri(ii, i)) + 1
            Next ii
            If .Count > 0 Then
                kys = .keys
                itms = .items
                For iii = 0 To UBound(kys)
                    liste(iii + 1, ((i - 1) * 2) + 1) = kys(iii)
                    liste(iii + 1, ((i - 1) * 2) + 2) = itms(iii)
                Next iii
            End If
        Next i
    End With

    With Sheets("Sayfa2")
        .Range("A2:BD100").ClearContents
        .Range("A2").Resize(UBound(liste), UBound(liste, 2)).Value = liste
        For i = 1 To UBound(liste, 2) Step 2
            .Cells(1, i).Resize(UBound(liste), 2).Sort Key1:=.Cells(1, i), Header:=xlYes
        Next i
    End With

    MsgBox "Tekrar eden sayılar ilgili alanlara yazıldı." & Chr(10) & _
           "Karşılarına Tekrar Sayıları Getirildi.", vbInformation, Application.UserName
End Sub