V tomto článku vytvoríme makro na rozdelenie údajov podľa konkrétneho počtu riadkov.
V liste „RawData“ máme nespracované údaje. Tieto údaje chceme rozdeliť do viacerých hárkov.
Pred spustením makra musíme zadať požadovaný počet riadkov v každom hárku.
Vysvetlenie kódu
CntRows = Cint (hárky („hlavné“). TextBox1.Hodnota)
Vyššie uvedený kód sa používa na získanie počtu požadovaných listov v hárku.
LastRow = .Range ("A" & .Rows.Count) .End (xlUp) .Row
Vyššie uvedený kód sa používa na získanie čísla riadku poslednej bunky.
Sheets.Add after: = Sheets (Sheets.Count)
Vyššie uvedený kód sa používa na pridanie nového listu za posledný list.
.Range ("A" & n) .Resize (CntRows, LastColumn) .Copy Range ("A1")
Vyššie uvedený kód sa používa na skopírovanie určeného počtu riadkov do nového pracovného hárka.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Možnosť Explicitná čiastková položka SplitDataToMultipleSheets () 'Deklarácia premenných Dim LastRow ako dlhá, n ako dlhá, CntRows ako dlhá Dim posledného stĺpca ako celé číslo' Získanie počtu požadovaných riadkov v jednom hárku CntRows = CInt (Listy ("hlavné"). TextBox1.Value ) 'Deaktivácia aktualizácií obrazovky Application.ScreenUpdating = False With Sheets ("RawData")' Získanie čísla riadka a stĺpca poslednej bunky LastRow = .Range ("A" & .Rows.Count) .End (xlUp) .Row LastColumn = .Range ("A1"). SpecialCells (xlCellTypeLastCell). Stĺpec 'Opakovanie údajov v hárku Pre n = 1 do LastRow Krok CntRows' Pridanie nového pracovného hárka Listy.Pridať po: = Listy (Sheets.Count) 'Kopírovanie údajov do nového list .Range ("A" & n) .Resize (CntRows, LastColumn) .Copy Range ("A1") Next n .Activate End With 'Enabling screen updates Application.ScreenUpdating = True End Sub
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
