Suma de matriz de diccionario Vba
¿Sub? prueba()
arr? =?Sheet2Range("A1:E"? & amp?Sheet2[a65536].End(xlUp).Strike)? Datos de Sheet2 almacenados en una matriz.
¿Configuración? d1? =?CreateObject("Script.Dictionary")?Diccionario de salida
¿Configuración?d2?=?CreateObject("Script.Dictionary")? ¿Volver al diccionario
¿Configuración? d3? =?CreateObject("Script.Dictionary")?Diccionario de producción
¿Para qué? =?1?¿Adónde ir?
d 1(arr(I, 1) ?&?arr(i,2))?=?d 1(arr(i,1)?& amp?arr(i,2))?+?arr(i,3)
D2 (arr(I,1)?&?arr(i,2))?=?d 1(arr(I,1)?&?arr(i,2))?+?arr(i,4 )
D3(arr(I,1)?& amp?arr(I,2))?=?d 1(arr(I,1)?& amp?arr(I,2)) ?+? arr(me,5)
¿Para qué? =?2?¿Dónde? [iv3]? p>
¿Para qué? =?5?[a65536]. ,1).value?&?cell(3,?i).value)
cell(j,?i?+?1)?=?d2(cell(j,1).value? &?celda(3,?i).valor)
celda(j,?i?+?3)?=?d3(celda(j,1).valor?& ?celda(3 ,?i).valor)
luego
finalizar?