Excel - Makro pro vložení prázdných řádků
- Problém
- Řešení
Problém
Pokoušíte se vytvořit makro, které vloží sadu prázdných řádků do existující tabulky po každé položce. Množství potřebných řádků bude stejné pro každou položku tabulky, ale bude nutné ji změnit při každém použití.Zde je ukázka ...
V současné době:
Název1Název2
Název3
Název4
Po použití makra:
Název1Název2
Název3
Název4
Množství prázdného řádku může jít od 20 - 40.
Řešení
A1 má čísla.Potom zkuste toto makro
Udržujte svůj původní soubor bezpečně někde
nejprve proveďte testování makra v odeslaných experimentálních datech
Subtest ()Dim j Jako dlouhá, r jako rozsah
j = InputBox ("zadejte počet řádků, které mají být vloženy")
Nastavit r = rozsah ("A2")
Dělat
Rozsah (r.Offset (1, 0), r.Offset (j, 0)) EntireRow.Insert
Nastavit r = buňky (r.Row + j + 1, 1)
MsgBox r.Address
Pokud r.Offset (1, 0) = "" Pak Exit Do
Smyčka
End Sub
Děkujeme venkat1926 za tento tip.