将公式插入最后一行并自动填充，直到最后一列Excel VBA

Question

当前我有

lastcol = Cells(14, Columns.Count).End(xlToLeft).Column
lastrow = Cells(Rows.Count, 11).End(xlUp).Row
Cells(lastrow, "L").Formula = "=sum(L15:L" & lastrow - 1 & ")"

这将从L15到L的第二行到最后一行的所有内容相加 如何调整它，使其也自动填充右边的公式，直到最后一列？

我尝试过以此方式调整代码，但无法编译

Cells((LR & "L"), Cells(LR, lastcol - 1)).Formula = "=sum(L15:L" & LR & ")"

Answer 1

我将最后一行更改为

 Range(Cells(lastrow, "L"), Cells(lastrow, lastcol)).Formula = "=sum(L15:L" & LR - 1 & ")"

这会将范围设置为L中的最后一行，最后一行和最后一列，并添加上面的公式，希望对您有所帮助！