Como suprimir filas en excel con un criterio concreto?

[vvcepheus7]

Hola!

Quisiera hacer una consulta a alguien que domine excel.

Tengo un excel con un formato como este:

A B
1 DIRECCIÓN | CIUDAD
2 TEXTO INÚTIL
3 TEXTO INÚTIL
4 TEXTO INÚTIL
5 TEXTO INÚTIL
6 TEXTO INÚTIL
7 TEXTO INÚTIL
8 DIRECCIÓN | CIUDAD
9 TEXTO INÚTIL
10 TEXTO INÚTIL
11 TEXTO INÚTIL
12 TEXTO INÚTIL
13 TEXTO INÚTIL
14 TEXTO INÚTIL
15 DIRECCIÓN | CIUDAD
(...)

Para clarificar he enumerado cada fila y cada columna.

Entonces, yo deseo eliminar todas las filas inútiles (donde hay texto inútil) y juntar todas las filas útiles (o sea, las de las direcciones).

Si se fijan, se repite que hay 6 filas inútiles y una fila útil.

Como podría hacerlo Con excel? Se haría con eso que llaman una macro quizá? la verdad es que no lo he usado nunca, me podrían dar indicaciones por favor?

También tengo el documento txt con este mismo formato, se podría hacer algo parecido con el word usando buscar y reemplazar? Creo que hay unas expresiones que son como comodines que permiten hacerlo pero no conozco la sintaxis.

A ver si me podéis echar una mano que llevo días con esto!

Muchas gracias y un saludo!

Pd uso excel 2010

[JoaoM]

Prueba grabar una macro, selecionas las filas desde A2 hasta A7 luego con tecla Control presionado selecionas las A9 hasta A15.

Presionas Boton derecho del mouse y das en Eliminar, te queda el texto de la linea A8 seguida de la A1.

Este el resultado

Sub Macro3()
'
' Macro3 Macro
'

'
Range("9:14,2:7").Select
Range("A7").Activate
Selection.Delete Shift:=xlUp
Range("B17").Select
End Sub

Ahora, seria bueno una macro mas especifica que elimine las lines segun condicion, para ello tiene que ser algun experto porque yo no llego mas alla

[vvcepheus7]

Muchísimas gracias por la info JoaoM, yo la verdad es que no sabía como funcionaba este tema.

Un programador me han pasado otra macro, la posteo aquí por si a alguien más le interesa.

Este sería el código (no me preguntes como funciona porque ni idea):

Sub elimina_filas_inutiles()
Dim primera As Long
Dim segunda As Long
Dim ultima As Long
Dim i As Long
primera = InputBox("Indique la primera fila válida", , 4)
segunda = InputBox("Indique la segunda fila válida", , 11)
ultima = ActiveCell.SpecialCells(xlLastCell).Row
For i = ultima To primera Step -1
If (i Mod (segunda - primera)) - primera <> 0 Then
Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub


La macro te ilimina las filas basura y luego te junta todas las filas buenas para que queden compactadas.

Gracias y un saludo!

PD por respeto hacia el autor cito su web:
http://trucosexcel.blogspot.com/2011/12/eliminar-filas-con-cierta-periodicidad.html

[JoaoM]

(por mi parte) Se te agradece el gesto de colocar la macro para nosotros, los no sabios en esta materia.
Seria de dar meritos al creador de la macro si tambien colocaras su nombre ademas de la WEB

[vvcepheus7]

Si, tienes razón.
No me deja editar el mensaje anterior creo, así que lo comento aquí.
El autor es Adolfo Aparicio, un genio! :) (no usa seudónimo en su web).

Un saludo!