Tekrar ve Döngü

[Kemal Demir]

İyi AKşamlar.

Forum İçerisinde Gerçekten de Mükerre ( Tekrar ) ile İlgili Cok fazla Ornek var.

Ama Zannedersem yapmak istediğimle ilgili bulmadım için başlık actım..

a kolonu b kolonu c kolonu ....... ax kolonu

diğer kolonlardan bağımsız olarak bir döngü kurularak tekrar olan değerlerin (Boş) bırakılması için bir döngü düşündüm ve Sonuc (tıkandım)
Hüsran.

Dosyayı Ekliyorum.Yardımcı olursanız Sevinirim.

Saygılar.

 

[veyselemre]

Sub tekrarlari_sil()
For sut = 1 To 4
son = Cells(65536, sut).End(3).Row
For x = 2 To son
If WorksheetFunction.CountIf(Range(Cells(2, sut), Cells(son, sut)), Cells(x, sut)) > 1 Then
For y = son To x + 1 Step -1
If Cells(y, sut) = Cells(x, sut) Then Cells(y, sut).Delete Shift:=xlUp
Next y
End If
Next
Next sut
End Sub