Excel - макрос за извършване на изчисления и запазване на данни на друг лист

Проблем

Имам поредица от номера на клиенти в колона А. Този списък е с променлива големина.

Моята нужда е:

Разделих списъка на 40 страници.
В колона А вземам 40 сметки
Копирам и се придържам към нов лист 1.
Аз следвам 40 и ги поставям в лист 2. И т.н. ... до последния списък. Може ли да ми помогнете, защото VBA книгите за мен сега са китайски? Благодаря ти!

Решение

Пример за това как трябва да бъде:

 Под взривяване () Dim sh Като работен лист, numf As 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 Next Application.ScreenUpdating = True End Sub

Вие избирате въпросния лист преди да стартирате макроса.