Excel: macro per eseguire il calcolo e salvare i dati su un altro foglio

Problema

Ho una serie di clienti con numeri di conto nella colonna A. Questo elenco è di dimensioni variabili.

Il mio bisogno è:

• Ho diviso l'elenco in pagine di 40 conteggi.
• Prendo 40 account nella colonna A
• Copio e applico un nuovo foglio 1.
• Sto seguendo il 40 e li incollo in un foglio 2. E così via ... fino all'ultimo. Potresti aiutarmi, perché i libri VBA per ora sono cinesi per me? Grazie!

Soluzione

Un esempio di come dovrebbe essere:

 Sub exploding () Dim sh As Foglio di lavoro, numf As Long, riga As Long Set sh = ActiveSheet Application.ScreenUpdating = False numf = 1: = 1 Per lig lig sh = 1 To. [A65536]. Fogli di lavoro Fine (xlUp). Aggiungere dopo: = Fogli di lavoro (Worksheets.Count) ActiveSheet.Name = "Parte" e numf ActiveSheet.Range ("A1: A40") = sh.Cells (lig, 1). Ridimensiona (40, 1). Valore = lig lig + numf 39 + 1 = numf lig sh.Attiva Next Application.ScreenUpdating = True End Sub 

Si seleziona il foglio in questione prima di eseguire la macro.

• Se ha un nome determinato, sostituisci:
• Imposta sh = ActiveSheet
  • di:
• Imposta sh = fogli di lavoro ("name_ofthe_sheet)