Como desligar todas as outras linhas com uma macro
Você gostaria de tornar invisível cada segundo ou cada enésima linha de uma tabela? Você pode fazer isso com o comando "Ocultar". Mas se você quiser fazer isso por um grande número de linhas, torna-se tedioso.
Uma macro faz o trabalho por você. Aqui está o código:
Ocultar sub segunda linha ()
Dim Row As Long
Linha = 1
Enquanto linha <1000
Células (linha, 1) .EntireRow.Hidden = True
Linha = linha + 2
Wend
End Sub
A macro oculta linhas alternadas em sua planilha ativa da linha 1 à linha 1000. Se você quiser um escopo diferente, ajuste o limite inferior 1 no comando Linha = 1 e altere o limite superior 1000 no comando Enquanto linha <1000. Basta substituir 1 e 1000 pelos números de sua escolha.
Se você não quiser ocultar a cada segunda linha, você também pode adicionar um valor diferente para 2 ao comando Linha = linha + 2 digitar. Um valor de 4 oculta apenas a cada quarta linha, um número de 10 a cada décima linha e assim por diante.
Para mostrar as linhas ocultas novamente, substitua o comando Verdade na macro Falso e inicie a macro novamente.