跨列循环公式

Question

I'd like to loop a formula across columns and have it stop when it gets to the last column that I have defined. Here is the code:

Sub LoopAcrossCols()
Dim LastCol As Integer
Worksheets("Sheet1").Activate
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
Column = 3
Do
Cells(2, Column).Formula = "=B2+C3"

Row = Row + 1

Loop Until LasCol

End Sub

Just to be clear, the formula would change as the loop goes from column to column. I'm just not sure how to format "=B2+C3" to achieve this. I'm open to any other more efficient looping process or way to make any part of the code more efficient. Also, I'm not sure if " Loop Until LasCol " is a valid end to the loop. Any help is much appreciated.

Regards,

Answer 1

I'm not sure why you are incrementing Row but your loop's condition is based on Column . I've made some assumptions with the following.

Sub LoopAcrossCols()
    Dim c As Long, lc As Long
    With Sheets("Sheet1")
        lc = .Cells(1, Columns.Count).End(xlToLeft).Column
        For c = 3 To lc
            .Cells(2, c).FormulaR1C1 = "=SUM(RC[-1], R[1]C)"
        Next c
    End With
End Sub

Alternate method of filling range with formula without loop.

Sub LoopAcrossCols2()
    Dim lc As Long
    With Sheets("Sheet1")
        lc = .Cells(1, Columns.Count).End(xlToLeft).Column
        .Cells(2, 3).Resize(1, lc - 2).FormulaR1C1 = "=SUM(RC[-1], R[1]C)"
    End With
End Sub