V tomto článku vytvoříme makro, které uspořádá data podle dne na více listech.
Nezpracovaná data pro tento článek se skládají z denních údajů o prodeji týmu, které zahrnují datum, jméno agenta a počet prodaných položek.
Chceme data distribuovat po dnech na více listů. Totéž uděláte kliknutím na tlačítko „Distribuovat data po dni“.
Vysvětlení kódu
Do Do IsEmpty (pracovní listy (1) .Cells (intRowS, 1))
Smyčka
Ve výše uvedeném kódu se smyčka Do Before bude opakovat, dokud nenajdete prázdnou buňku.
strTab = Formát (buňky (intRowS, 1). hodnota, "ddmmyy")
Výše uvedený kód se používá k extrakci názvu listu z data.
intRowT = pracovní listy (strTab). buňky (řádky. počet, 1). konec (xlUp). řádek + 1
Výše uvedený kód se používá k získání čísla řádku poslední buňky.
Pro kód prosím postupujte níže
Sub Divide () 'Deklarace proměnných Dim intRowS As Integer, intRowT As Integer Dim strTab As String' Inicializace s počátečním číslem řádku intRowS = 10 'Kontrola, zda je buňka v prvním sloupci prázdná Do Do IsEmpty (pracovní listy (1) .Cells (intRowS, 1)) 'Získání názvu listu na základě hodnoty data v prvním sloupci strTab = Format (Cells (intRowS, 1) .Value, "ddmmyy")' Získání čísla řádku poslední buňky intRowT = listy (strTab). Buňky (počet řádků, 1). Konec (xlUp). Řádek + 1 'Kopírování dat do příslušných řádků listu (intRowS). Kopírování pracovních listů (strTab). Řádky (intRowT) intRowS = intRowS + 1 konec smyčky Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail