أخي العزيز
هذا هو المطلوب بالضبط
لكن
رغم نسخ الأسطر الأربعة التي أضفتها لم تفلح محاولاتي بتطبيق العمل على الملف الأصلي
Cells(Rows.Count, 15).End(xlUp)(-1).Formula = "=SUM(RC[-10]:RC[-1])/10"
Cells(Rows.Count, 26).End(xlUp)(-1).Formula = "=SUM(RC[-10]:RC[-1])/10"
Cells(Rows.Count, 37).End(xlUp)(-1).Formula = "=SUM(RC[-10]:RC[-1])/10"
Cells(Rows.Count, 48).End(xlUp)(-1).Formula = "=SUM(RC[-10]:RC[-1])/10"
فهل هناك شيء آخر
أرجو التوضيح لأني أقوم بنقل العملية للملف الأصلي وهناك صعوبة
وسؤال صغير مالفرق بين السطر الأسود والأخضر بالبرمجة؟
ومالفرق بين السطر العادي والسطر الذي يبتدأ بنقطة ؟
والسلام ختام