Jak vypnout každý druhý řádek pomocí makra
Chcete, aby byl každý druhý nebo každý n -tý řádek v tabulce neviditelný? To lze provést příkazem „Skrýt“. Pokud to ale chcete udělat pro velký počet řádků, bude to zdlouhavé.
Makro pracuje za vás. Zde je kód:
Sub druhý řádek skrýt ()
Dim Row As Long
Řádek = 1
Zatímco řádek <1000
Buňky (řádek, 1). EntireRow.Hidden = True
Řádek = řádek + 2
Zamířit
End Sub
Makro skryje každý další řádek ve vašem aktivním listu od řádku 1 do řádku 1000. Pokud chcete jiný rozsah, vložte do příkazu dolní limit 1 Řádek = 1 a v příkazu změňte horní hranici 1000 Zatímco řádek <1000. Jednoduše nahraďte čísla 1 a 1000 čísly podle svého výběru.
Pokud nechcete skrývat každý druhý řádek, můžete do příkazu přidat také jinou hodnotu pro 2 Řádek = řádek + 2 vstoupit. Hodnota 4 skryje pouze každý čtvrtý řádek, číslo 10 každý desátý řádek atd.
Chcete -li znovu zobrazit skryté řádky, nahraďte příkaz Skutečný v makru Nepravdivé a spusťte makro znovu.
