Excel, ¿cómo extraer valores distintos en una matriz mediante código vba?

¿Oscuro? ah? hermano,? crr(1? ¿Dónde? 70),?b? ¿Como?

b del sistema de álgebra booleana? =?Incorrecto

¿Atenuado? ¿incógnita? ¿incógnita? =?1

arr? =?Hoja Activa. rango(celda(1,1),?celda(70,1))

brr? =?Hoja Activa. range(cell(1,2),?cell(70,2))

¿Para qué? ¿I? =?1?¿Adónde ir? UBound(arr, 1)

¿Para qué? j? =?1?¿Adónde ir? UBound(brr, 1)

¿Si? arr(i,?1)?=?brr(j,?1)?¿Y luego qué? ¿b? =?Verdadero:? ¿abandonar? para

entonces

¿si? ¿b? =?Falso? ¿Entonces qué? crr(x)? =?arr(I,?1):?x? =?x? ?1

b? =?Incorrecto

Entonces

ActiveSheet. celda(1,?3).resize(x?-?1,?1)?=?aplicar. Transponer