Macro de excel
Hola, mi problema es que necesito eliminar las filas en blanco de una fichero de texto que ya he tratado haciéndole las columnas, pues el fichero ya me viene así.
Gracias de antemano
Gracias de antemano
1 respuesta
Respuesta de Elsa Matilde
1
Esta rutina recorre todas las filas. Si todas las col de c/fila se encuentran vacías la eliminará.
Se coloca en un módulo y trabaja con la hoja activa, comenzando desde A2. Estas referencias deberás ajustarlas a tu hoja.
Sub EliminaVacios()
Dim indi As Byte
Dim ultfila, col, fila, LaColumn As Double
ultfila = Range("A65000").End(xlUp).Row
Range("A2").Select
fila = 2
While fila <= ultfila
LaColumn = 1
While LaColumn <= 200 And indi = 0
If IsEmpty(Cells(fila, LaColumn)) Then
LaColumn = LaColumn + 1
Else
indi = 1
End If
Wend
If indi = 0 Then
Selection.EntireRow.Delete
ultfila = ultfila - 1
Else
indi = 0
fila = fila + 1
Cells(fila, 1).Select
End If
Wend
End Sub
Se coloca en un módulo y trabaja con la hoja activa, comenzando desde A2. Estas referencias deberás ajustarlas a tu hoja.
Sub EliminaVacios()
Dim indi As Byte
Dim ultfila, col, fila, LaColumn As Double
ultfila = Range("A65000").End(xlUp).Row
Range("A2").Select
fila = 2
While fila <= ultfila
LaColumn = 1
While LaColumn <= 200 And indi = 0
If IsEmpty(Cells(fila, LaColumn)) Then
LaColumn = LaColumn + 1
Else
indi = 1
End If
Wend
If indi = 0 Then
Selection.EntireRow.Delete
ultfila = ultfila - 1
Else
indi = 0
fila = fila + 1
Cells(fila, 1).Select
End If
Wend
End Sub
