aynı sütunda sıralama işlemi

[algil]

Merhabalar
A ve B sütunlarında olan verileri A sütununa göre sıralamak istiyorum fakat bu sütunlardaki veriler arasında boşluklarda olabiliyor ve aynı sütun üzerinde aynı verilerde bulunabiliyor. Benim istediğim bu verilerin sıralanması fakat aynı olan değerler bir kez yazılacak. Bilmem anlatabildim mi?
Þimdiden teşekkürler

 

[algil]

MERHABA
Sorunumu hala çözemedim. Ekte bir örnek gönderiyorum. Yardımcı olursanız sevinirim.

A sütünunda olan dataları B sütununa yukardaki gibi aktarmak istiyorum.
Burada önemli olan A sütununda olan aynı dataların B sütununda bir defa yazılması.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:bd2f184700]Sub sirala()
Application.ScreenUpdating = False
sonsat = [a65536].End(xlUp).Row
Range("A2:A" & sonsat).Sort Key1:=[a2]
For a = sonsat To 2 Step -1
If WorksheetFunction.CountIf(Range("A2:A" & a), Cells(a, 1)) > 1 Then Rows(Cells(a, 1).Row).Delete
Next
End Sub[/vb:1:bd2f184700]

 

[algil]

teşekkürler leventm
Göndermiş olduğunuz kodu biraz değiştirdim. Aşağıdaki haliyle isteğimi karşılıyor.
Teşekkürler

Sub sirala()
Application.ScreenUpdating = False
sonsat = [a40].End(xlUp).Row
Range("A2:A" & sonsat).Sort Key1:=[a2]
For a = sonsat To 2 Step -1
If WorksheetFunction.CountIf(Range("A2:A" & a), Cells(a, 1)) > 1 Then Cells(a, 1).ClearContents
Next
sonsat = [a40].End(xlUp).Row
Range("A2:A" & sonsat).Sort Key1:=[a2]
End Sub