In questo articolo, creeremo una macro per organizzare i dati giorno per giorno su più fogli.
I dati grezzi per questo articolo sono dati di vendita giornalieri del team, che includono data, nome dell'agente e numero di articoli venduti.
Vogliamo distribuire i dati giorno per giorno su più fogli. Facendo clic sul pulsante "Distribuisci i dati per giorno", farà lo stesso.
Spiegazione del codice
Esegui fino a quando non è vuoto (fogli di lavoro (1). Celle (intRowS, 1))
Ciclo continuo
Nel codice sopra, il ciclo Do Until eseguirà un ciclo fino a quando non verrà rilevata una cella vuota.
strTab = Format(Cells(intRowS, 1).Value, "ddmmyy")
Il codice sopra viene utilizzato per estrarre il nome del foglio dalla data.
intRowT = Fogli di lavoro(strTab).Cells(Rows.Count, 1).End(xlUp).Row + 1
Il codice sopra viene utilizzato per ottenere il numero di riga dell'ultima cella.
Si prega di seguire sotto per il codice
Sub Divide() 'Dichiarazione delle variabili Dim intRowS As Integer, intRowT As Integer Dim strTab As String 'Inizializzazione con numero di riga iniziale intRowS = 10 'Controllo se la cella nella prima colonna è vuota Do Until IsEmpty(Worksheets(1).Cells(intRowS, 1)) 'Ottenere il nome del foglio in base al valore della data nella prima colonna strTab = Format(Cells(intRowS, 1).Value, "ddmmyy") 'Ottenere il numero di riga dell'ultima cella intRowT = Worksheets(strTab). Cells(Rows.Count, 1).End(xlUp).Row + 1 'Copia dei dati nel rispettivo foglio Rows(intRowS).Copy Worksheets(strTab).Rows(intRowT) intRowS = intRowS + 1 Loop 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