Aynı Satırlardan Birini Silmek

[ta2uk]

Elimde 5 sütundan oluşan bir tabloda, bazı satırlar birbirinin aynısı. (A15-B15-C15-D15-E15 Sütunları ile A135-B135-C135-D135-E135 Sütunları aynı değerleri içeriyor gibi) Bu şekilde birbirinin aynı olan satırları silerek sadece birisinin kalmasını istiyorum.

Başka bir deyişle Örnek dosyadaki 2, 5 ve 7. satırlar birbirinin aynıdır ve ben sadece birinin kalmasını istiyorum.

teşekkürler şimdiden.

 

[Ergün Güler]

Selam,
Dosyanızı 2003 (*.xls) formatında yeniden güncelleseniz daha iyi olurdu.
İyi çalışmalar.

 

[zassaz]

mrb benim de aynen bunun gibi bir sorunum var. cevaplarınızı bekliyoruz...

 

[tahsinanarat]

A : E sutununa kadar aynı olan satırları siler kırmızı yeri kendinize göre uyarlayınız.
Option Explicit
Sub Sil()
Dim i As Long, son As Long
Application.ScreenUpdating = False
On Error Resume Next
son = [A65536].End(3).Row
Range("A1:E" & son).AdvancedFilter xlFilterInPlace, , , True
For i = son To 2 Step -1
If Not Cells(i, "a").EntireRow.Hidden = False Then
Rows(i).Delete
End If
Next i
ActiveSheet.ShowAllData
Application.ScreenUpdating = True
End Sub