I denne artikel vil vi oprette en makro til at arrangere data dagligt på flere ark.
Rådata for denne artikel består af daglige salgsdata for teamet, som inkluderer dato, agentnavn og antal solgte varer.
Vi ønsker at distribuere dataene dagligt på flere ark. Hvis du klikker på knappen "Distribuer data dagligt", vil det samme gøre.
Kode forklaring
Gør indtil IsEmpty (regneark (1). Celler (intRowS, 1))
Sløjfe
I ovennævnte kode vil Do indtil -loop løkke, indtil der findes en tom celle.
strTab = Format (Celler (intRowS, 1) .Værdi, "ddmmyy")
Ovenstående kode bruges til at udtrække arknavn fra datoen.
intRowT = Regneark (strTab). Celler (Rækker.Tælling, 1). Afslut (xlUp) .Række + 1
Ovenstående kode bruges til at hente rækkenummer for den sidste celle.
Følg venligst nedenstående for koden
Underopdeling () 'Deklarationsvariabler Dim intRowS As Integer, intRowT As Integer Dim strTab As String' Initialiserer med startrækketal intRowS = 10 'Kontrol af om celle i første kolonne er tom Gør indtil der er tomt (regneark (1). Celler (intRowS, 1)) 'Hentning af arket baseret på datoværdien i den første kolonne strTab = Format (Celler (intRowS, 1) .Værdi, "ddmmyy")' Henter rækkenummeret for sidste celle intRowT = Arbejdsark (strTab). Celler (Rækker.Tælling, 1). Afslut (xlUp) .Række + 1 'Kopiering af data til respektive arkrækker (intRowS). Kopier regneark (strTab) .Rækker (intRowT) intRowS = intRowS + 1 Loop End Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet