Colección de citas famosas - Slogan de motivación - Resta del contenido de celda de la columna EXCEL VBA

Resta del contenido de celda de la columna EXCEL VBA

¿Sub? s()

n? =?cell(row.count?11).end(tres). Fila

¿Para qué? ¿I? =?11?¿Adónde ir? 14

k? =?(celda(n?-?1,?i)?+?10?-?celda(n,?i)?Mod?10

¿Para qué?j?=?18?Dónde ir ?n

Celdas(j,?i)?=?(Val(Celdas(j,i)?+?10?-?k)?Mod?10

Entonces

Entonces

¿El final? Submarino