Problemas de Excel VBA

No hacen falta dos ni tres ciclos, sólo uno. Utilice la función de búsqueda

Sub t1()

En caso de error, continúe con el siguiente paso

Para cada a en el rango ("A2:a 1014")

p>

Rango de frecuencia intermedio (" b2: b752 "). Find(a.Value, LookIn:=xlValues) no es nada Entonces Cells(a.Row, 3) = "NOEXIST" De lo contrario Cells(a.Row, 3) = "EXIST "

Entonces

Conector final

Un método más simple es usar la función de hoja de cálculo countif directamente. El código es el siguiente:

Sub t1()

Continuar. cuando ocurre un error

Por cada a en el rango ("A2:a 1014")

Si la hoja de trabajo funciona. CountIf(Range("B2:B752 "), a) = 0 entonces celda (a.Row, 3) = "no existe" de lo contrario celda (a.Row, 3) = "existe"

Entonces

Conector final

A.row puede generar directamente el número de fila correspondiente a A, sin obtener variables X adicionales para el bucle. Incluso si se usa la variable X para representar el número de línea, puede agregar directamente un x=x 1 en el bucle A.