Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Enters a value in 10 cells in a column and then sums the values
Sub EnterInfo()
    Dim i As Integer
    Dim cel As Range
    Set cel = ActiveCell
    For i = 1 To 10
        cel(i).Value = 100
    Next i
    cel(i).Value = "=SUM(R[-10]C:R[-1]C)"
End Sub