solución de programación vba

Dale la tabla original, de lo contrario no se podrá escribir y ni siquiera habrá filas. Antes de darte la tabla original, si conoces VBA, déjame darte una idea primero. Puede depurarlo usted mismo sin la tabla original, se escribió temporalmente y no se puede depurar.

c=3

hacer hasta celdas(c,5)=""

para c1=c al 3 paso -1

si celdas(c,5)=celdas(c1,5) entonces

si celdas(c,2)="" entonces

para c2=c a 3 paso -1

si celdas(c2,2)<>"" entonces

t1=celdas(c2,2)

salir para

endif

siguiente c2

else

t1=celdas(c,2)

endif

si celdas (c1,2)="" entonces

para c3=c1 a 3 paso -1

si celdas(c3,2)<>"" entonces

t2=celdas(c3,2)

salir para

endif

siguiente c3

más

t2=celdas(c1,2)

endif

si t1=t2 entonces

celdas(c,12)=celdas(c3,9)-celdas (c2,9)

endif

endif

siguiente c1

c=c+1

bucle