• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Hromadne pridani jednoho praradku kazdy 20.radek

Zaslal/a Intos 12.8.2013 11:09

Potrebuji vlozit za kazdy 20. radek tabulky jeden prazdny radek - v podstate rozdelit tabulku na bloky po dvaceti radcich, oddelene jednim prazdnym radkem. Poradi nekdo, jak na to? Dekuji.

Zaslat odpověď >

---

Opičák(12.8.2013 11:53)#014650

zkus tohle:
Sub radek20()
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For radek = 1 To lastRow Step 20
Rows(radek & ":" & radek).Insert Shift:=xlDown
Next
End Sub
poslední řádek zjišťuje podle sloupce A, pokud potřebujete jinak - změňtecitovat

Opičák(12.8.2013 12:08)#014651

Sub radek20()
n = 0
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For radek = 21 To lastRow Step 20
Rows(radek + n & ":" & radek + n).Insert Shift:=xlDown
n = n + 1
Next
End Sub

možná takto, nevím jak je to s nadpisycitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse