添加列的总行数D – M

我一直在使用这个语法来为D列添加一个总行 – 但是现在我需要为D-M添加总行。而不是只写这个代码多次，改变列名是有一个快速的可重用函数这可能会将总行添加到D – M列的底部？

With ActiveSheet If Application.WorksheetFunction.CountA(.Cells) <> 0 Then lastrow = .Cells.Find(What:="*", _ After:=.Range("D1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row Else lastrow = 1 End If End With Range("D" & lastrow +1).FormulaR1C1 = "=SUM(R[-" & lastrow & "]C:R[-1]C)" 

Answer 1

这与突出显示范围和按Ctrl +右箭头具有相同的效果

 range("D" & lastrow + 1 & ":M" & lastrow + 1).FillRight