多个细胞中的Autosum

  • 本文关键字:Autosum 细胞 excel vba
  • 更新时间 :
  • 英文 :


范围"C11:C12"以上列中的"n"个单元格中有数据此外,我在范围"C100:C101"以上的列中的"m"单元格中有数据

我需要对这些单元格求和。

在没有vba的情况下,如果我同时选择"C11:C12"one_answers"C100:C101",然后按Ctrl+=,作业就完成了。但我想知道用小的vba代码是否可行?

可以录制VBA宏。

转到"开发人员"选项卡(您可以重新配置Excel以使其可见(,其中有opion"记录宏"。

您可以这样做:

Sub Tester()
'pass worksheet and a variable number of range addresses
AutoSumRanges ActiveSheet, "C3:C5", "C11:C15", "A1:A3"
End Sub

'add a SUM() beneatch each range, on the worksheet "ws"
Sub AutoSumRanges(ws As Worksheet, ParamArray ranges() As Variant)
Dim rng As Variant
For Each rng In ranges
With ws.Range(rng)
.Cells(.Cells.Count).Offset(1, 0).Formula = _
"=SUM(" & .Address(False, False) & ")"
End With
Next rng
End Sub

最新更新