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
1

1 Respuesta

2.199.715 pts. En mi sitio encontraran material de ayuda, ejemplos...
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas