Tässä artikkelissa luomme makron jakamaan tiedot tietyn rivimäärän mukaan.
Meillä on raakatietoja taulukossa ”RawData”. Haluamme jakaa nämä tiedot useisiin arkkeihin.
Ennen makron suorittamista meidän on määritettävä kussakin taulukossa tarvittava rivien määrä.
Koodin selitys
CntRows = Cint (Sheets ("Main"). TextBox1.Value)
Yllä olevaa koodia käytetään laskemaan arkkiin tarvittavien arkkien lukumäärä.
LastRow = .Range ("A" & .Rows.Count) .End (xlUp) .Row
Yllä olevaa koodia käytetään viimeisen solun rivinumeron saamiseen.
Sheets.Add after: = Sheets (Sheets.Count)
Yllä olevaa koodia käytetään uuden arkin lisäämiseen viimeisen taulukon jälkeen.
.Range ("A" & n) .Koko (CntRows, LastColumn) .Kopioalue ("A1")
Yllä olevaa koodia käytetään kopioimaan tietty määrä rivejä uuteen laskentataulukkoon.
Seuraa koodia alla
Option Explicit Sub SplitDataToMultipleSheets () 'Ilmoittavat muuttujat Dim LastRow Long, n Niin Long, CntRows As Long Dim LastColumn As Integer' Yhdellä taulukolla vaadittavien rivien lukumäärän laskeminen CntRows = CInt (Sheets ("Main"). TextBox1.Value ) 'Näytön päivitysten poistaminen käytöstä Application.ScreenUpdating = False Sheets ("RawData")' Viimeisen solun rivinumeron ja sarakenumeron saaminen LastRow = .Range ("A" & .Rows.Count) .End (xlUp) .Row LastColumn = .Range ("A1"). SpecialCells (xlCellTypeLastCell) .Column 'Looping arkin tiedot For n = 1 to LastRow Step CntRows' Add new Sheets Sheets.Add after: = Sheets (Sheets.Count) 'Tietojen kopioiminen uusiin laskentataulukko .Range ("A" & n) .Koko (CntRows, LastColumn).
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse
