Cómo escribir un programa para sumar usando el script VBA de EXCEL

Presione alt+f11 para ingresar a la edición de vba, haga doble clic en este libro y pegue el siguiente código

Opción explícita

Sub color()

Dim isnum como booleano

Dim c, r, i, j como entero

i = 1

j = 1

'Selección de bucle de cada línea.

For r = 1 To Selection.Rows.Count

' Recorre cada columna de la selección.

Para c = 2 a Selection.Columns.Count

Si Selection.Cells(r, c).Text = Selection.Cells(r, c - 1).Text Entonces

i = i + 1

Else

Celdas(Selección.Celdas(r, c).Fila, Selección.Columnas.Cuenta + j).Valor = i

i = 1

j = j + 1

Finalizar si

Selección.Celdas (r, c).Interior.ColorIndex = ci

Siguiente c

Celdas(Selección.Celdas(r, c).Fila, Selección.Columnas.Cuenta + j).Valor = i

i = 1

j = 1

Siguiente r

End Sub

Después de cerrar vba , seleccione el rango numérico y presione Alt+f8 para ejecutar la macro