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 Sub3. 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:
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins