Neste artigo, criaremos uma macro para excluir registros incompletos que contêm células em branco.
Os dados brutos consistem em alguns dados de amostra, que incluem Nome, Idade e Sexo. Ele também contém algumas células em branco.
Queremos remover os registros que contêm células em branco.
Explicação lógica
Criamos a macro “BlankRowDeletion” para excluir registros incompletos. Ele pesquisa e seleciona células em branco e, em seguida, exclui a linha inteira que contém uma célula em branco.
Explicação do código
Definir Rng = intervalo ("A9: C" & LastRow)
O código acima é usado para criar um objeto de intervalo para os dados fornecidos.
Rng.SpecialCells (xlCellTypeBlanks) .Select
O código acima é usado para selecionar células em branco dentro do intervalo especificado.
Selection.EntireRow.Delete
O código acima é usado para excluir a linha inteira da célula selecionada.
Siga abaixo para o código
Option Explicit Sub BlankRowDeletion () 'Declarando variáveis Dim LastRow As Long Dim Rng As Range' Obtendo o número da linha da última célula LastRow = Range ("A1"). SpecialCells (xlCellTypeLastCell) .Row 'Selecionando todos os dados Definir Rng = Range ("A9 : C "& LastRow) 'Selecionando células em branco Rng.SpecialCells (xlCellTypeBlanks) .Selecione' Excluindo seleção de linha completa.EntireRow.Delete Range (" A9 "). Selecione End Sub
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail