Como usar uma macro para inserir uma linha abaixo da tabela no Excel com fórmulas retidas?

É comum adicionarmos linhas em branco na parte inferior de uma tabela específica para expandir a tabela e adicionar novo conteúdo. Este artigo trata do uso de uma macro para inserir uma nova linha abaixo de uma tabela específica e manter a fórmula da célula acima no Excel.

Usar macro para inserir linha abaixo da tabela no Excel

Usar macro para inserir linha abaixo da tabela no Excel

Por favor, siga os passos abaixo para inserir uma linha em branco abaixo de uma tabela específica usando uma macro.

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo para abrir a janela Módulo. Em seguida, copie e cole o código VBA abaixo na janela.

Código VBA: usar macro para inserir uma linha em branco abaixo de uma tabela específica

Sub AddRows()
'Updated by Extendoffice 2017/9/12
    Dim xLastRow As Long
    Dim xRg As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the table range you will insert blank row below:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xLastRow = xRg.Row + xRg.Rows.Count
    xRg.Rows(xLastRow).FillDown
    xRg.Rows(xLastRow).SpecialCells(xlCellTypeConstants).ClearContents
End Sub

3. Pressione a tecla F5 para executar o código. Uma caixa de diálogo Kutools for Excel será exibida, selecione o intervalo da tabela onde deseja adicionar uma linha em branco abaixo e clique no botão OK. Veja a captura de tela:

Então você verá que uma nova linha em branco foi adicionada na parte inferior da tabela especificada. E a fórmula da célula acima também foi mantida na nova linha inserida, conforme mostrado na captura de tela abaixo: