tengo dos hojas Sheet1 es una tabla XML importada, por lo que parece un poco incómoda, como un peldaño de tablas. Sheet2 es una sola columna que es una lista de cadenas. Sheet1 tiene varios miles de filas. Sheet2 tiene unos pocos cientos de entradas.

Quiero encontrar cada instancia de cada cadena exacta en Sheet2 dentro de Sheet1, luego elimine toda la fila en Sheet1. Ese es el procedimiento.

En mi cabeza esto es simple, y si tuviera horas podría hacerlo manualmente pero sería una tediosa pérdida de tiempo ya que debería estar automatizado.

He estado tratando de encontrar recursos sobre cómo hacer esto, pero me resulta muy difícil obtener información que me permita escribir un procedimiento general. Tanto las fuentes de datos de la Hoja 1 como la de la Hoja 2 crecerán y cambiarán con el tiempo, por lo que quiero hacer una solución general ahora.

Tengo una secuencia de comandos de Python que se supone que debe recortar la fuente XML usando lo que sería el contenido de Sheet2, pero el XML resultante está roto y es inaceptable, ya que termina faltando tipos de datos. No sé si hacer esto a través de Excel preservará los tipos de datos, pero por eso lo intento. Aprendí C en la universidad (ingeniería eléctrica) pero nunca Python o VBA.

Suponiendo que las hojas son como matrices indexadas por [filas, columnas]. Esto es lo que estoy tratando de hacer, con las funciones reemplazando lo que sea necesario en VBA para lograr el mismo objetivo.

 String str; Int r, foundStrRow; */rowFind(sheet, string) being a function that finds arg string within sheet and returns the row index Delete(sheet, row) being a function that deletes the index row from sheet*/ While(Sheet2[r,1]) { Str = Sheet2[r, 1]; foundStrRow = rowFind(Sheet1,Str); Delete(Sheet1, foundStrRow); r++ }

Desafortunadamente, los datos en sí no son algo que se pueda compartir por razones de seguridad, pero puedo proporcionar un conjunto falso de datos aquí.

https://imgur.com/a/9Ekvoi3

Imagine que Sheet1 tiene ese escalón que tiene aproximadamente 20000 filas y 200 columnas. Sheet2 tiene 400 filas y una columna.

Esto es lo que se me ocurrió. Es capaz de encontrar y eliminar una fila completa si la cadena de Sheet2 existe en Sheet1, pero ahora tengo que descubrir cómo condicionarla a la cadena existente. No estoy seguro de cómo hacerlo todavía, pero si la cadena de la Hoja2 no está en la Hoja1, entonces debo pasar a la siguiente entrada.

 Sub Trimmer() Dim Rows2 as Integer Dim wordToSearch as String 'Sets Rows2 to be limit of the loop With Sheet2 With .Cells.SpecialCells(xlCellTypeLastCell) Rows2 = .Row End With End With For r2=1 to Rows2 Sheets("Sheet2").Select wordToSearch = Cells(r2,1).Value Sheets("Sheet1").Select Cells.Find(What := wordToSearch, After := ActiveCell, LookIn := xlFormulas2, _ LookAt :=xlWhole, SearchOrder := xlByRows, SearchDirection:= xlNext, _ MatchCase := False, SearchFormat := False).Activate Rows(ActiveCell.Row).Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp

Esto iterará y eliminará las filas completas como quiero donde existe la coincidencia con la lista en la Hoja2, pero solo necesito que se salte cuando algo en la lista de la Hoja2 no se encuentra en la Hoja1.