اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by lionheart,

الردود الموصى بها

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

 يضع الرقم الموجود في L6 تحت رقم 100 

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

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

مرفق ملف

 

Snap_2023.03.07_09h15m56s_003_.png

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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

 

  • Like 3
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information