La consulta y el código de entrada están escritos en el módulo VBA, pero la entrada de la consulta es muy lenta (más de 3000 datos), por favor

Lees los datos uno por uno, lo que por supuesto es más lento Dim?i, ?x, ?flag, rG?as?range

x?=?Sheets(" Lista de resumen de empleados".Cells(rows.count, 3).end(3).row?'Obtenga el último número de fila sin espacios en la columna C

set?rg=?Sheets("Empleado Resumen").range( "C:C").find(Sheets("Ingresar formulario de registro").Cells(3,3), lookin:=xlvalues, lookat:=xlwhole)' Utilice el método Buscar para buscar datos

flag= iif(rg?is?nothing?,0,9)?'Si no se encuentra (is?nothing), entonces 0, de lo contrario 9