الترحيل من الشيت رقم 1 الى الشيت رقم 2 مع تكرار كل سطر حسب عدد المرات الموجودة في الخلية

[BAbGHDADI]

كيف يمكنني الترحيل من الشيت رقم 1 الى الشيت رقم 2 مع تكرار كل سطر حسب عدد المرات الموجودة في الخلية. . وتكرار العملية حتى اخر سطر يتوفر على بيانات في الشيت 1 

وشكرا 

 

TESTE55.xlsx

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

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

يمكن اعادة نسخ البيانات السابقة الى الشيت Feuiil2

او نسخ المعادلات من الشيت  Feuiil1 الى ملفك

الملف مرفق

 

BAbGHDADI.xlsx

[محي الدين ابو البشر]

من بعد أذنك استاذ سليم

طريقة أخرى

TESTE55 With code.xlsm

[BAbGHDADI]

اعتذر واتاسف عن تاخري في الرد .

شكرا جزيلاً لكل من الاستاد محي الدين ابو البشر  والاستاد سليم حاصبيا 

واقل ما يقال عن هدا العمل .  انه رااائع جدا

شكراً على مساعدتكم دون مقابل، فهو شعور لا يمكن وصفه بالكلام.

 

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

بارك الله فيك استاذ محي الدين

وهذا ماكرو اخر لنفس الهدف (زيادة في اثراء الموضوع)

Option Explicit

Sub Expand_Me()
Dim i%, M%, y%, x As Byte
M = 2
y = Sheets("Feuil1").Range("A1"). _
   CurrentRegion.Rows.Count
   If y = 1 Then Exit Sub
    With Sheets("Feuil2")
          .Range("A1").CurrentRegion.ClearContents
          .Range("A1").Resize(, 14).Value = _
           Sheets("Feuil1").Range("A1").Resize(, 14).Value
        For i = 2 To y
          x = Sheets("Feuil1").Range("G" & i)
         .Range("A" & M).Resize(x, 14).Value = _
         Sheets("Feuil1").Range("A" & i).Resize(, 14).Value
         M = x + M
        Next i
    End With
End Sub

 

[BAbGHDADI]

استسمح يا اخوتي . ولكن الmacro لا يعمل في حالة وجود بيانات كتيرة 

االمتال موجود في  TESTE55 With code (2).xlsm

[محي الدين ابو البشر]

وهكذا؟

TESTE55 With code (2).xlsm

[BAbGHDADI]

بارك الله فيك استاذ سليم حاصبيا 

وبارك الله فيك استاذ محي الدين