Eliminar filas vacias

Hola Xames,

Algunas formas de hacerlo:

1) Manual
- Selecciona todos los datos en la primera columna (Supongo q las filas con
datos no pueden tener la primera celda en blanco. Si no es asi, busca la
columna q responda a esta condicion).
- Ve al menu Edicion>Ir a...
- Pulsa el boton Especial
- Marca la cuarta opcion desde abajo a mano izquierda (creo q dice blancos
o vacios) y pulsa OK
- Ve al menu Edicion>Eliminar..., selecciona Fila Entera y pulsa Aceptar.

2) Macro
- Abre el fichero y activa la hoja con el rango a limpiar.
- Haz clic derecho sobre el nombre de la hoja q aparece en una de las
pestanas en la parte inferior izquierda de la ventana de Excel.
- Del menu contextual q aparecera a continuacion selecciona "Ver codigo" y
se
abrira el Editor VBA.
- En la ventana mas grande a la derecha copia el siguiente codigo:

'--Inicio Codigo
Sub BorrarFilasVacias()
uFila = ActiveSheet.Cells(65536, 1).End(xlUp).Row
Application.ScreenUpdating = False
For Fila = uFila To 2 Step -1
If Application.CountA(Rows(Fila)) = 0 Then Rows(Fila).Delete
Next Fila
End Sub
'--Fin Codigo

o tambien puedes especificar el rango en el cual eliminar las filas vacias,
p.ej.:

'--Inicio Codigo
Sub BorrarFilasVacias()
With ActiveSheet.Range("A1:D100")
pFila=.Row
uFila = pFila+.Rows.Count-1
End With
Application.ScreenUpdating = False
For Fila = uFila To pFila Step -1
If Application.CountA(Rows(Fila)) = 0 Then Rows(Fila).Delete
Next Fila
End Sub
'--Fin Codigo

- Pulsa Alt+F11 para volver a la hoja.
- Pulsa Alt+F8 y haz doble clic sobre "BorrarFilasVacias"

Saludos,
KL


"Xames" wrote in message
news:%

Como puedo hacer para que me busque dentro de una tabla todas las filas
vacias y me las elimine?

Gracias