Diccionario suma en excel

En este caso, el método del diccionario es el más apropiado.

¿Sub? prueba()

arr? =?Hoja 2. Rango("A1:E "?&?Sheet2.[a65536].End(xlUp).Row)? Datos de Sheet2 almacenados en una matriz.

¿Configuración? d1? =?CrearObjeto("Script.Diccionario")? Diccionario externo

¿Configuración? d2? =?CrearObjeto("Script.Diccionario")? ¿Volver al diccionario

¿Configuración? d3? =?CrearObjeto("Script.Diccionario")? Producir diccionarios

¿Para qué? ¿I? =?1?¿Adónde ir? le debía un favor

d1(arr(i,1)?& amp?arr(i,?2))?=?d1(arr(i,1)?& amp?arr(i,? 2) ))?+?arr(i,?3)

d2(arr(i,1)?& amp?arr(i,?2))?=?d1(arr(i, 1) ?& arr(i,?2))?+?arr(i,?4)

d3(arr(i,1)?& amperio?arr(i,?2) )? =?d1(arr(i, 1)?& amp?arr(i,?2))?+?arr(i,?5)

Entonces

Para ¿qué? ¿I? =?2?¿Adónde ir? 【iv3】. ¿Fin (xlAIzquierda)? ¿paso? Cuatro

¿Para qué? j? =?5?¿Adónde ir? [a65536]. final (xlArriba). fila

celda(j,i)? =?d1(celda(j,1).valor?&?celda(3,?i).valor)

celda(j,i?+?1)?=?d2(celda (j ,1).value?&?cell(3,?i).value)

cell(j,i?+?3)?=?d3(cell(j,1) .value?& ?celda(3,?i).valor)

luego

¿finalizar? Submarino