الحل بالمعادلات مش اكواد
=COUNTIFS(B2:B5;B5;E2:E5;E5)
=IF((E5=E4)*AND(C4<>"");C4;C4+1)
تفضل اخي عمر الملف بالاكواد
اي استفسار اعلمني
المدى بالملف الى السطر 41 بامكانك تزيد عليه حسب احتياجك
Sub Macro15()
'
' Macro15 Macro
Range("A2").Formula = _
"=IF(RC[1]="""","""",COUNTIFS(RC[1],RC[1],RC[4],RC[4]))"
Range("A3:A41").Formula = _
"=IF(RC[1]="""","""",COUNTIFS(R2C[1]:RC[1],RC[1],R2C[4]:RC[4],RC[4]))"
Range("C2").Formula = _
"=IF(RC[2]<>"""",1,"""")"
Range("C3:C41").Formula = _
"=IF(RC[2]="""","""",IF((RC[2]=R[-1]C[2])*AND(R[-1]C<>""""),R[-1]C,R[-1]C+1))"
End Sub