Eliminar filas con celdas en blanco en una determinada columna utilizando VBA en Microsoft Excel
En este artículo, crearemos una macro para eliminar registros incompletos que contienen celdas en blanco.
Los datos brutos consisten en algunos datos de muestra, que incluyen Nombre, Edad y 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 la fila completa 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) .Select 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 el código a continuación
Option Explicit
Sub BlankRowDeletion()
'Declaring variables
Dim LastRow As Long
Dim Rng As Range
'Getting row number of last cell
LastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row
'Selecting all data
Set Rng = Range("A9:C" & LastRow)
'Selecting Blank cells
Rng.SpecialCells(xlCellTypeBlanks).Select
'Deleting complete row
Selection.EntireRow.Delete
Range("A9").Select
End Sub
Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]