V tem članku bomo ustvarili makro za dnevno razporeditev podatkov na več listih.
Neobdelani podatki za ta članek so dnevni podatki o prodaji ekipe, ki vključujejo datum, ime zastopnika in število prodanih artiklov.
Podatke želimo dnevno razporediti na več listov. Enako storite s klikom na gumb »Porazdeli podatke po dnevih«.
Razlaga kode
Naredi do IsEmpty (delovni listi (1). Celice (intRowS, 1))
Zanka
V zgornji kodi se bo zanka Do Dokler vrtela, dokler se ne pojavi prazna celica.
strTab = Oblika (celice (intRowS, 1) .Vrednost, "ddmmyy")
Zgornja koda se uporablja za ekstrahiranje imena lista od datuma.
intRowT = Delovni listi (strTab). Celice (Rows.Count, 1) .End (xlUp) .Row + 1
Zgornja koda se uporablja za pridobitev številke vrstice zadnje celice.
Za kodo sledite spodaj
Sub Divide () 'Razglasitev spremenljivk Zatemni intRowS kot celo število, intRowT kot celo število Dim strTab As String' Inicializirano z začetno številko vrstice intRowS = 10 'Preverjanje, ali je celica v prvem stolpcu prazna Do Do IsEmpty (Delovni listi (1). Celice (intRowS, 1)) 'Pridobivanje imena lista na podlagi vrednosti datuma v prvem stolpcu strTab = Oblika (celice (intRowS, 1) .Vrednost, "ddmmyy")' Pridobivanje številke vrstice zadnje celice intRowT = Delovni listi (strTab). Celice (Rows.Count, 1) .End (xlUp) .Row + 1 'Kopiranje podatkov v ustrezne vrstice listov (intRowS) .Kopiranje delovnih listov (strTab) .Rows (intRowT) intRowS = intRowS + 1 Loop End Sub
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte