Excel - Compara columnas para encontrar datos faltantes

El software Microsoft Excel Office tiene una variedad de características que permiten al usuario crear hojas de trabajo de acuerdo con sus necesidades y requisitos. Es fácil crear una macro para comparar columnas y encontrar datos faltantes en Excel . Las macros en Excel se pueden usar para hacer cálculos y manipulaciones de datos en las hojas de trabajo. No es necesario escribir macros de Excel desde cero, ya que hay muchos recursos disponibles en la web que proporcionan código para las macros. El conocimiento de la programación puede resultar útil, pero no es esencial para crear una macro para comparar columnas y encontrar datos faltantes en las Hojas de cálculo de Excel.

Problema

¡Necesito ayuda por favor! Tengo dos hojas de trabajo (C y Q). Cada hoja de trabajo contiene cuatro columnas, cada columna tiene información diferente (A = Fecha, B = Misc, C = Descripción, D = Cantidad), pero ambas hojas de trabajo son iguales. Estoy tratando de comparar la columna D en ambas hojas de trabajo para encontrar los datos faltantes en la hoja de trabajo Q.

Solución

Si la macro encuentra los datos faltantes, ¿qué quieres hacer con ellos? En mi macro, los datos en la columna D de la hoja C que faltan en la misma columna de la hoja Q se marcarán en amarillo. Esto puede o no ser lo que quieres hacer con los datos que faltan. Aquí está la macro a continuación. Modifícalo con lo que quieras.

Primero ejecute la macro y observe la hoja C para ver qué sucede antes de modificar la macro:

 Subprueba () Dim cfindq As Range, rc As Range, cc As Range, x As Double On Error Reanudar con hojas de cálculo ("c") .Cells.Interior.ColorIndex = xlNone Set rc = Range (.Range ("d2" ), .Range ("d2"). End (xlDown)) Para cada cc In rc x = cc.Value Con hojas de trabajo ("q"). Columnas ("D: D") Establezca cfindq = .Cells.Find (what : = x, lookat: = xlWhole) Si cfindq No es nada entonces GoTo line1 Else GoTo line2 End If End con line1: cc.Interior.ColorIndex = 6 line2: Siguiente cc Fin con End Sub