Sumar números en la selección -

Suma todos los números en la región seleccionada y coloca la suma en "A1"

Sub sum_selection () Atenuar celda como rango Dim sum como doble 'Iterar a través de cada celda en la selección Para cada celda en la selección' Agregar el valor a la variable suma suma = suma + celda Valor Siguiente celda Celdas (1, 1) = suma Fin Sub