جمع اعداد ردیفهای همسان با شماره مخصوص

[y.a.i]

یک فروشگاه داریم با مشتریهای متفاوت ، طبق فایل پیوست. اگر لیست یکسال مشتری ها وارد اکسل شده باشند و بخواهیم مبالغ خرید هرکدام را با توجه به شماره مشتری جمع کنیم از فرمول ترکیبی شرطی و ... استفاده می کنیم. فرمول خیلی خوبیه اما اگر تعداد ردیفها زیاد شده و مثلاً به 5000 و بیشتر برسد اکسل کند شده و قفل می کند. لذا خواهشمند است فرمول یا راه حل ساده ای اگر سراغ دارید بفرستید.
با تشکر

[iranweld]

با سلام

استفاده از پیوت تیبل میتواند گزینه بهتری نسبت به سایر آیتمهای موجود باشد

[y.a.i]

با تشکر فراوان از شما
اما اگر امکان داره راه حل های دیگه ای هم اگر وجود داره ترجیحاً با فرمول معرفی بفرمایید

[y.a.i]

سلام به اساتید محترم
لطفا با توجه به نیاز فوری اینجانب به راه حلی جهت حل مشکل جمع اعداد ردیفهای یکسان طبق پیوست و جلوگیری از کند شدن اکسل اگر راه حل مناسبی وجود دارد همکاری نمایید. ضمناً یکی از اساتید، پیوت تیبل را پیشنهاد دادند که ضمن تشکر از ایشان اما با توجه به اینکه باید افراد مبتدی از آن استفاده کنند و نوع کار ما استفاده از آن مقدور نیست.
با تشکر

[iranweld]

با سلام

فایل پیوست جمع را با استفاده از ویژوال بیسیک محاسبه مینماید

Sub TEST()

Application.ScreenUpdating = False
Sum = 0

Z = Cells(Rows.Count, "A").End(xlUp).Row

Range("A2:A" & Z).Font.ColorIndex = 1
Range("G2:G" & Z).Value = ""

For I = 2 To Z
For J = 2 To Z

If Range("C" & I).Value = Range("C" & J).Value And Range("A" & J).Font.ColorIndex <> 3 Then
Sum = Sum + Range("D" & J).Value
Range("A" & J).Font.ColorIndex = 3

End If
Next
Range("G" & I).Value = Sum
Sum = 0

Next

Range("A2:A" & Z).Font.ColorIndex = 1

Range("G" & Z + 1).Value = "=SUM(G2:G" & Z & ")"

Application.ScreenUpdating = True

End Sub