Neste artigo, aprenderemos como excluir as linhas quando não houver dados em toda a linha.
A seguir está o instantâneo dos dados que temos:
O conceito por trás deste tutorial é se houver alguma linha em branco completa encontrada no intervalo selecionado A1: E10, o código vba deve excluir essa linha.
Precisamos seguir as etapas abaixo:
- Clique na guia Desenvolvedor
- No grupo Código, selecione Visual Basic
- Insira o seguinte código no módulo de planilha atual
Sub DeleteEntireRow ()
Dim i enquanto
'Cálculo e atualização da tela estão desligados para acelerar a macro
Com aplicativo
.Calculation = xlCalculationManual
.ScreenUpdating = False
Para i = Selection.Rows.Count to 1 Step -1
Se WorksheetFunction.CountA (Selection.Rows (i)) = 0 Then
Selection.Rows (i) .EntireRow.Delete
Fim se
Proximo eu
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
Terminar com
End Sub
- Vamos primeiro excluir manualmente os dados em uma linha para testar nosso código.
- Depois de copiar o código; selecione o intervalo A1: E10 e exclua manualmente qualquer linha
- Agora execute a macro usando a tecla ALT + F8 e selecione DeleteEntireRow
- A linha vazia foi excluída e todas as linhas abaixo foram deslocadas para cima.
Desta forma, podemos excluir linhas usando vba no Microsoft Excel.
Download-Delete Rows in VBA