VBA Code to Summarize Data with Subtotals in Excel

VBA Code:

' VBA Code to Summarize Data with Subtotals in Excel
' This code calculates subtotals for a specified column in a range

Sub SummarizeDataWithSubtotals()
    Dim rngData As Range
    Dim rngSubtotals As Range
    
    ' Set the range of data to summarize
    Set rngData = Range("A1:C10")
    
    ' Calculate subtotals for column C
    Set rngSubtotals = rngData.Columns(3).Resize(, 1)
    rngSubtotals.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3)
    
    ' Display a message with the summary results
    MsgBox "Data has been summarized with subtotals in column C."
End Sub


Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group

Leave a Comment