اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

خلايا رأسية متعددة


إذهب إلى أفضل إجابة Solved by محمد هشام.,

الردود الموصى بها

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

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

1.xlsx

رابط هذا التعليق
شارك

  • أفضل إجابة

تفضل اخي

Sub MH_copy()
Dim i As Long
Application.ScreenUpdating = False
With Cells(1).CurrentRegion
For i = 2 To .Rows.Count Step 6
lastro = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row + 1
.Rows(i).Resize(6).Copy
 Range("c" & Rows.Count).End(xlUp)(2).PasteSpecial Transpose:=True
         Next
    End With
        If Range("c3").Value <> "" Then Range("C2:h" & lastro).Select
    With Range("C2:h" & lastro).Borders.LineStyle = xlNone
    Range("C2:h" & lastro).Borders.LineStyle = xlContinuous
    Range("a1").Select
    Application.ScreenUpdating = True
     End With
End Sub

1.xlsm

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information