Excel - Makro do wykonywania obliczeń i zapisywania danych na innym arkuszu

Kwestia

Mam serię numerów kont klientów w kolumnie A. Ta lista ma zmienny rozmiar.

Moja potrzeba to:

Podzieliłem listę na 40 stron.
Biorę 40 kont w kolumnie A
Kopiuję i trzymam się nowego arkusza 1.
Idę za 40 i wklejam je do arkusza 2. I itd ... aż do ostatniej listy. Czy możesz mi pomóc, ponieważ książki VBA na razie są dla mnie chińskie? Dziękuję Ci!

Rozwiązanie

Przykład tego, jak powinien wyglądać:

 Sub exploding () Dim sh Jako Worksheet, numf As Long, wiersz As Long Set sh = ActiveSheet Application.ScreenUpdating = False numf = 1: = 1 Dla lig lig sh = 1 To. [A65536]. End (xlUp) Arkusze .Dodaj po: = Arkusze (Worksheets.Count) ActiveSheet.Name = "Part" & numf ActiveSheet.Range ("A1: A40") = sh.Cells (lig, 1). Zmień rozmiar (40, 1). Wartość = lig lig + numf 39 + 1 = numf lig sh.Activate Next Application.ScreenUpdating = True End Sub

Wybierasz dany arkusz przed uruchomieniem makra.