حذف السجلات المكررة

[شاهر]

مرة كنت اتصفح منتدي الاكسل فاوجدة كود بالاكسل واريد تحويلة الى اكسس

وعمل الكود بختصار التشييك والبحث في السجلات عن الارقام المكرره حتي انه يعمل على البحث عن الاسماءالمكرره فيحذفها

اي المكررة فقط ويبقي على سجل واحد فقط من كل السجلات

.

هذا هو الكود ارجو التعديل مع مثل في الاكسسس مع خالص احترامي وتقدير

Sub Button1_Click()
    Worksheets("sheet1").Activate
    Range("b3:b2100").Select
    

Dim Col As Integer
Dim r As Long
Dim C As Range
Dim N As Long
Dim V As Variant
Dim Rng As Range

On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Col = ActiveCell.Column

If Selection.Rows.Count > 1 Then
    Set Rng = Worksheets("sheet1").Range("b3:b2100")

End If

N = 0
For r = Rng.Rows.Count To 1 Step -1
    V = Rng.Cells(r, 1).Value
    If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then
        Rng.Rows(r).EntireRow.Delete
        N = N + 1
    End If
Next r
 Range("b3").Select
EndMacro:
End Sub

تم تعديل يوليو 29, 2006 بواسطه شاهر

[شاهر]

اخواني الاكارم ان هذة المشارك قبل حولي اسبوعين كانت في قسم الاكسل

وتم تحويلها الى هنا ارجو الاهتم لنا الكود رائع ومفيد للجميع في البحث عن

المكررات من القيم مع خالص التحيه

[شاهر]

ايو شباب مافي اي محاولة لتعديل التجربة مع اني اعرف مفي

حجه مستحيلة علي البرمجه مع ان الاكسل من نفس اسرة الاكسس

[شاهر]

للـــــــــــــــــــــرفــــــــــــع

تم تعديل أغسطس 16, 2006 بواسطه شاهر