# Create a set of related formulas in a column: use a looping structure to iterate through the cells that receive the formula : Formula « Excel « VBA / Excel / Access / Word

- VBA / Excel / Access / Word
- Excel
- Formula

Create a set of related formulas in a column: use a looping structure to iterate through the cells that receive the formula

Sub formula()
Dim formulaString As String
Dim I As **Integer**
Cells(1, "B").Value = Cells(1, "A").Value
For I = 2 To 10
formulaString = "=A" & Trim(str(I)) & "+B" & Trim(str(I - 1))
Cells(I, "B").formula = formulaString
Next I
End Sub

### Related examples in the same category