Excel - ماكرو لإجراء الحساب وحفظ البيانات في ورقة أخرى

القضية

لدي سلسلة من أرقام حسابات العملاء في العمود أ. هذه القائمة هي ذات حجم متغير.

احتياجي هو:

لقد قسمت القائمة إلى صفحات من 40 عددًا.
آخذ 40 حسابًا في العمود أ
أنا أنسخ وألتزم بصفقة جديدة 1.
أتابع الأربعين وألصقهم في ورقة 2. وما إلى ذلك ... حتى آخر القائمة. هل يمكنك مساعدتي ، لأن كتب VBA في الوقت الحالي هي لغة صينية بالنسبة لي؟ شكرا لكم!

حل

مثال على كيف ينبغي أن يكون:

 Exploding Sub () Dim sh As ورقة عمل ، numf Long ، صف As Long Set sh = ActiveSheet Application.ScreenUpdating = False numf = 1: = 1 بالنسبة lig lig sh = 1 To. [A65536]. End (xlUp) Worksheets.Add after: = أوراق العمل (Worksheets.Count) ActiveSheet.Name = "Part" & numf ActiveSheet.Range ("A1: A40") = sh.Cells (lig ، 1). تغيير الحجم (40 ، 1). القيمة = lig lig + numf 39 + 1 = numf lig sh.Activate التطبيق التالي. ScreenUpdating = True End Sub

يمكنك تحديد الورقة المعنية قبل تشغيل الماكرو.