Cómo usar VBA en EXCEL para resumir los datos de dos casos con el mismo nombre y luego alinearlos por nombre para calcular los datos resumidos de los dos casos.
La quinta columna de la tabla de resultados es la suma y la diferencia, ¿verdad? ¿Se fijan 4 columnas menos 2 columnas? Hay números negativos
El código es el siguiente
Sub? prueba()
¿Atenuado? ah? brr(),? x & amp,?y & amp,?i & amp,?j 1 & amp;,?j2 & amp,?k,? k1
¿Oscuro? ¿d? ¿Como? ¿Configuración de destino
? ¿d? =?CreateObject(" scripting . diccionario ")
arr? =?Hoja1. Ámbito de uso
Radim? brr(1? ¿A dónde ir? 5,? 1? ¿A dónde ir? 1)
¿Para qué? z? =?1?¿Adónde ir? 4? ¿Un paso? 2
¿Para qué? ¿incógnita? =?1?¿Adónde ir? ¿Y si?
¿Y si? ¿No es así? d.¿Existe (arr(x,z))? Entonces qué. arr(x,?z)? <>? ""?Entonces
d(arr(x,z))? =?""
k? =?0:?k1? =?0
¿Para qué? ¿y? =?1?¿Adónde ir? ¿Y si?
¿Y si? arr(y,?1)?=?arr(x,?z)? Entonces
j1? =?j1? +?1
k? =?k? +?arr(y,?2)
¿Yo? =?Aplicar. Max(j1,?j2)
Radim? ¿ahorrar? brr(1?¿Dónde?5,?1?¿Dónde?Yo)
brr(1,?j1)? =?arr(y,?1)
brr(2,?j1)? =?arr(y,?2)
¿Fin? Si
¿Y si? arr(y,?3)?=?arr(x,?z)? Entonces
j2? =?j2? +?1
k1? =?k1? +?arr(y,?4)
¿Yo? =?Aplicar. Max(j1,?j2)
Radim? ¿ahorrar? brr(1?¿Dónde?5,?1?¿Dónde?Yo)
brr(3,?j2)? =?arr(y,?3)
brr(4,?j2)? =?arr(y,?4)
¿Fin? ¿Y si
Siguiente? y
¿Yo? =?Yo? +?1
j1? =?Yo:? j2? =?Yo
Raedim? ¿ahorrar? brr(1? ¿Dónde? 5,? 1? ¿Dónde? Yo)
brr(1,? ¿Yo)? =?arr(x,?z)? y amplificador? "Total"
brr(2,?i)? =?k
brr(3,?i)? =?brr(1,?i)
brr(4,?i)? =?k1
brr(5,?i)? =?k1? -?k
¿Fin? ¿Y si
Siguiente? x
¿Siguiente? Z
¿Qué usar? Hoja de trabajo 2
. Columna("A:F"). Borrar contenido
. rango("A1"). cambiar tamaño(UBound(brr, 2),?5)?=?aplicar. Transponer
¿Fin? ¿Con el final? Submarino