Cómo utilizar el diccionario de datos VBA en EXCEL: Resumen después de eliminar duplicados

El siguiente es el código y los comentarios:

DeputyController()

Set DIC = createobject ("scripting. Dictionary")' define un diccionario.

Arr = Range("A1:C500 ")' Suponiendo que el número máximo de filas es 500, coloque el área de A1 a C500 en la matriz.

For I = 1 tobound (arr)' Realiza un bucle desde 1 hasta el número máximo de filas en la matriz.

Si arr(i,1)<>"" y arr(i,1)<>"device" entonces se sugieren espacios y líneas de encabezado.

Dic (ARR (I, 1)) = DIC (ARR (I, 1)) + ARR (I, 3)' Utiliza un diccionario para eliminar duplicados y acumular números.

Terminará si...

Yo el próximo

[E2]. redimensionar (dic. count, 1) = aplicación. Transponer (DIC. claves) 'Transponer las claves del diccionario (es decir, los valores únicos en la columna A) a la columna e.

[F2]. redimensionar (dic. count, 1) = aplicación. Transpose(DIC.Items)' Transpone los kItems del diccionario (es decir, el resultado acumulativo) y los coloca en la columna e.

Conector final

上篇: ¿Cuál es el desarrollo futuro del diseño de UI? 下篇: Adivinación con nombre de perro_Cómo adivinar con nombre de perro