Автосумма в нескольких ячейках

Question

У меня есть данные в ячейках "n" в столбцах выше диапазона "C11: C12" Также у меня есть данные в ячейках "m" в столбцах выше диапазона "C100: C101"

Мне нужно суммировать эти ячейки .

Без vba, если я выберу «C11: C12» и «C100: C101» вместе, а затем нажму Ctrl + =, работа будет завершена. Но мне интересно, если это возможно с небольшим кодом VBA?

Answer 1

Макросы VBA могут быть записаны.

Go на вкладку «Разработчики» (вы можете перенастроить Excel, чтобы сделать это видимым), там у вас есть опция «Запись макроса».

Answer 2

Вы можете сделать что-то вроде этого:

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