Como inserir ou excluir uma linha parcial no Excel?
É fácil inserir ou excluir uma linha inteira da planilha no Excel. Mas como inserir ou excluir apenas uma linha parcial da planilha? Este artigo irá ajudá-lo.
Insira ou exclua uma linha parcial com a função Inserir / Excluir Células
Inserir ou excluir linha parcial com código VBA
Insira ou exclua uma linha parcial com a função Inserir / Excluir Células
Por exemplo, você deseja inserir ou excluir uma linha parcial na linha 5 com três células, faça o seguinte.
Inserir linha parcial
1. Selecione três células na linha 5 (as células selecionadas devem ser iguais às células inseridas) e clique em inserção > Inserir células para Home page aba. Veja a imagem:
2. No inserção caixa de diálogo, selecione Deslocar células para a direita or Deslocar células para baixo opção e, em seguida, clique no botão OK botão.
Em seguida, uma linha parcial com três células é inserida conforme a imagem abaixo mostrada.
Excluir linha parcial
1. Depois de selecionar a linha parcial que deseja excluir, clique em Excluir> Apagar Células para Home page aba.
2. No Apagar caixa de diálogo, selecione Mudar células para a esquerda or Mudar células para cima conforme necessário e, em seguida, clique no OK botão. Veja a imagem:
Em seguida, a linha parcial selecionada é excluída.
Inserir ou excluir linha parcial com código VBA
Você também pode aplicar os seguintes códigos VBA para inserir ou excluir linhas parciais no Excel.
1. Selecione qualquer célula em uma determinada linha que deseja inserir linhas parciais e pressione outro + F11 para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie e cole o código VBA abaixo no Code janela.
Código VBA: insira uma linha parcial no Excel
Sub InsertRow()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End Sub
Note: No código VBA, o número 1 significa que a linha parcial será inserida da primeira coluna, e o número 3 significa que ela irá inserir três células entre as colunas. Você pode alterá-los de acordo com suas necessidades.
3. aperte o F5 para executar o código, então um Kutools for Excel a caixa de diálogo aparece, insira o número de linhas necessárias de que você precisa e clique no botão OK botão.
Se você inserir 3 na caixa, clique no botão OK botão, três linhas parciais com três colunas serão inseridas na posição especificada de sua planilha.
Para excluir uma linha parcial, você pode executar o código VBA abaixo.
Código VBA: Excluir linha parcial no Excel
Sub DelActiveCell_Row()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End Sub
Depois de executar o código, também há um Kutools for Excel caixa de diálogo aparece para lembrá-lo de quantas linhas parciais você deseja excluir, digite o número e clique no botão OK botão. Em seguida, as linhas parciais especificadas são excluídas imediatamente.
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!