una - eliminar filas en excel vba

excel eliminar fila si la columna contiene el valor de to-remove-list

Question

1. Digamos que tengo una hoja, la número uno , con más de 5000 filas (digamos, columnas '' A '' - '' H '' cada una).
2. En otra hoja, número dos , tengo una lista para eliminar, una sola columna '' A '' con 400 valores, cada uno con una cadena alfanumérica (ejemplo: xxx1234).
3. Tengo que eliminar cada fila completa de la hoja número uno , si la columna " E " contiene algún valor de "a-eliminar-lista" (de la columna " A " de la hoja número dos ).
4. Al eliminar toda la fila, quiero decir eliminar la fila y moverla hacia arriba (sin salir del espacio en blanco)

¿Cómo logro eso? Cualquier ayuda sería muy apreciada.

Answer 1

Así es como lo haría si trabajara con una gran cantidad de valores "para eliminar" que tomaría mucho tiempo para eliminarlos manualmente.

• -Put Original List en la columna A -Put para eliminar la lista en la columna B -Seleccione ambas columnas, luego "Conditional Formatting"
  -Seleccione "Hightlight Cells Rules" -> "Duplicate Values"
  -Los duplicados deben ser resaltados en ambas columnas
  -Entonces seleccione la columna A y luego "Ordenar y filtrar" ---> "Clasificación personalizada"
  -En el cuadro de diálogo que aparece, seleccione la opción del medio "Ordenar en" y elija "Color de la celda"
  -Entonces seleccione la siguiente opción "Ordenar" y elija "Sin color de celda" "En la parte inferior"
  -Todas las celdas resaltadas deben estar en la parte superior de la lista. -Seleccione todas las celdas resaltadas desplazándose hacia abajo en la lista, luego haga clic en Eliminar.

Answer 2

He encontrado un método más confiable (al menos en Excel 2016 para Mac) es:

Suponiendo que su lista larga está en la columna A, y la lista de cosas que se eliminarán de esto está en la columna B, luego pegue esto en todas las filas de la columna C:

= IF (COUNTIF ($ B $ 2: $ B $ 99999, A2)> 0, "Eliminar", "Mantener")

Luego solo ordena la lista por la columna C para encontrar lo que tienes que eliminar.

Answer 3

Hoja dada 2:

ColumnA
-------
apple
orange

Puede marcar las filas en la hoja 1 donde existe un valor en la hoja 2:

ColumnA ColumnB
------- --------------
pear =IF(ISERROR(VLOOKUP(A1,Sheet2!A:A,1,FALSE)),"Keep","Delete")
apple =IF(ISERROR(VLOOKUP(A2,Sheet2!A:A,1,FALSE)),"Keep","Delete")
cherry =IF(ISERROR(VLOOKUP(A3,Sheet2!A:A,1,FALSE)),"Keep","Delete")
orange =IF(ISERROR(VLOOKUP(A4,Sheet2!A:A,1,FALSE)),"Keep","Delete")
plum =IF(ISERROR(VLOOKUP(A5,Sheet2!A:A,1,FALSE)),"Keep","Delete")

Los datos resultantes se ven así:

ColumnA ColumnB
------- --------------
pear Keep
apple Delete
cherry Keep
orange Delete
plum Keep

A continuación, puede filtrar u ordenar fácilmente la hoja 1 y eliminar las filas marcadas con ''Eliminar''.