Слияние и суммирование итогов в Excel VBA - PullRequest
Новая
       14

Слияние и суммирование итогов в Excel VBA

0 голосов
/ 26 ноября 2018

У меня есть таблица в Excel, и мне нужно, чтобы она суммировала итоговые данные ячейки B и возвращала значение в ячейке после последнего значения.Следующий код делает это.

 Sub Total()

    Range("B2").End(xlDown).Offset(1, 0) = _
    "=sum($B$2:" & Range("B2").End(xlDown).Address & ")"

    End Sub

Мне нужно, чтобы объединить ячейки от B до H, отформатировать текст жирным шрифтом, изменить цвет и добавить текст "Всего", , как это

1 Ответ

0 голосов
/ 26 ноября 2018 
Sub Total()

    Dim l As Long

    l = Cells(Rows.Count, "A").End(xlUp).Row

    Range("B" & l + 1) = "=sum(B2:B" & l & ")"

    With Range("A" & l + 1)
        .FormulaR1C1 = "Total"
        .Font.Bold = True
    End With

    With Range("B" & l + 1 & ":H" & l + 1)
        .MergeCells = True
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
    End With

    With Range("A" & l + 1 & ":H" & l + 1).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.149998474074526
        .PatternTintAndShade = 0

    End With

End Sub
...