Tema: Como suprimir renglones vacios en excel (en 2mil registros)
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 18/03/2007, 10:31
Avatar de 3pies
3pies
Colaborador
  
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 20 años, 4 meses
Puntos: 144
Re: Como suprimir renglones vacios en excel (en 2mil registros)
Otra opción...

Sitúate en la primera celda con datos, y ejecuta esta macro (te elimina las filas vacías que encuentre desde esa celda activa, hasta 2000 filas por debajo):
Código: 
Sub Eliminar_filas_vacías()
Application.ScreenUpdating = False
For i = 1 To 2000
    'si la celda está vacía...
    If ActiveCell = "" Or IsNull(ActiveCell) Then
        'eliminamos la fila
        Selection.EntireRow.Delete
    End If
    'pasamos a la siguiente  fila
    ActiveCell.Offset(1, 0).Select
Next
Application.ScreenUpdating = True
End Sub
Salu2