- Código: Seleccionar todo
'Eliminar Filas según criterio (se deben borrar desde abajo hacia arriba)
'Por ej., eliminamos aquellas filas que tengan un valor "X" en la columna 1
'************************************************************************
Sub EliminarFilas()
Dim r As Long
For r = 2000 To 1 Step -1 'De la fila 2000 a la 1, borra si celda = "X"
If Cells(r, 1).value = "X" Then Cells(r, 1).EntireRow.Delete
Next r
End Sub
En este otro ejemplo mostramos cómo eliminar filas de una tabla Excel 2.007
Por ejemplo, si en columna 'Cuenta', la celda está vacía, borramos toda esa fila.
- Código: Seleccionar todo
'Eliminar filas vacías de la columna "Cuenta" de una tabla de Excel 2.007
'*******************************************************************************************
MiHoja.Range("MiTabla[Cuenta]").SpecialCells(xlCellTypeBlanks).Delete
