En este artículo, crearemos una macro para eliminar registros incompletos que contienen celdas en blanco.
Los datos brutos constan de algunos datos de muestra, que incluyen el nombre, la edad y el sexo. También contiene algunas celdas en blanco.
Queremos eliminar aquellos registros que contienen celdas en blanco.
Explicación lógica
Hemos creado la macro "BlankRowDeletion" para eliminar registros incompletos. Busca y selecciona celdas en blanco y luego elimina toda la fila que contiene una celda en blanco.
Explicación del código
Establecer Rng = Rango ("A9: C" y LastRow)
El código anterior se usa para crear un objeto de rango para los datos dados.
Rng.SpecialCells (xlCellTypeBlanks) .Seleccionar
El código anterior se usa para seleccionar celdas en blanco dentro del rango especificado.
Selection.EntireRow.Delete
El código anterior se utiliza para eliminar toda la fila de la celda seleccionada.
Siga a continuación para obtener el código
Option Explicit Sub BlankRowDeletion () 'Declarando variables Dim LastRow As Long Dim Rng As Range' Obteniendo el número de fila de la última celda LastRow = Range ("A1"). SpecialCells (xlCellTypeLastCell) .Row 'Seleccionando todos los datos Set Rng = Range ("A9 : C "& LastRow) 'Selección de celdas en blanco Rng.SpecialCells (xlCellTypeBlanks) .Seleccione' Eliminando selección de fila completa.EntireRow.Delete Range (" A9 "). Seleccione End Sub
Si te gustó este blog, compártelo con tus amigos en Facebook. Además, puede seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico