In questo articolo, creeremo una macro per dividere i dati per un numero specifico di righe.
Abbiamo i dati grezzi nel foglio “RawData”. Vogliamo dividere questi dati in più fogli.
Prima di eseguire la macro, dobbiamo specificare il numero di righe richieste in ogni foglio.
Spiegazione del codice
CntRows = Cint(Sheets("Main").TextBox1.Value)
Il codice sopra viene utilizzato per ottenere il conteggio del numero di fogli richiesti in un foglio.
LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
Il codice sopra viene utilizzato per ottenere il numero di riga dell'ultima cella.
Fogli.Aggiungi dopo:=Fogli(Fogli.Conteggio)
Il codice sopra viene utilizzato per aggiungere un nuovo foglio dopo l'ultimo foglio.
.Range("A" & n).Resize(CntRows, LastColumn).Copy Range("A1")
Il codice sopra viene utilizzato per copiare il numero specificato di righe in un nuovo foglio di lavoro.
Si prega di seguire sotto per il codice
Option Explicit Sub SplitDataToMultipleSheets() 'Dichiarazione delle variabili Dim LastRow As Long, n As Long, CntRows As Long Dim LastColumn As Integer 'Ottenimento del conteggio del numero di righe richieste in un foglio CntRows = CInt(Sheets("Main").TextBox1.Value ) 'Disabilitazione degli aggiornamenti dello schermo Application.ScreenUpdating = False With Sheets("RawData") 'Ottenimento del numero di riga e di colonna dell'ultima cella LastRow = .Range("A" & .Rows.Count).End(xlUp).Row LastColumn = .Range("A1").SpecialCells(xlCellTypeLastCell).Column 'Esplora i dati nel foglio For n = 1 To LastRow Passaggio CntRows 'Aggiunta nuovo foglio di lavoro Fogli.Aggiungi dopo:=Fogli(Fogli.Count) 'Copia dati in nuovo foglio di lavoro .Range("A" & n).Resize(CntRows, LastColumn).Copy Range("A1") Next n .Activate End With 'Abilitazione degli aggiornamenti dello schermo Application.ScreenUpdating = True End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica
