Excel - Makro na výpočet a ukladanie údajov na iný hárok

Problém

V stĺpci A mám sériu zákazníckych čísel. Tento zoznam má rôznu veľkosť.

Moja potreba je:

• Zoznam som rozdelil na 40 strán.
• Beriem 40 účtov v stĺpci A
• Kopírujem a držím sa nového listu 1.
• Sledujem 40 a vkladám ich do listu 2. A atď ... až do posledného zoznamu. Mohli by ste mi pomôcť, pretože knihy VBA sú pre mňa čínske? Ďakujem!

Riešenie

Ako by to malo byť:

 Sub exploding () Dim sh Ako pracovný hárok, numf As Long, riadok As Long Set sh = ActiveSheet Application.ScreenUpdating = False numf = 1: = 1 Pre lig lig sh = 1 Komu. [A65536]. Koniec (xlUp) Worksheets.Add po: = Pracovné hárky (Worksheets.Count) ActiveSheet.Name = "Part" & numf ActiveSheet.Range ("A1: A40") = sh.Cells (lig, 1). Veľkosť (40, 1). Hodnota = lig lig + numf 39 + 1 = numf lig sh.Activate Ďalšia aplikácia.ScreenUpdating = True End Sub 

Pred spustením makra vyberiete príslušný hárok.

• Ak má meno určené, nahradiť:
• Nastaviť sh = ActiveSheet
  • od:
• Nastaviť sh = pracovné hárky ("name_ofthe_sheet)