Macro eliminar filas con determinado texto

Estoy intentando crear una macro para eliminar todas las filas que en la primera celda no tengan el texto "A" y no consigo resultados. Es una hoja excel con dos columnas donde se van repitiendo tablas de valores y a mí sólo me interesa el correspondiente a "A" y por eso quiero eliminar el resto.
Si me podéis ayudar os lo agradecería.

1 Respuesta

Respuesta
1
'Haz la prueba primero
Sub Macro1()
    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.AutoFilter Field:=1, Criteria1:="<>A", _
        Operator:=xlAnd
    Selection.CurrentRegion.Select
    Selection.EntireRow.Delete
End Sub
Gracias pero no me funciona, voy bastante perdido. Te pongo un ejemplo de como es la hoja excel por si no me he explicado bien:
Columna 1 Columna 2
- -
Fichero 1 -
Equipo xxx -
Fecha XXX -
- -
L Hz
120 xx
180 xx
400 xx
A xx
- -
Fichero 2
Equipo xxx
Fecha XXX
- -
L Hz
120 xx
180 xx
400 xx
A xx
- -
Fichero 3
Equipo xxx
Fecha XXX
- -
L Hz
120 xx
180 xx
400 xx
A xx
.
Los guiones se refieren a celdas vacías. Sólo quiero dejar las filas que en la primera celda es una "A".
Muchas gracias.
'Intenta con esta:
Sub Macro1()
    Range("A:B").Select
    Selection.AutoFilter Field:=1, Criteria1:="<>A", _
        Operator:=xlAnd
    Cells.Select
    Selection.EntireRow.Delete
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas