Tekrar eden hucrelerin satirlarini silme

[arkanonur]

Merhaba Arkadaslar,

Uzerinde calistigim bir excel sutununda( “AI” sutunu) birbirini tekrar eden sayilar var.


Contract + levering
AI1 15604-4
AI2 15736-1
AI3 15736-1
AI4 15760-3
AI5 15735-2
AI6 15735-3
AI7 15735-4
AI8 15455-1
AI9 15455-1
AI10 15455-1

Yukaridaki ornek gibi . Ben bu sutunda ayni degerde olan hucrelerden ust satirda bulunanlari silmek istiyorum. Mesela 15455-1 uc defa tekrar ediyor. En alttaki hucre haric onun ustundeki 2 hucreyi ve bunlarin bagli oldugu butun satiri silmek istiyorum.

Soyle bir makro yazmaya calisiyorum. “AI” sutunundaki degerlere bakacak, ayni degerde hucreler varsa, bunlardan satir sayisi kucuk olani bulundugu butun satirla birlikte silecek. Yani 8. ve 9. sutunu komple silecek. 10. sutunu saklicak. Bir turlu beceremedim. Yardim edebilecek arkadaslar olursa cok sevinirim. Tesekkurler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:ad895394a8]Sub sil()
For a = [ai65536].End(3).Row To 1 Step -1
adr = "ai" & a & ":ai65536"
If WorksheetFunction.CountIf(Range(adr), Cells(a, "ai")) > 1 Then Rows(a).Delete
Next
End Sub
[/vb:1:ad895394a8]

 

[arkanonur]

Cok sagol Leventm,

Kodlar calisiyor , tesekkurler.

Onur