Distribuujte údaje zo zoznamu denných hárkov pomocou VBA

Anonim

V tomto článku vytvoríme makro na usporiadanie údajov podľa dňa na viacerých listoch.

Pôvodné údaje pre tento článok pozostávajú z denných údajov o predaji tímu, ktoré obsahujú dátum, meno agenta a počet predaných položiek.

Chceme údaje distribuovať po dňoch na viacero hárkov. To isté urobíte kliknutím na tlačidlo „Distribuovať údaje denne“.

Vysvetlenie kódu

Robiť, kým nie je prázdny (pracovné listy (1). Bunky (intRowS, 1))

Slučka

Vo vyššie uvedenom kóde sa slučka Do until bude opakovať, kým nenarazí na prázdnu bunku.

strTab = Formát (bunky (intRowS, 1). Hodnota, „ddmmyy“)

Vyššie uvedený kód sa používa na extrakciu názvu listu z dátumu.

intRowT = pracovné listy (strTab). Bunky (počet riadkov, 1). Koniec (xlUp). riadok + 1

Vyššie uvedený kód sa používa na získanie čísla riadku poslednej bunky.

Pri kódovaní postupujte podľa nižšie uvedených pokynov

Sub Divide () 'Deklarovanie premenných Dim intRowS As Integer, intRowT As Integer Dim strTab As String' Inicializácia s počiatočným číslom riadka intRowS = 10 'Kontrola, či je bunka v prvom stĺpci prázdna Vykonať do IsEmpty (pracovné listy (1). Bunky (intRowS, 1)) 'Získanie názvu hárka na základe hodnoty dátumu v prvom stĺpci strTab = Formát (Bunky (intRowS, 1). Hodnota, "ddmmyy")' Získanie čísla riadka poslednej bunky intRowT = Pracovné listy (strTab). Bunky (riadky. Počet, 1). Koniec (xlUp). Riadok + 1 'Kopírovanie údajov do príslušných riadkov hárka (intRowS). Skopírujte pracovné listy (strTab). Riadky (intRowT) intRowS = intRowS + 1 koniec slučky 

Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.

Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku