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

вопрос

У меня есть ряд номеров счетов клиентов в столбце А. Этот список имеет переменный размер.

Мне нужно это:

Я разделил список на 40 страниц.
Я беру 40 счетов в столбце А
Я копирую и придерживаюсь нового листа 1.
Я следую за 40, и я вставляю их в лист 2. И т. Д. ... до последнего списка. Не могли бы вы мне помочь, потому что книги на VBA сейчас для меня китайские? Спасибо!

Решение

Пример того, как это должно быть:

 Sub exploding () Dim sh As Worksheet, numf As Long, строка As Long. Sh = ActiveSheet Application.ScreenUpdating = False numf = 1: = 1 Для lig lig sh = 1 To. [A65536]. Конец (xlUp) Worksheets.Add after: = Worksheets (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

Вы выбираете рассматриваемый лист перед запуском макроса.