Bir Excel Hücresinde Sayısal Değerleri Sıralama

[208319]

A1 isim B1soyisim C1 Rakamsal değerler Hücresi

MERT COLD NULL (RAKAM DEĞERİ OLMAYAN HÜCRELER SİLİNSİN)
KERRY BAYRAK NULL (RAKAM DEĞERİ OLMAYAN HÜCRELER SİLİNSİN)
ORDU ÇAY 3335628490, 4444404740, 4444407400,0 (TEK HÜCREDE BULUNAN NUMARALAR)
KENT TOLK 4449346878, 4446286088, 4442080098, 0008120884, 9999883468,0 (TEK HÜCREDE BULUNAN NUMARALAR)
URFU VALF 4447118885, 0000671889, 8887101859 (TEK HÜCREDE BULUNAN NUMARALAR)
SENT KULT 9996220787, 4446200209, 3332355488, 3336220899 (TEK HÜCREDE BULUNAN NUMARALAR)
SLOV MÜLL 3333488870, 5555448734, 0003073398, 2228487000, 1111488879, 1111488879, 6664888700, 9988804887,0 (TEK HÜCREDE BULUNAN NUMARALAR)
XALF ASAM NULL (RAKAM DEĞERİ OLMAYAN HÜCRELER SİLİNSİN)

OLMASI GEREKEN ALTTAKİ GİBİ SIRALAMASI(NULL SATIRLARI,VİRGÜLLERİ,TEKLİ SIFIRLARI, (10 KRAKTER RAKAM DEĞERİNİ AŞAN TÜM SATIRLARIN SİLİNMESİ)

A1 B1 C1 HÜCRELERİ
ORDU ÇAY 3335628490
ORDU ÇAY 4444404740
ORDU ÇAY 4444407400
KENT TOLK 4449346878
KENT TOLK 4446286088
KENT TOLK 4442080098
KENT TOLK 0008120884
KENT TOLK 9999883468
URFU VALF 4447118885
URFU VALF 0000671889
URFU VALF 8887101859
SENT KULT '9996220787
SENT KULT 4446200209
SENT KULT 3332355488
SENT KULT 3336220899
SLOV MÜLL 3333488870
SLOV MÜLL 5555448734
SLOV MÜLL 0003073398
SLOV MÜLL 2228487000
SLOV MÜLL 1111488879
SLOV MÜLL 1111488879
SLOV MÜLL 6664888700
SLOV MÜLL 9988804887
YENİ BİR SAYFADA A1 HÜCRESİNDEN İTİBAREN SIRALAMASI
TEŞŞEKKÜRLER YARDIMLARINIZ İÇİN

 

[Necdet]

Merhaba,
Profilinizdeki Excel versiyonunu lütfen günleyiniz.

Sorunuz bu şekilde pek anlaşılmıyor, örnek dosyanızı paylaşım sitelerinden birine yüklerseniz yardıma ulaşmanız daha hızlı olur.

 

[veyselemre]

Sub test()
    Dim veri, i&, bl, b, say
    veri = Range("A1").CurrentRegion.Value
    Sheets.Add
    For i = 1 To UBound(veri)
        If veri(i, 3) <> "" Then
            For Each b In Split(Replace(veri(i, 3), " ", ""), ",")
                If IsNumeric(b) And b > 0 Then
                    say = say + 1
                    With Cells(say, 1).Resize(, 3)
                        .NumberFormat = "@"
                        .Value = Array(veri(i, 1), veri(i, 2), Format(b, String(10, "0")))
                    End With
                End If
            Next b
        End If
    Next i
End Sub

 

[208319]

BU BİR EXCELL SAYFASI (Sayfa1)
A1 hücresi isim SLOV B1 hücresi soyisim MÜLL C1 hücresi sayısal değerler 3333488870, 5555448734, 0003073398, 2228487000, 1111488879, 1111488879, 6664888700, 9988804887, 0, 1100222, 898999999,
yukarıdaki excelin A1, B1, C1 satırındaki veriler

formülün yapması gereken yukarıda C1 hücresinde bulunan sayısal değerleri;
[10] yani [0000000000] 10 sayısını karşılayan bulan veriler doğru olarak kabul edilecek
(C1 hücresindeki hatalar
10 değerine ulaşamayan 1- 10 rakam değerini karşılamayan 0, 1100222, 898999999,

2- virgül,
3- NULL yazılı boş değerler
Bu 3 maddede yazan C1 hücresindeki sayısal değerleri doğru olanları aşağıdaki gibi yazması
yanlış olanları silmesi
not C1 hücresini örnek verdim hata tüm hücrelerde var

Örnek Doğru Diziliş
A1 B1 C1
SLOV MÜLL 3333488870
SLOV MÜLL 5555448734
SLOV MÜLL 0003073398
SLOV MÜLL 2228487000
SLOV MÜLL 1111488879
SLOV MÜLL 1111488879
SLOV MÜLL 6664888700
SLOV MÜLL 9988804887

madde3 nul

A2 hücre isim MERT

B2 hücre soyisim COLD

C2 hücre sayısal değğerler NULL