الاخوة الاساتذة مساعدة بكود حذف الصف المكرر

[abouelhassan]

الاخوة الاساتذة 

المرجو التكرم بكود لحذف الصفوف المكررة مع ابقاء صف واحد فقط منهم

بمعنى لو وجد 20 صف مكرر بهم نفس البيانات فى كل الاعمدة يحذف 19 ويبقى واحد

مع الشكر التقدير الاحترام

1.rar

[أبو حنــــين]

السلام عليكم

استعمل هذا الكود

Private Sub CommandButton1_Click()

Dim i As Long
Set MySheet = Sheets("Sheet1")
With MySheet
Last = .Cells(Rows.Count, "A").End(xlUp).Row + 1
Application.ScreenUpdating = False
        For i = .Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If WorksheetFunction.CountIf(.Range("A2:A" & i), .Range("A" & i).Value) > 1 Then
            Rows(i & ":" & i).Delete Shift:=xlUp
            End If
        Next i
Application.ScreenUpdating = True
End With

End Sub

تم تعديل يناير 23, 2014 بواسطه أبو حنين

[أبو حنــــين]

المرفق

1.rar

[abouelhassan]

الله يبارك لك اخى الفاضل ابا حنين انت اكثر من الرائع

شكر وفائق التقدير والاحترام

[أبو حنــــين]

استدارك في الكود

هذا السطر :

            Rows(i & ":" & i).Delete Shift:=xlUp

تنقصه نقطة ليصبح بهذا الشكل

.Rows(i & ":" & i).Delete Shift:=xlUp

لاحظ وجود النقطة قبل كلمة  Rows

[أبو حنــــين]

اخي ابو الحسين

 

 

[abouelhassan]

شكر وتقدير لك اخى بارك الله فيك وحفظ حنين من كل شيطان رجيم

اخيك ابو الحسن