مساعدة من فضلكم

[salimboub24]

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

هذا مثال قبل 

واريده هكذا بهذا الشكل ان الجدول بحيث قمت بحذف كل ماهو مكرر   وقمت أيضا بجمع الارقام باللون الاصفر 

 

 

 

EXEMPLE.xlsx

[وجيه شرف الدين]

اتفضل الملف لعله يفى بالغرض

EXEMPLE.xlsx

[الـعيدروس]

السلام عليكم

اضافة الى حل الاخ مصطفى شرف

كود ان شاء الله يفي بالغرض

' اعمدة الجمع من عمود
Private Const On_C As Integer = 4
' الى عمود
Private Const End_C As Integer = 7
' مسمى عمود التكرار
Private Const Colum = "C"
Sub Ali_Def()
Dim Lr As Long, Rw As Long
Dim Col As Long
Dim DelRNG As Range
Application.ScreenUpdating = False
Lr = Range(Colum & Rows.Count).End(xlUp).Row
Set DelRNG = Range(Colum & Lr + 10)
For Rw = 2 To Lr
    If Application.WorksheetFunction.CountIf(Range(Colum & 2 & ":" & Colum & Rw), _
       Range(Colum & Rw)) > 1 Then
       Set DelRNG = Union(DelRNG, Range(Colum & Rw))
    Else '
        For Col = On_C To End_C
        Cells(Rw, Col) = Application.WorksheetFunction.SumIf(Range(Colum & ":" & Colum), Range(Colum & Rw), Columns(Col))
        Next Col
    End If
Next Rw
DelRNG.EntireRow.Delete xlShiftUp
Set DelRNG = Nothing
Application.ScreenUpdating = True
End Sub

 

تم تعديل أبريل 21, 2019 بواسطه الـعيدروس