时间戳

首页 > 解决方案 > 将公式插入最后一行并自动填充直到最后一列 Excel VBA

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

问题描述

目前我有

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 & ")"

标签： excelvba

解决方案

我将最后一行更改为

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

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

推荐阅读