معادلة تكرار مضمون الخلايا بعدد معين

[asd2000]

يسعد مساكم

عندي أرقام في خلايا

A2 

A3

A4

الخ

احتاج تكرار كل خليه حسب الرقم الموجود في C2

بالمعادلات وليس بالاكواد

مرفق لكم ملف توضيح

8.xlsx

[Ali Mohamed Ali]

يمكنك استخدام معادلة المصفوفة ( Ctrl+Shift+Enter) .... من أعمال استاذنا سليم حاصبيا له منا كل المحبة والإحترام

=IFERROR(IF(ROW($C$2)>SUM($C$2),"",INDEX($A$2:$A$100,MATCH(FALSE, COUNTIF($E$1:E1,$A$2:$A$100)=$C$2,0))),"")

81.xlsx

[سليم حاصبيا]

مشكور استاذ علي على هذه المغادلة

لكن انت تعرفني اني لا أحب دالة  IFERROR   ولا استعملها الا في الحالات الضرورية حيث لا مفر منها

لانها تجبر البرنامج على حساب المعادلة  واذا كان هناك حطأ يضع فراغ (هذا شيء شرحته في مشاركات سابقة عديدة)

لذلك اقترح هذا المعالة  في العامود H  مثلاً  الخلية 2 :

=IF(ROWS($H$2:H2)>$C$2*COUNTA($A$2:$A$100),"",INDEX($A$2:$A$100,MATCH(FALSE, COUNTIF($H$1:H1,$A$2:$A$100)=$C$2,0)))

الملف مرفق

Repeat _by_choise.xlsx

[سليم حاصبيا]

ألملف بواسطة الماكرو

Option Explicit
Sub Repeat_by_choise()
Dim i%, K%, lr%, m%, Mot$
Mot = "النتيجه المطلوبه"
With Sheets("ورقة1")
  .Range("k1").CurrentRegion.ClearContents
  .Range("k1") = Mot
  lr = .Cells(Rows.Count, 1).End(3).Row
  K = IIf(Val(.Cells(2, 3)) <= 0, 2, Int(.Cells(2, 3)))
  .Cells(2, 3) = K
  m = 2
      For i = 2 To lr
        .Cells(m, "K").Resize(K).Value = _
        .Cells(i, 1).Value
        m = m + K
      Next
End With
End Sub

 

Repeat _by_choise.xlsm

[abouelhassan]

شكر وتقدير واحترام استاذ على واستاذ سليم

ابداع والله ماشاء الله