aynı sütundaki sayıları ayırmak

[mhmtmzlm]

arkadaşlar çok acil olarak bir bilgiye ulşmam lazım.. ebnde buranın yeni bir üyesiyim.. çok fazla bir bilgim yok... bana lazım olan bir sütunda aynı olan sayılarla farklı olan sayıları farklı sütünlara toplamak.. ben şuanda askerim ve komutan bana yükledi bu işi ve işin içinden çıkamıyorum lütfen yardım edin...
bir exel dosyasıylada ne ddemek istediğimi daha açık anlatıcam...


şimdiden herkese teşekkürler....

 

[muygun]

Merhaba;
Eki inceleyin.
İyi çalışmalar.

 

[uzmanamele]

merhaba

aşağıdaki kod işinizi görür mü?

Sub ayrıstır()
Range("c1:c65536").ClearContents
ss = Range("a65536").End(3).Row
x = 1
For i = 1 To ss
If Application.WorksheetFunction.CountIf(Range("a1:a" & ss), Cells(i, "a")) = 1 Then
Cells(x, "c") = Cells(i, "a")
x = x + 1
End If
Next
End Sub