Cómo hacer coincidir los campos de la hoja 1 con la hoja 2 mediante la macro BUSCARV de VBA y hacer coincidir los datos en B haciendo clic en un botón.

Si la cantidad de líneas de datos es particularmente grande, debe usar objetos de diccionario para escribir código y la eficiencia del doble bucle será muy baja. Por ejemplo:

arr? =?hoja(2). ¿Rango("A1:B100")? Área de datos originales

¿Configuración? base de datos? =?CreateObject("Script.Dictionary")

¿Para qué? ¿Yo?=?1?¿Adónde ir?

db(arr(I,1))?=? arr(I,2)

I

arr? =?range("a 1:B88")?

¿Para qué? =?1?¿A dónde ir?

arr (I, 2)? =? db (I, 1)

?I

rango("a 1:B88")?=?arr El código anterior es muy complicado cuando la cantidad de datos es pequeña, pero cuando los datos de las dos tablas son decenas de miles, BUSCARV se bloqueará durante medio día, pero el código anterior se puede completar en 1 minuto. /p>