Como inserir uma linha em branco com base no valor da célula acima no Excel?
No Excel, a inserção de linhas em branco é uma das funções mais utilizadas em nosso trabalho diário. No entanto, existe alguma maneira de inserir rapidamente linhas em branco com base no valor da célula acima, como mostrado na imagem abaixo? Agora, este artigo fala sobre o método para inserir rapidamente uma linha em branco com base nos valores das células acima no Excel.
 |
 |
 |
Inserir linha com base no valor acima
Inserir linha com base no valor acima
Se você deseja inserir uma linha em branco com base no número acima, pode usar um código de macro.
1. Habilite a folha que você usa e pressione Alt + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o código abaixo no script.
VBA: insira o código em branco com base na célula acima
Sub Insert () 'UpdatebyExtendoffice20170926
Dim xRg como intervalo
Dim xAddress como string
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
Em caso de erro, retomar o próximo
xAddress = ActiveWindow.RangeSelection.Address
Definir xRg = Application.InputBox("Selecione um intervalo para usar (coluna única):", "KuTools For Excel", xAddress, , , , , 8)
Se xRg não for nada, saia do Sub
Application.ScreenUpdating = Falso
xÚltimaRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Coluna
xContagem = xRg.Contagem
Definir xRg = xRg(1)
Para I = xLastRow Para xFstRow Etapa -1
xNum = Células (I, xCol)
Se IsNumeric(xNum) E xNum > 0 Então
Linhas (I + 1).Redimensionar(xNum).Inserir
xCont = xCont + xNum
Fim se
Próximo
xRg.Resize(xCount, 1).Selecione
Application.ScreenUpdating = Verdadeiro
Finalizar sub
3. Pressione F5 para executar o código e uma caixa de diálogo será exibida para lembrá-lo de selecionar uma lista para trabalhar. Veja a imagem:
4. Clique OK, as linhas em branco foram inseridas.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
