Znenie otázky je takéto: „Povedzme že mám v liste 3000 vyplnených riadkov. Ako by som mohol pridať pod každý vyplnený riadok jeden prázdny? Samozrejme, že ručne označiť všetky jednotlivo a potom dať "INSERT" ma neláka... Môžete mi prosím pomôcť? Ináč díky za fajn tipy. "
VBA kód je jednoduchý a nepredpokladá zachytávanie chýb a vyžaduje aby pred spustením makra bola aktívna bunka na správnom mieste v tabuľke (v tomto prípade A1). V opačnom prípade môžu byť prázdne riadky inak posunuté. Aby kód nemuseli ručne upravovať aj používatelia bez znalosti programovania, tak som pridal odkaz na bunku F1, ktorá obsahuje počet opakovaní pri vložení riadkov. Tam si stačí zadať koľko riadkov máte v tabuľke kde budete pridávať prázdne riadky.
VBA kód vyzerá takto:
Sub vloz_riadky()
For i = 0 To Range("F1") Step 1
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Range("A1").Select
Next i
End Sub
Tento kód bude svoju činnosť vykonávať pri 3000 riadkoch niekoľko sekúnd. Možno existuje aj efektnejšie riešenie, ale v tejto chvíli ma iné nenapadlo. :-) Základný postup vytvorenia je vo video ukážke.
((video))
