15-20 basamaklı sayıların ilk 4 hanesine göre sınıflandırma yapabilme

Katılım
26 Kasım 2008
Mesajlar
22
Excel Vers. ve Dili
Office 2003 ingilizce
Merhaba arkadaşlar

elimde 15-20 basamaklı numaralar var. Bu numaraların ilk 4 veya 6 hanesine göre sınıflandırma yapıp ve kaç adet o sınıftan olduğunu bulmaya çalışıyorum.

Örnek:

11112222333344445555
55554444333322221111

bu sayılardan 100 lerce olduğunu düşünelim. öyle bir sistem olsun ki

1111 ile başlayanlar x gurubuna dahil
5555 ile başlayanlar y grubuna dahil dediğimizde o sayıların başındaki 4 rakama bakıp sınıflandırma yapsın ve x grubundan "m" adet y grubunda da "n" adet var diye raporlasın.

Yardımcı olabilirseniz çok sevinirim.Saygılarımla
 

BG

Özel Üye
Katılım
5 Mayıs 2008
Mesajlar
1,380
Excel Vers. ve Dili
Office 2021 TR & EN
Merhaba arkadaşlar

elimde 15-20 basamaklı numaralar var. Bu numaraların ilk 4 veya 6 hanesine göre sınıflandırma yapıp ve kaç adet o sınıftan olduğunu bulmaya çalışıyorum.

Örnek:

11112222333344445555
55554444333322221111

bu sayılardan 100 lerce olduğunu düşünelim. öyle bir sistem olsun ki

1111 ile başlayanlar x gurubuna dahil
5555 ile başlayanlar y grubuna dahil dediğimizde o sayıların başındaki 4 rakama bakıp sınıflandırma yapsın ve x grubundan "m" adet y grubunda da "n" adet var diye raporlasın.

Yardımcı olabilirseniz çok sevinirim.Saygılarımla
doğru anladıysam ,örnek dosya ektedir, inceleyiniz.
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,490
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Özet Tabloyu kullanabilirsiniz.
 

Ekli dosyalar

Katılım
26 Kasım 2008
Mesajlar
22
Excel Vers. ve Dili
Office 2003 ingilizce
Merhaba,

Özet Tabloyu kullanabilirsiniz.
necdet bey çok teşekkür ederim. yalnız bir sorum var. tablodaki değer kısmına datayı yapıştırdım ve ilk 4 rakamı alması için aşağıya sürükledim. bütün hepsinin ilk değerini çıkarttı. ama sağ tarafta da "1111" değeri "x" ismine atamak istiyorum. orayı nasıl düzenleyebilirim. excel im pek iyi değildir ondan soruyorum.

yardımcı olabilirseniz çok sevinirim. Çok teşekkürler

Ayrıca diğer arkadaşa da teşekkür ederim
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,490
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Ben x lerle uğraşmak istemedim, çünkü kaç değişik veri olacağını bilmediğimden öyle düşündüm.

1111 x olursa diğer değerler ne olmalı?
 
Katılım
26 Kasım 2008
Mesajlar
22
Excel Vers. ve Dili
Office 2003 ingilizce
Merhaba,

Ben x lerle uğraşmak istemedim, çünkü kaç değişik veri olacağını bilmediğimden öyle düşündüm.

1111 x olursa diğer değerler ne olmalı?
Aslında orada çok değer olacak sayısını inanın bende bilmiyorum. çünkü sol tarafa koyduğum değer toplamı 16000 kadar ve içlerinden ilk 4 rakamı ortak olanların sayısını bulmaktı amacım.

sorunu şöyle hallettim. elimde aynı olan sayıların kaç tane olduğunu gösteren bir excel dosyası mevcut. sizin gönderdiğiniz dosyada ilk 4 rakamı alıp öteki dosyada da kaç tane olduğunu buluyorum.

Yardımınız için teşekkür ederim. Saygılarımla
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,248
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Ekli dosyayı inceleyiniz.:cool:
Kod:
Sub listele_say()
Dim z As Object, deg As String, hcr As Range
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("C2:C65536").ClearContents
Set z = CreateObject("Scripting.Dictionary")
For Each hcr In Range("A2:A" & Cells(65536, "A").End(xlUp).Row)
    If Len(Format(hcr.Value, "0")) < 5 Then
        deg = Format(hcr.Value, "0")
        Else
        deg = Left(Format(hcr.Value, "0"), 4)
    End If
    If Not z.exists(deg) Then
        z.Add deg, 1
        Else
        z.Item(deg) = z.Item(deg) + 1
    End If
Next
Range("C2").Resize(z.Count, 2) = Application.Transpose(Array(z.keys, z.items))
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır."
End Sub
 

Ekli dosyalar

Üst