Eliminar filas

Estimado(a) experto: Tengo una planilla de datos con información en muchas filas, sin embargo, cada ciertas filas tengo filas en blanco en algunas filas hay 1 fila en blanco, en otras 2, en otras 3, no hay una constante, pero como mi planilla es muy extensa invierto mucho tiempo borrándolas ¿existe alguna forma de poder borrarlas más rápido? ¿Tal vez una macro?. Ojalá me puedan ayudar.

1 respuesta

Respuesta
1
Prueba esta macro
Sub Elimina_Filas_vacias()
Dim c As Long
Dim f As Long
'x calvuch
Application.ScreenUpdating = False
    [a1].Select
    Selection.End(xlDown).Select
    Cells(Selection.Row + 1, 1).Select
    f = Selection.Row
    [a65536].Select
    Selection.End(xlUp).Select
    Cells(Selection.Row + 1, 1).Select
    c = Selection.Row
    ActiveCell.FormulaR1C1 = "fin"
    Application.Goto Reference:="R1C1"
    Columns("A:A").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1" & ":" & "$A$" & c).AutoFilter Field:=1, Criteria1:="=fin", _
                      Operator:=xlOr, Criteria2:="="
    Rows(c & ":" & c).Select
    Range(Selection, Selection.End(xlUp)).Select
    Rows(f & ":" & c).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter
    Range("A1").Select
Application.ScreenUpdating = True
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas