如何在灵活性的最后一栏数据下创build一个求和函数
Selection.End(xlDown).Select Range("L108").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=SUM(R[-106]C:R[-1]C)" Range("L108").Select Selection.Copy Range("L108:N108").Select Application.CutCopyMode = False Selection.FillRight 需要在列L，M和N下添加一个总和函数，以便能够适应其中行数将会改变的其他电子表格，所以总和不会是相同的范围
这将find最低值（样本代码中的第107行），并在列（L，M和N）的下一行（样本中的第108行）inputSUM公式。
dim lr as long with worksheets("sheet1") lr = .cells(.rows.count, "L").end(xlup).row .cells(lr + 1, "L").resize(1, 3).formular1c1 = _ "=sum(r2c:r" & lr & "c)" end with
以下将在列B的最后一个单元格下面插入一个公式：
Sub MakeColumnSum() Dim kolumn As String, where As Range kolumn = "B" Set where = Range(kolumn & Rows.Count).End(xlUp).Offset(1, 0) where.Formula = "=SUM(" & kolumn & "1:" & kolumn & where.Row - 1 & ")" End Sub