În acest articol, vom crea o macro pentru a aranja datele pe zi pe mai multe foi.
Datele brute pentru acest articol conțin date de vânzări ale echipei pe zi, care includ Data, Numele agentului și Numărul articolelor vândute.
Vrem să distribuim datele pe zi pe mai multe foi. Dacă faceți clic pe butonul „Distribuiți datele pe zi”, se va proceda la fel.
Explicarea codului
Faceți până când IsEmpty (foi de lucru (1). Celule (intRowS, 1))
Buclă
În codul de mai sus, bucla Do Until va face loop până când se întâlnește o celulă goală.
strTab = Format (Celule (intRowS, 1). Valoare, "ddmmyy")
Codul de mai sus este folosit pentru a extrage numele foii din dată.
intRowT = Worksheets (strTab) .Cells (Rows.Count, 1). End (xlUp) .Row + 1
Codul de mai sus este utilizat pentru a obține numărul rândului ultimei celule.
Vă rugăm să urmați codul de mai jos
Sub Divide () 'Declararea variabilelor Dim intRowS Integer, intRowT As Integer Dim strTab As String' Inițializarea cu numărul rândului inițial intRowS = 10 'Verificarea dacă celula din prima coloană este goală Faceți până când IsEmpty (Worksheets (1). Cells (intRowS, 1)) 'Obținerea numelui foii pe baza valorii datei din prima coloană strTab = Format (Celule (intRowS, 1). Valoare, "ddmmyy")' Obținerea numărului rândului ultimei celule intRowT = Worksheets (strTab). Celule (Rows.Count, 1) .End (xlUp) .Row + 1 'Copierea datelor în rândurile respective ale foii (intRowS). Copierea foilor de lucru (strTab). Rows (intRowT) intRowS = intRowS + 1 Loop End Sub
Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail