Excel - Ein Makro, um Berechnungen durchzuführen und Daten auf einem anderen Blatt zu speichern

Problem

Ich habe eine Reihe von Kontonummern Kunden in Spalte A. Diese Liste ist von variabler Größe.

Mein Bedürfnis ist:

Ich habe die Liste in 40 Seiten aufgeteilt.
Ich nehme 40 Konten in Spalte A
Ich kopiere und halte mich an ein neues Blatt 1.
Ich verfolge die 40 und füge sie in ein Blatt 2 ein. Und so weiter ... bis zum Ende der Liste. Könnten Sie mir helfen, weil VBA-Bücher für mich jetzt chinesisch sind? Vielen Dank!

Lösung

Ein Beispiel, wie es sein sollte:

 Sub exploding () Dim sh As Arbeitsblatt, numf As Long, Zeile As Long Set sh = ActiveSheet Application.ScreenUpdating = False numf = 1: = 1 Für lig lig sh = 1 To. [A65536]. End (xlUp) Worksheets.Add after: = Arbeitsblätter (Worksheets.Count) ActiveSheet.Name = "Part" & numf ActiveSheet.Range ("A1: A40") = sh.Cells (lig, 1). Größe ändern (40, 1). Wert = lig lig + numf 39 + 1 = numf lig sh.Activate Next Application.ScreenUpdating = True End Sub

Sie wählen das betreffende Blatt aus, bevor Sie das Makro ausführen.