استخراج قيمة فريدة من القيم المتكررة

[nisshaheen]

السلام عليكم إخوتي الأفاضل

أرفق لحضراتكم ملفي هذا بداخله المطلوب حاولت جاهدة لإنجاز ما أرغب به من حيث استخراج اسم كل شخص دون تكرار وتجميع القيم الغير مدفوعة 

والمطلوب الاخر عند الاستخراج لا يتم استخراج الصفوف الفارغة والصفوف التي بها أسماء أشخاص  والقيم بالمقابل في عمود unpaid فارغة

وشكرا

[Ali Mohamed Ali]

وعليكم السلام

أين الملف ؟!!!!!!!!!!!!!!

[سليم حاصبيا]

مع عدم ارسال ملف للمعالجة

ربما هذا النموذج يفي بالغرض

الكود

Option Explicit
Sub My_sum()
Dim Dic As Object
Dim i%, k, Itm, Laste_Row%
Laste_Row = Cells(Rows.Count, 1).End(3).Row
If Laste_Row < 5 Then Exit Sub
Range("b1:Z2").ClearContents
Set Dic = CreateObject("Scripting.Dictionary")

With Dic
        For i = 5 To Laste_Row
            If Range("a" & i) <> vbNullString Then
               k = Range("a" & i)
               Itm = Application.Sum(Range("b" & i).Resize(, 5))
                    If Not .Exists(k) Then
                      .Add k, Itm
                    Else
                          Select Case Range("I4")
                              Case "ALL": Dic(k) = Dic(k) + Itm
                              Case Else: Dic(k) = Itm
                          End Select
                    End If
              End If
          Next
         Range("B1").Resize(1, .Count) = .keys
         Range("B2").Resize(1, .Count) = .Items
 End With
 '===============
End Sub

الملف مرفق

 

Sum_by_diuctionary.xlsm