MS Excel

Téma: vloženie viacerých prázdnych riadkov medzi bunky

Zaslal/a coffey33 16.12.2011 10:55

Dá sa nejakou fintou vložiť napr. 50 prázdnych riadkov medzi 50 vyplnených riadkov s údajmi tak aby výsledkom bolo:
1. riadok s údajom
2. riadok prázdny
3. riadok s údajom
4.riadok prázdny ...atď
Vďaka

Zaslat odpověď >

Poki(16.12.2011 12:28)#006728

asi takto:
Sub Prazdne_radky()
Dim i As Long
Dim Pocet As Long

Pocet = 50

For i = 2 To Pocet * 2 Step 2
Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next i
End Subcitovat