Excel: copia i dati da un intervallo di fogli a un foglio principale

Problema

Devo sviluppare una macro che raccoglierà dati da una serie di fogli in una cartella di lavoro.

La macro deve:

  • Copia i dati per un intervallo di fogli dopo il foglio chiamato "Tutte le scadenze" e prima del foglio chiamato "Modello". Quindi tutti i fogli che cadono tra il foglio "Tutte le scadenze" e il foglio "Modello".
  • Ho bisogno di tutte le righe che contengono dati dalla riga 14 in poi per i fogli dell'intervallo, ma solo per la macro per copiare le righe che includono i dati
  • Una volta avviata, la macro dovrebbe copiare i dati nel foglio chiamato "All Deadlines", incollando alla riga 3 per la prima volta e incollando i dati di ogni foglio successivo sotto l'ultima voce precedente.
  • Durante l'esecuzione, la macro dovrebbe eliminare tutti i dati dalla riga 3 e inferiori sul foglio "Tutte le scadenze" (dati raccolti dalle corse precedenti della macro).

Soluzione

Regola il codice seguente per soddisfare le tue esigenze:

 Sub MoveData () Dim ws Come foglio di lavoro Dim lRow, dRow As Integer Sheets ("Tutte le scadenze") .Rows ("3:" & Range ("A" & Rows.Count) .End (xlUp) .Row) .ClearContents For Ogni ws in fogli Se ws.Name = "Crea nuovo progetto" _ Oppure ws.Name = "Project Dashboard" _ O ws.Name = "Tutte le scadenze" _ Oppure ws.Name = "Modello" Then GoTo Nextws dRow = Fogli ( "All Deadlines"). Range ("A" & Rows.Count) .End (xlUp) .Offset (1, 0) .Row lRow = Fogli (ws.Name) .Range ("A" & Rows.Count). Fine (xlUp). Fogli di fogli (ws.Name) .Rows ("14:" & lRow). Fogli di copertine ("Tutte le scadenze"). Intervallo ("A" e dRow) Nextws: Next ws End Sub 

Grazie a TrowaD per questo suggerimento.

Articolo Precedente Articolo Successivo

I Migliori Consigli