Eliminar filas

"Carlos V" escribió en el mensaje news:

He generado una hoja en Excel 2000 a partir de una página web, pero se han
creado miles de filas en blanco entre las filas que sí contienen datos. ¿Hay
algún modo rápido de eliminar esas filas en blanco? Gracias.

Carlos V

Prueba con el siguiente código:

Sub EliminarFilasEnBlanco()
Dim strC As String, lngFila As Long

With Worksheets("Hoja1") 'Nombre de la hoja
For lngFila = 1 To .UsedRange.Rows.Count
If WorksheetFunction.CountA(.Rows(lngFila)) = 0 Then strC = strC & lngFila & ":" & lngFila & ","
Next lngFila
Application.ScreenUpdating = False
.Range(Left(strC, Len(strC) - 1)).Delete
Application.ScreenUpdating = True
End With
End Sub


Pero pruébalo en una copia del libro, no vaya a ser que no haga lo que necesitas y "la jeringuemos" :-)
Un saludo.


Fernando Arroyo
MS MVP - Excel