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

Katılım
16 Ocak 2018
Mesajlar
20
Excel Vers. ve Dili
2007
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,403
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
En kolay ve hızlı çalışanı; her sütun için bir Pivot Table yapın.

.
 
Katılım
16 Ocak 2018
Mesajlar
20
Excel Vers. ve Dili
2007
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,403
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
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...

.
 
Katılım
16 Ocak 2018
Mesajlar
20
Excel Vers. ve Dili
2007
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,329
Excel Vers. ve Dili
Ofis 365 Türkçe
Katılım
16 Ocak 2018
Mesajlar
20
Excel Vers. ve Dili
2007
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,892
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,851
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Hangi kolonlarda orjinal dosyanız
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,851
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
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.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,329
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,
Korhan bey'in önerisine bir şey demediniz.
 
Katılım
16 Ocak 2018
Mesajlar
20
Excel Vers. ve Dili
2007
Sorunun bir üst kısmındaki cevabımda bu sorunuzun cevabı mevcut.
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,851
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Selam

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

indir
 

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,851
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Rica ederim.
İyi çalışmalar
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,624
Excel Vers. ve Dili
Pro Plus 2021
Selam
Belki daha kısa yolu vardır. Ben bildiğim yoldan yaptım.
indir
Linkteki dosya üzerinde hazırlanmıştır.

Kod:
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
 
Üst