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 de calvuch
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
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
