Как суммировать столбцы для выбранного диапазона, используя VBA?

Question

После того, как я выбрал диапазон, содержащий числовые значения, я хочу через VBA ввести формулу =SUM внизу каждого столбца, то есть в строке после последней выбранной строки.Для каждого столбца следует суммировать все значения в соответствующем столбце всего выделения.

Как я могу это сделать?

Сейчас я использую код, заданный устройством записи макросов: ActiveCell.FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)".Проблема в том, что когда мой диапазон становится больше 10 строк, он не учитывает строки выше 10 нижних.

Answer 1

Вот простой подход не VBA.

Выберите ячейки, в которых вы хотите сумму, и нажмите Alt - = .

СНАПШОТ

А вот однострочный код VBA, который делает то же самое.

Sub AutoSum()
    '~~> After you select your range
    Application.CommandBars.ExecuteMso ("AutoSum")
End Sub

Answer 2

Это работает:

Sub MakeSums()
    Dim source As Range
    Dim iCol As Long
    Dim nCol As Long
    Dim nRow As Long

    Set source = Selection

    nCol = source.Columns.Count
    nRow = source.Rows.Count
    For iCol = 1 To nCol
        With source.Columns(iCol).Rows(nRow).Offset(1, 0)
            .FormulaR1C1 = "=SUM(R[-" & nRow & "]C:R[-1]C)"
            .Font.Bold = True
        End With
    Next iCol

End Sub

Пример:

Answer 3

Вы также можете сделать что-то подобное без VBA:

=SUM(OFFSET(INDIRECT(CELL("address")),1-ROW(),0,ROW()-1,1))

Суммирует все ячейки выше ячейки, в которой существует формула.