¿Comparación de datos de Excel vba?

Para ser claros, solo he estado estudiando durante unos días, solo como referencia; no aprendí mucho, por lo que el código es feo, solo estoy practicando

Inserte el código en la Tabla 1:

ZBT

Dimensión i%, j%

[C:C]. clear

Para i = 2 en el rango("a99999"). Fin (3). fila

j = aplicación. Funciones de la hoja de trabajo. CountIf(Hoja("Hoja2").[a:a], celda(I,1))

Si j = 0 entonces

Celda(I, 3) = "No se encontró dicho número de serie"

ElseIf j>then1

celdas(I, 3) = "Hay muchos resultados"

ElseIf celdas(I,2)< >Aplicar. Funciones de la hoja de trabajo. VLookup(celda(I,1),hoja("hoja2").[a:b],2,0) luego

Celda(I,3) = diferente

Es finalizará si...

Siguiente yo

Finalizar conector