I den här artikeln kommer vi att skapa ett makro för att ordna data dagligen på flera blad.
Rådata för den här artikeln består av dagliga säljdata för teamet, vilket inkluderar datum, agentnamn och antal sålda varor.
Vi vill distribuera data dagligen på flera blad. Om du klickar på knappen "Distribuera data dagligen" gör du detsamma.
Kodförklaring
Gör tills IsEmpty (kalkylblad (1). Celler (intRowS, 1))
Slinga
I ovanstående kod går Do Till -slingan tills en tom cell påträffas.
strTab = Format (Cells (intRowS, 1) .Value, "ddmmyy")
Ovanstående kod används för att extrahera bladnamnet från datumet.
intRowT = Worksheets (strTab) .Cells (Rows.Count, 1) .End (xlUp) .Row + 1
Ovanstående kod används för att få radnummer för den sista cellen.
Följ koden nedan
Sub Divide () 'Deklarationsvariabler Dim intRowS As Integer, intRowT As Integer Dim strTab As String' Initierar med startradnummer intRowS = 10 'Kontrollera om cellen i första kolumnen är tom Gör tills det är tomt (kalkylblad (1). Celler (intRowS, 1)) 'Skaffa bladets namn baserat på datumvärdet i den första kolumnen strTab = Format (Cells (intRowS, 1) .Value, "ddmmyy")' Få radnumret för den sista cellen intRowT = Worksheets (strTab). Celler (Rader.räkning, 1) .Slut (xlUp) .Rad + 1 'Kopierar data till respektive bladrader (intRowS) .Kopiera kalkylblad (strTab) .Rader (intRowT) intRowS = intRowS + 1 Loop End Sub
Om du gillade den här bloggen, dela den med dina vänner på Facebook. Du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen