طلب نقل البيانات من كونها عمودية إلى أفقية

[حامل المسك]

السلام عليكم ورحمة الله،،

وأسعد الله أوقاتكم بالخيرات والمسرات،،

أساتذتنا الفضلاء لدي بيانات في عمود اكسل كثيرة، وهي على النحو التالي:

العمود a

N1

FN1

Item1

N2

FN2

Item2

N3

FN3

Item3

N4

FN4

Item4

فنلاحظ أن كل ثلاث أسطر تتعلق بأمر واحد مع ملاحظة اتحاد أول الحروف، المطلوب جعل البيانات أفقية وهذه يمكن عن طريق النسخ واللصق ولكن أحتاج أن آخذها واحدة واحدة وهو مرفق فكيف أجعلها جميعا على النحو التالي

N1	FN1	Item1
N2	FN2	Item2

حفظكم الله ورعاكم،،

مرفق المثال

البيانات عرضية.xlsx

[lionheart]

Sub Test()
    Dim a, r As Long, i As Long
    Application.ScreenUpdating = False
        r = 2
        For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row Step 3
            a = Range("A" & i).Resize(3).Value
            Cells(r, "C").Resize(, UBound(a)).Value = Application.Transpose(a)
            r = r + 1
        Next i
    Application.ScreenUpdating = True
End Sub

 

[حامل المسك]

سلمت يمناك ولا عدمنا،، ألف ألف شكر وتقدير،،

وفقكم الله ظهرت مشكلة 

أن هناك بعض الأسطر المتداخلة في قائمة العمود مما جعلت الأمر يختل عن نسخ كل ثلاث خانات وتحويلها للأفقي

فهل بالإمكان تقييد أن الخلية إذا بدأت ب N  يأخذ ثلاث خانات ويضعها بشكل أفقي وهكذا بحيث لا يحسب السطر الرابع 

N1

FN1

Item1

N2

FN2

Item2

N3

FN3

Item3

N4

FN4

Item4

itemx

N5

FN5

Item5

N6

FN6

Item6

N7

FN7

Item7

N8

FN8

Item8

N9

FN9

Item9

N10

FN10

Item10

فنلاحظ خانة itemx تخلف الترتيب كاملا..

رعاكم الله،،

[omar elhosseini]

شاهد المرفق

 

N1	FN1	Item1
N2	FN2	Item2
N3	FN3	Item3
N4	FN4	Item4
		itemx
N5	FN5	Item5
N6	FN6	Item6
N7	FN7	Item7
N8	FN8	Item8
N9	FN9	Item9
N10	FN10	Item10

Test_1.xls