6 febrero, 2025

ELIMINAR FILAS VACÍAS SI TODAS LAS CELDAS DEL RANGO ESTÁN EN BLANCO

Hola a todos!

En el post de hoy voy a responder a un lector la siguiente consulta relacionada con este antiguo post: ELIMINAR FILAS VACÍAS CON VBA EN EXCEL

Esta es la consulta: «Gracias por Compartir. Está excelente. La ejecuté y funciona perfecto para rangos cuyas filas vacías están definidas desde la columna “A”. Pero, ¿cómo hacer para eliminar filas vacías cuando en un rango, por ejemplo desde Columna A hasta Columna BH, tengo columnas que contienen datos, es decir no están “totalmente vacías”, es decir quiero eliminar sólo Filas “totalmente vacías”.
Nuevamente, Gracias! y feliz 2020!»

Os propongo el siguiente código:

Option Explicit
Sub ELIMINAR_FILAS_VACIAS()
'Declaramos variables
Dim r As Long
Dim Control As Long
With ActiveSheet
'Iniciamos loop
r = 1
Do Until r = .Cells(Rows.Count, 1).End(xlUp).Row
Control = Application.CountA(.Range(Cells(r, 1).Row & ":" & Cells(r, 1).Row))
'Control = Application.CountA(.Range("A" & Cells(d, 1).Row & ":" & "BH" & Cells(d, 1).Row))
'Si variable control es 0 entonces eliminamos fila
If Control = 0 Then
Rows(r).Delete
Else
'Si no es 0 seguimos con la fila siguiente
r = r + 1
End If
Loop
End With
End Sub

En esencia utilizamos un loop do – until para eliminar las filas.

Por ejemplo, tenemos este listado, en verde he marcado las filas que debe desaparecer:

ELIMINAR FILAS VACÍAS SI TODAS LAS CELDAS DEL RANGO ESTÁN EN BLANCO

Y este es el resultado:

ELIMINAR FILAS VACÍAS SI TODAS LAS CELDAS DEL RANGO ESTÁN EN BLANCO_1

Y eso es todo, espero que la respuesta sea de utilidad!.

Descarga el archivo de ejemplo pulsando en: ELIMINAR FILAS VACÍAS SI TODAS LAS CELDAS DEL RANGO ESTÁN EN BLANCO

¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.

Donate Button with Credit Cards

¡¡Muchas gracias!!

Mediante la suscripción al blog, la realización comentarios o el uso del formulario de contacto estás dando tu consentimiento expreso al tratamiento de los datos personales proporcionados según lo dispuesto en la ley vigente (LOPD). Tienes más información al respecto en esta página del blog: Política de Privacidad y Cookies

Comparte este post

Un comentario en «ELIMINAR FILAS VACÍAS SI TODAS LAS CELDAS DEL RANGO ESTÁN EN BLANCO»

Si te ha gustado o tienes alguna duda, puedes dejar aquí tu comentario.

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.plugin cookies

ACEPTAR
Aviso de cookies