Programa para sumar del 1 al 100 en excel usando VBA
Sub test1()
Atenuar i como entero
Rango("a1") = 1
Para i = 2 a 100
Rango("a" amp; i) = Rango("a" amp; i - 1) Rango("a" amp; i) Fila
Siguiente
End Sub
---------
Sub test2()
Atenuar i como entero
Atenuar j como entero
i = 0
Para j = 1 a 100
i = i j
Siguiente
Rango ("B1") = i
End Sub