Como Inserir linhas em branco na planilha – Sem VBA

Temos uma planilha com alguns dados.

Agora, vamos selecionar linha a linha (não é selecionar a área de forma sequencial, é clicar na linha 2 inteira, pressionar a tecla CTRL, clicar na linha 3 e fazer o mesmo até o final. Nossa planilha ficará assim:

Note que ao selecionarmos linha a linha veremos uma separação entre cada uma delas. Se tivéssemos selecionado o intervalo, não veríamos isto.

Agora, para podermos inserir linha em branco, basta clicar com o botão direito do mouse e selecionarmos a opção INSERIR:

Pronto, agora temos linhas em branco de forma intercalada:

Se você tiver uma lista pequena este método pode ser mais rápido, porém se a lista for maior talvez seja muito trabalhoso.

Por isso, podemos usar o VBA para inserir linhas em branco na planilha

Como Inserir linhas em branco na planilha – Com VBA

Primeiramente verifique se o módulo DESENVOLVEDOR está aparecendo no menu

Se não estiver, clique em ARQUIVO > OPÇÕES > PERSONALIZAR FAIXA DE OPÇÕES e selecione a opção DESENVOLVEDOR:

Pressione agora a tecla ALT + F11 para ir ao editor de VBA. Você terá uma tela semelhante a esta:

Agora, clique em INSERIR > MÓDULO, e você terá isto:

Dê um duplo-clique sobre o objeto chamado MÓDULO1 e aparecerá à direita uma área em branco. É nela onde colocaremos o código.

Você deverá colocar o código a seguir naquele módulo (você pode baixar a planilha de exemplo neste link).

Sub InsereEmBranco()

‘DIM declara uma variável de número inteiro

Dim x As Long

‘como começaremos a partir da linha 2, iniciaremos nossa macro pela linha 2 da planilha
x = 2

‘looping do tipo “faça enquanto”
‘precisamos que elevá inserindo linhas em branco até o final
‘da nossa listagem
‘o que dizemoa aqui é exatamente isto: faça enquanto a célula X, da coluna A (representado pelo Cells(x,1)) esteja preenchido
‘no caso verificamos se é diferente de vazio

Do While Cells(x, 1) <> “”

‘aqui, verifica se a linha de cima (representado por x-1) também é diferente de vazio. Isso impede que a macro insira linhas vazias sequenciais.
‘No do While mandamos a macro fazer até achar a última preenchida
‘aqui, também verificamos se a anterior está preenchida
If Cells(x – 1, 1) <> “” Then

‘insere uma linha em branco na linha onde estivermos
‘isso significa que ele irá colocar o conteúdo desta célula para baixo; a informação da linha 2 vai para a linha 3. Daí a linha 2 fica em branco.
‘por isso precisamos saber se a linha de cima está preenchida, porque quando fazemos isto, a linha 3 está preenchida e a 2 em branco
‘como a macro vai rodas em todas as linhas, a próxima execução será na linha 3. Como ela estará preenchida
‘se a célula de cima estiver vazia (o que é nosso caso, lembre que alinha 2 desceu, deixando a linha 2 em branco), a macro irá
‘inserir uma nova linha em branco na linha 3, deslocando o conteúdo para baixo e deixando a linha 3 em branco
‘daí, ela vai rodar na linha 4. como ela está preenchida, vai descer mais uma…
‘por isso precisamos saber se a linha acima também está preenchida, senão a macro irá
‘inserir linhas “infinitas”, já que a célula atual sempre será diferente de vazio, porque será a linha 2 lá de cima que esta descendo
Cells(x, 1).EntireRow.Insert

‘equivale a fechar o parêntese de uma função SE
End If

‘adiciona 1 à variável. como começamos em 2, agora temos que ir para 3, para a macro rodar na linha 3, depois na 4…até que a célula atual esteja vazia
x = x + 1

‘executa o looping, isto é, retorna a macro para a linha do DO WHILE
Loop

‘finaliza o código da macro
End Sub

Retorne à planilha pressionando ALT + F4 e salve o arquivo.

Agora, vamos inerir um botão para rodar a macro. A forma mais simples é usar uma autoforma de retângulo (na verdade, pode ser qualquer uma das autoformas).

Desenhe o retângulo (pelo meni INSERIR > FORMA) e formate-o como preferir (não o coloque na área a ser afetada pela macro. Neste caso, vou desenhá-lo na linha 1):

Para associarmos a macro, clique com o botão direito do mouse sobre o botão e escolha ATRIBUIR MACRO:

Selecione a macro que acabamos de criar e dê OK:

Agora, basta clicar no botão para que ele execute a macro que vai inserir linhas em branco.

Lembre-se de deixar a tabela original sem linhas em branco, senão a macro não rodará corretamente.

Baixe o arquivo de exemplo aqui.

Outros textos que podem interessar

• Obtendo o número da linha e da coluna de uma planilha
• Achando a primeira linha vazia de uma planilha
• Retornando a última célula preenchida de uma coluna

OUTROS ARTIGOS DE INTERESSE