Dati Spalato in un foglio per numero specifico di righe utilizzando VBA in Microsoft Excel
In questo articolo, creeremo una macro per dividere i dati per un numero specifico di righe.
Abbiamo dati grezzi nel foglio “RawData”. Vogliamo suddividere 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 precedente viene utilizzato per ottenere il numero di riga dell’ultima cella.
Sheets.Add after: = Sheets (Sheets.Count)
Il codice sopra viene utilizzato per aggiungere un nuovo foglio dopo l’ultimo foglio.
Il codice sopra viene utilizzato per copiare il numero specificato di righe in un nuovo foglio di lavoro.
Segui sotto per il codice
Option Explicit
Sub SplitDataToMultipleSheets()
'Declaring variables
Dim LastRow As Long, n As Long, CntRows As Long
Dim LastColumn As Integer
'Getting count of number of rows required in one sheet
CntRows = CInt(Sheets("Main").TextBox1.Value)
'Disabling screen updates
Application.ScreenUpdating = False
With Sheets("RawData")
'Getting row number and column number of last cell
LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
LastColumn = .Range("A1").SpecialCells(xlCellTypeLastCell).Column
'Looping through data in the sheet
For n = 1 To LastRow Step CntRows
'Adding new worksheet
Sheets.Add after:=Sheets(Sheets.Count)
'Copying data to new worksheet
.Range("A" & n).Resize(CntRows, LastColumn).Copy Range("A1")
Next n
.Activate
End With
'Enabling screen updates
Application.ScreenUpdating = True
End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook e Facebook.
Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]