El diccionario existe

¿Sub? AA()

¿Atenuado? I%,? j%,? ¿Número de filas %,? ¿k%? Defina cuatro variables como tipos de números enteros.

¿Oscuro? Ah, ah? brr(1?¿Dónde?50,?1?¿Dónde?2)? Defina dos matrices, donde Brr es bidimensional (filas 1 a 50 y columnas 1 a 2).

¿Oscuro? ¿d? ¿Como qué? ¿Nuevo? ¿diccionario? Defina d como un diccionario.

¿Yo? =?rango("A"? & amp? en filas. recuento). final (xlArriba). ¿Plan? El valor de "I" es el número de fila de la última fila de la columna a.

¿Arrr? =?rango("A1:B"?&?i)? Agregue A1 a este rango en la última fila de la columna B y asigne la matriz Arr.

¿Para qué? j? =?1?¿Adónde ir? ¿UBound(Arr)? Bucle, j desde 1 hasta el subíndice de la matriz Arr, es decir, desde la primera fila hasta la última fila.

¿Y si? existe(Arr(j,?1))? ¿Y entonces qué? Si el diccionario tiene la clave Arr(j,1), es decir, el diccionario tiene la clave para la fila j y la columna 1 (la celda de la fila j de la columna A).

¿Cuántas filas? =?d(Arr(j,1))?El número de filas es igual al valor del elemento correspondiente

Brr(Número de filas, 2)?=?Brr(Número de filas, 2)? +?arr(j, 2) La fila "número" de la matriz Brr y el valor en la columna 2 son iguales al Arr (j,? 2) autoacumulado: el valor de la celda en la columna B y la fila J

¿En caso contrario? de lo contrario.

k? =?k? +?1?k aumentado en 1

d(Arr(j,1))?=?k? El valor del elemento correspondiente a 'Arr(j,1) es igual al valor k.

brr(k,1)?=?arr(j,1)?El valor de la fila k y la columna 1 de Brr es igual a Arr(j,?1)-columna A y la fila j.

brr (k, 2)?=?arr (j, 2)?El valor de la fila k y la columna 2 de Brr es igual a la fila j de Arr (j,? 2)-columna b< /p >

¿Fin? ¿si? Juicio de condición final

¿Siguiente? j? Siguiente Periodo

Rango ("G2"). cambiar tamaño(k?-?1,?2)?=?Brr? Celda G2, el área extendida es k-1 filas y 2 columnas; escriba el valor de la matriz Brr en esta área.

¿Fin? Submarino