كيف تنسخ بيانات في عمود الى عمود اخر به خلايا مدمجة ( كل خلية عبارة عن 3 خلايا)

[mohamed abdelhalim]

Book1.xlsx

[lionheart]

There are 52 names in your file not 50 names. It seems you forgot to put a sequence numbers for two students

Try the following code

Sub Test()
    Dim lr As Long, r As Long, m As Long
    Application.ScreenUpdating = False
    With Sheet1
        lr = .Cells(Rows.Count, "B").End(xlUp).Row
        m = 3
        For r = 3 To lr
            .Cells(m, 6).Value = .Cells(r, 2).Value
            .Cells(m, 7).Value = .Cells(r, 3).Value
            m = m + 3
        Next r
    End With
    Application.ScreenUpdating = True
End Sub

 

[mohamed abdelhalim]

معلش ممكن حضرتك تعملي الملف جاهز لانى مبعرفش استخدم اكواد الاكسيل

[lionheart]

It is simple my bro

Press Alt + F11 -- From Insert select Module -- Paste the code

Back to worksheet -- Press Alt + F8 -- Click Run

[mohamed abdelhalim]

برضوا معرفتش انفذ الاكواد ممكن حضرتك تعملي الملف جاهز

[2saad]

بعد إذن استاذنا اتفضل يا اخيBook1 (5).xlsm

[mohamed abdelhalim]

شكرا لحضرتك بس كنت عاوز امكانية اضيف الاسماء ولصقها زي ماحضرتك عملتها

[a.kawkab]

تفضل اخى الملف به زر لاضافة الاسماء واخر للمسح

Book1 (5).xlsm

[mohamed abdelhalim]

شكرا لحضرتك a .kawkab انا فعلا كنت محتاج الملف بالشكل دة وبشكر الاخوة الزملاء على المساعدة وجزاكم الله خيرا