Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Use Copy and Paste or AutoFill functions

Sub autoFill()     Dim formulaString As String     Dim I As Integer     Cells(1, "B").Value = Cells(1, "A").Value     formulaString = "=A2+B1"     Cells(2, "B").formula = formulaString End Sub