Como preencher automaticamente fórmulas ao inserir linhas no Excel?

Quando você insere linhas em branco entre linhas de dados existentes, a fórmula não será copiada e colada na nova linha, sendo necessário arrastá-la ou preenchê-la manualmente. No entanto, às vezes, você pode querer que a fórmula seja preenchida automaticamente ao inserir linhas em branco dentro do intervalo de dados, conforme mostrado na captura de tela a seguir. Neste artigo, vou apresentar alguns truques rápidos para resolver essa tarefa.

Preenchimento automático de fórmulas ao inserir linhas em branco criando uma tabela

Preenchimento automático de fórmulas ao inserir linhas em branco com código VBA

Preenchimento automático de fórmulas ao inserir linhas em branco criando uma tabela

No Excel, o formato de Tabela pode ajudá-lo a preencher automaticamente a fórmula acima nas novas linhas inseridas em branco. Por favor, siga os passos abaixo:

1. Selecione o intervalo de dados onde deseja preencher automaticamente a fórmula e clique em Inserir > Tabela, veja a captura de tela:

2. Na caixa de diálogo Criar Tabela, marque Minha tabela tem cabeçalhos se houver cabeçalhos nos seus dados, veja a captura de tela:

3. Em seguida, clique no botão OK, e a tabela será criada. Agora, quando você inserir uma linha em branco, a fórmula acima será inserida automaticamente na nova linha, veja a captura de tela:

Preenchimento automático de fórmulas ao inserir linhas em branco com código VBA

Se você não quiser transformar os dados em tabela, o código VBA abaixo também pode ajudá-lo a resolver esse problema.

1. Selecione a guia da planilha que contém as fórmulas que deseja preencher automaticamente, clique com o botão direito e escolha Visualizar Código no menu de contexto para acessar a janela Microsoft Visual Basic for Applications, depois copie e cole o seguinte código no Módulo:

Código VBA: Preenchimento automático de fórmulas ao inserir linhas em branco

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice 20160725
    Cancel = True
    Target.Offset(1).EntireRow.Insert
    Target.EntireRow.Copy Target.Offset(1).EntireRow
    On Error Resume Next
    Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
End Sub

2. Salve e feche este código, volte para a planilha. Agora, ao clicar duas vezes em uma célula entre os dados, uma nova linha será inserida abaixo da célula ativa e a fórmula será preenchida automaticamente.

Demonstração: Preenchimento automático de fórmulas ao inserir linhas em branco