¿Cómo reemplazar BUSCARV con VBA en EXCEL? Mira el ejemplo, ¡gracias!

El siguiente código es una búsqueda de una sola condición. Si puede comprender esto, es fácil cambiar a una búsqueda de múltiples condiciones. Dos combinaciones condicionales pueden servir como claves para el diccionario d.

¿Sub? myvlookup()

¿Atenuado? ¿d? ¿Como? Objetivo

¿Atenuado? ¿I? ¿Como? Largo

¿Oscuro? j? ¿Como? Largo

¿Oscuro? llegar)

¿Configuración? ¿d? =?CreateObject("Script.Dictionary》)

arr?=?Paper("Paper2").Range("F2:G6")

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

d(arr(i,1))?=?arr(I,?2)

¿Siguiente p>¿Para qué =? ?2? Seis

¿Qué? Celda(j,2) ?d(.cell(j,1).value)

Finalizar con

¿Siguiente? j

Submarino