طلب كود برمجي لجمع عدة خلايا متشابهه2

[هاوي اكسل]

اذا كانت الخلايا متساوية مثلا m3 و c6

يضع الرقم الموجود في L6 تحت رقم 100  ويقوم بتكراره في الخلايا التي بعد بمقدار العدد الموجود في الخلية d6

ثم يجمع خلاي العمود كامل في الخلية الموجودة تحت الرقم100

مرفق ملف

 

ورقة عمل Microsoft Excel جديد11.xlsx

[lionheart]

Try

Sub Test()
    Const sRow As Long = 6
    Dim a, b, x, rng As Range, sCol As String, lr As Long, i As Long
    Application.ScreenUpdating = False
        With ActiveSheet
            lr = .Cells(Rows.Count, "C").End(xlUp).Row
            Set rng = .Range("M3:V3")
            a = .Range("C" & sRow & ":C" & lr).Value
            b = .Range("L" & sRow & ":L" & lr).Value
            rng.Offset(1).Resize(lr - sRow + (sRow - rng.Row)).ClearContents
            For i = LBound(a) To UBound(a)
                x = Application.Match(a(i, 1), .Rows(rng.Row), 0)
                If Not IsError(x) Then .Cells(i + sRow - 1, x).Value = b(i, 1)
            Next i
            With rng.Offset(1)
                sCol = Split(rng.Cells(1).Address, "$")(1)
                .Formula = "=SUM(" & sCol & sRow & ":" & sCol & lr & ")"
                .Value = .Value
            End With
        End With
    Application.ScreenUpdating = True
End Sub

 

[هاوي اكسل]

ممتاز جداً الله يعطيك العافية                باقي التكرار

[lionheart]

You can use simple function here which is COUNTA