U ovom ćemo članku stvoriti makronaredbu za podjelu podataka prema određenom broju redaka.
Imamo sirove podatke u listu "RawData". Ove podatke želimo podijeliti u više listova.
Prije izvođenja makronaredbe moramo odrediti broj potrebnih redaka u svakom listu.
Objašnjenje koda
CntRows = Cint (Tablice ("Glavni"). TextBox1.Vrijednost)
Gornji kôd koristi se za dobivanje broja potrebnih listova na listu.
LastRow = .Range ("A" & .Rows.Count) .End (xlUp) .Row
Gornji kôd koristi se za dobivanje broja retka zadnje ćelije.
Sheets.Add after: = Sheets (Sheets.Count)
Gornji kôd koristi se za dodavanje novog lista nakon posljednjeg lista.
.Range ("A" & n) .Resize (CntRows, LastColumn) .Copy Range ("A1")
Gornji kôd koristi se za kopiranje određenog broja redaka na novi radni list.
Molimo slijedite dolje za kôd
Opcija Eksplicitni pod SplitDataToMultipleSheets () 'Deklariranje varijabli Dim LastRow As Long, n As Long, CntRows As Long Dim LastColumn As Integer' Dobivanje broja potrebnih redova na jednom listu CntRows = CInt (Sheets ("Main"). TextBox1.Value ) 'Onemogućavanje ažuriranja zaslona Application.ScreenUpdating = False With Sheets ("RawData")' Dobivanje broja retka i broja stupca zadnje ćelije LastRow = .Range ("A" & .Rows.Count) .End (xlUp) .Row LastColumn = .Range ("A1"). SpecialCells (xlCellTypeLastCell) .Column 'Ponavljanje podataka na listu za n = 1 do LastRow koraka CntRows' Dodavanje novih listova radnog lista.Dodaj nakon: = listova (listova.broj) 'Kopiranje podataka u novo radni list .Range ("A" & n) .Promijeni veličinu (CntRows, LastColumn) .Raspon kopiranja ("A1") Sljedeći n. Aktiviraj End With 'Omogućavanje ažuriranja zaslona Application.ScreenUpdating = True End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte