السلام عليكم أخي الكريم بها نبدأ أي موضوع ...
الرجاء عند طرح أي مشكلة التركيز على نقطة واحدة فقط .. لأن المنتدى تعليمي وليس خدمي والهدف هو أن تتعلم لا أن تنجز عملك وفقط
سأقوم بمساعدتك في النقطة الأولى وفقط وإذا أردت أن يساعدك الأخوة فقم بطرح موضوع جديد ولا تضع أكثر من مشكلة في الموضوع الواحد
** قم بتنسيط ورقة العمل المسماة "الصف الثالث دفعة 2018" ثم جرب الكود التالي ..
Sub Test()
Dim a
a = ActiveSheet.Range("A1").CurrentRegion.Value
a = Application.Index(a, Evaluate("ROW(1:" & UBound(a, 1) & ")"), [{8,7,6,5,4,3,2,1}])
With Sheets(1)
.Columns("A:H").NumberFormat = "@"
.Range("A1").Resize(UBound(a, 1), UBound(a, 2)).Value = a
.Columns.AutoFit
Application.Goto .Range("A1")
End With
End Sub