تحويل الاعداد من الحالة الافقية الى تسلسل راسي

[خير الايمان]

السلام عليكم ورحمة الله وبركاته
اساتذتنا الكرام
اسأل الله لكم تمام الصحة والعافية
برجام حل مشكلة تحويل الاعداد من الى الموجودة بالمرفق
الى الوضع المقابل بالجدول بنفس المرفق
دمتم بحفظ الله وامنه
 

Group.rar

تم تعديل مايو 1 بواسطه خير الايمان

[lionheart]

Try

Sub Test()
    Dim ws As Worksheet, m As Long, i As Long, ii As Long
    Application.ScreenUpdating = False
        Set ws = ActiveSheet: m = 2
        With ws
            .Columns("K:M").Clear
            .Columns("M").ColumnWidth = 11
            With .Range("K1").Resize(, 3)
                .Value = Array("Group", "Number", "Work Date")
                .Interior.Color = RGB(146, 205, 220)
                .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter
            End With
            For i = 2 To 6
                If .Cells(i, 2).Value < .Cells(i, 3).Value And IsNumeric(.Cells(i, 2).Value) And IsNumeric(.Cells(i, 2).Value) Then
                    For ii = .Cells(i, 2).Value To .Cells(i, 3).Value
                        .Cells(m, "K").Resize(, 3).Value = Array(.Cells(i, 1).Value, ii, .Cells(i, 4).Value)
                        m = m + 1
                    Next ii
                End If
            Next i
        End With
    Application.ScreenUpdating = True
End Sub

 

[خير الايمان]

استاذي الخلوق

lionheart

لا يسع حرفي ان يوفي من شكر لسرعة الاستجابة وعبقرية الحل

اسأل الله لك الصحة والعافية

وعذرا لو سمح وقت حضرتك اضافة عمود اخر بعنوان تاريخ الانتهاء

دمت وادامك الله بكل الخير

تقديري

[lionheart]

Try to read the code to add a fourth column in the output. The code is so simple to read