Excel Eliminar filas con el mismo primer número, pero un segundo valor diferente

Question

Tengo una hoja de Excel con unos miles de filas de algo similar a lo siguiente:

A1 B1

9-1 manzana

9-2 piña

10-1 Uva

10-2 Naranja

10-3 pera

11-1 Limón

¿Existe un script VBA que pueda eliminar las filas que contienen algo más que "-1" después del número? Entonces el resultado debería verse así:

A1 B1

9-1 manzana

10-1 Uva

11-1 Limón

El número de variaciones para cada primer dígito varía. A veces puede ser solo 1, mientras que otras veces puede ser hasta 8 o 9. Solo necesita mantener el "-1" de cada fila y eliminar el resto.

Muchas gracias de antemano.

Answer 1

Aquí tienes una forma rápida y sucia de hacerlo:

1. En C1 (o su primera columna disponible) ingrese la fórmula =FIND(-1,A1). Haga doble clic o arrastre el controlador de la celda para copiar la fórmula hasta todas las filas. Ahora las celdas que contienen -1deberían tener un número y las demás deberían decir #VALUE!.

2. Seleccione toda la columna C y presione Ctrl+ F. Haga clic Options. Escribe #value!, Find whatcambia el Look in:cuadro Valuesy presiona Find All. Luego presione Ctrl+ A, haga clic derecho en una de las celdas resaltadas, seleccione Delete, cambie a Entire rowy presione OK.