¿Cómo extraer números de celdas en Excel y agregarlos con VBA?

Los diccionarios son más apropiados cuando es necesario implementar funciones Countifs o Sumifs.

¿Sub? Prueba()

¿Activar? ¿error? CV? Entonces

¿atenuado? ¿Dic? ¿Como qué? ¿Dónde está el objeto? ¿Esterry? ¿Como qué? Cadena,? ¿I? ¿Como qué? Entero

¿Configuración? ¿Dic? =?CreateObject("Script. Dictionary")

¿Para qué? =?1?¿Dónde? Celda (fila. ¿Contar? 1). ¿Qué pasa si? cell(i,?1)?=?""?entonces? ri?=?cell(i,?1)?& amp?cell(i,?3)

¿Qué? si? DIC(Stri)? p>

Entonces

¿Para qué? =?1?Celda (fila. recuento?6).Fin de la fila

S. =?cell(i,?6)?&?"{*}"?&?cell(i,?8)

cell(i,?7)?=?drive Centro de información para miembros

Entonces

Dic?=?Nada

Subprueba correcta