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

MS Excel

Téma: Excel - přidání řádků

Zaslal/a patrix 3.7.2009 9:14

Potřeboval bych nějakým jednoduchým způsobem pod každý řádek z daty vložit prázdný řádek.Pracuji i z 1000 řádky a nechce se mě vkládat prázdné řádky po jednom.Ví někdo o něčem ?

Zaslat odpověď >

---

Strana:  « předchozí  1 2

marjankaj(21.11.2014 9:25)#022460

Zsolti napsal/a:

Jen mě napadlo zda by to nešlo udělat automaticky, abych nemusel mačkat tlačítko vždy když budu chtít přidat řádek, ale aby se vytvořil automaticky, když v tom posledním bude nějaký záznam.

Nechce sa ti mačkať tlačítko?
A podľa čoho má excel zistiť, či tam má vložiť riadok? Ak nájde nejaký prázdny? To by mohol vyplniť aj všetky riadky až do konca.citovat

shq32(2.6.2021 10:22)#050779

Zdravim, vlozeni prazdneho radku funguje skvele, ale potreboval bych vlozit 2 prazdne radky. Je prosim nejak resitelne? Neprisel jsem na to, jak makro nize upravit, aby vlozilo 2 prazdne radky.

Diky moc

Public Sub radky2()
Application.ScreenUpdating = False 'zakázat vykreslování v průběhu makra - zvýší rychlost
Dim radek As Single
radek = 1
Do While Cells(radek, 1) <> "" 'maximum řádků na listu, ale lze nastavit vlastní a nižší šíslo - makro pak bude rychlejší protože bude ověřovat jen třeba 2000 řádků
Rows(radek+1).EntireRow.Insert ' Cells(radek + 1, 1).EntireRow.Insert
radek = radek + 2
Loop
Application.ScreenUpdating = True 'povolit vykreslování
End Subcitovat

Stalker(2.6.2021 11:23)#050780

Public Sub radky2()
Application.ScreenUpdating = False 'zakázat vykreslování v průběhu makra - zvýší rychlost
Dim radek As Long
radek = 1
Do While Cells(radek, 1) <> "" 'maximum řádků na listu, ale lze nastavit vlastní a nižší šíslo - makro pak bude rychlejší protože bude ověřovat jen třeba 2000 řádků
Rows(radek + 1).Resize(2).EntireRow.Insert ' Cells(radek + 1, 1).EntireRow.Insert
radek = radek + 3
Loop
Application.ScreenUpdating = True 'povolit vykreslování
End Subcitovat

shq32(2.6.2021 12:23)#050781

díkycitovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse