Colección de citas famosas - Slogan de motivación - Resumen y resumen del método de diccionario múltiple de tres columnas de Excel vba

Resumen y resumen del método de diccionario múltiple de tres columnas de Excel vba

¿Sub? exchange()

¿Atenuado? ¿dic? Ah, ah? ¿I? ¿Como qué? ¿Fijado largo

? ¿dic? =?CreateObject("scripting . diccionario")

arr? =?Celda(1,?1).Área actual

¿Para qué? ¿I? =?2?¿Adónde ir? Monto adeudado

DIC(arr(I,1))?=?DIC(arr(I,1))? ?arr(I,2)? i, 4)

entonces

celda(2,?5).resize(dic. count?2)?_

=?sheet Función. transpose(array(dic.keys, ?dic.items).

Fin ?sub