Excel - Ein Makro, um Berechnungen durchzuführen und Daten auf einem anderen Blatt zu speichern
![](http://img.brin-designs.com/img/games/622/excel-macro-perform-calculation.png)
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.
- Wenn er einen Namen bestimmt hat, ersetzen Sie:
- Setzen Sie sh = ActiveSheet
- durch:
- Setze sh = Worksheets ("name_ofthe_sheet")