Question

我正在编写vba中的下一个公式

ActiveSheet.Cells(ActiveCell.Row, 1).Select
ActiveCell.Offset(0, 7).Select

With ActiveCell
.formula = "=SUM(" & .Offset(1, 0).Address(0, 0) & ":" & _
.End(xlDown).Offset(0, 0).Address(0, 0) & ")"
 End With

它给我带来了一些问题，因为如果我运行宏一次它只需要公式中的一行：= SUM（H11：H11），但如果我运行它两次它完美的工作，接受所有的总和值直到工作表中的第一个空白单元格。

你能帮助我改进我的宏，以便它从第一次运行起正常工作吗？

感谢您的关注并提前

最好的问候，塞尔吉奥

Answer 1

试试这个：

With ActiveCell
    lastrow = Cells(Rows.Count, .Column).End(xlUp).Row
    .Formula = "=SUM(" & .Offset(1, 0).Address & ":" & Cells(lastrow, .Column).Address & ")"
End With

Answer 2

这是你在尝试的吗？

With ActiveCell
    .Formula = "=SUM(" & _
                     .Offset(1, 0).Address & ":" & _
                     .Offset(1, 0).End(xlDown).Address & _
                    ")"
End With

BTW INTERESTING READ

VBA公式效果不佳

2 个答案: