هاوي اكسل قام بنشر مارس 7, 2023 مشاركة قام بنشر مارس 7, 2023 اذا كانت الخلايا متساوية مثلا m3 و c6 يضع الرقم الموجود في L6 تحت رقم 100 ويقوم بتكراره في الخلايا التي بعد بمقدار العدد الموجود في الخلية d6 ثم يجمع خلاي العمود كامل في الخلية الموجودة تحت الرقم100 مرفق ملف ورقة عمل Microsoft Excel جديد11.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر مارس 7, 2023 أفضل إجابة مشاركة قام بنشر مارس 7, 2023 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 3 رابط هذا التعليق شارك More sharing options...
هاوي اكسل قام بنشر مارس 7, 2023 الكاتب مشاركة قام بنشر مارس 7, 2023 ممتاز جداً الله يعطيك العافية باقي التكرار رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر مارس 7, 2023 مشاركة قام بنشر مارس 7, 2023 You can use simple function here which is COUNTA رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.