Excel：vba实现根据输入的月份汇总数据的功能

实现前的效果：

实现后的效果：

1.页面弹出想要汇总到的月份，就是指定月份的累计数

2.输入月份之后开始进行汇总，汇总之后会弹出汇总成功的字样

我输入1月份后，效果如下：

代码如下：(可以删掉有关上面的b2单元格的几句话以及根据自己情况修改行和列，依然使用别的案例)

Sub 汇总数据()
    Dim lastRow As Long
    Dim monthInput As Integer
    Dim i As Long, j As Long
    Dim Result As Double '得到的结果

    lastRow = Cells(Rows.Count, 4).End(xlUp).Row  '获取最后一行
    lastCol = Cells(4, Columns.Count).End(xlToLeft).Column  '获取最后一列

    monthInput = InputBox("请输入汇总到几月份的数字（1-12）：") '提示输入汇总到第几月份
    If monthInput < 1 Or monthInput > 12 Then '验证输入的月份是否合法
        MsgBox "请输入有效的月份（1到12）！"
        Exit Sub
    End If
    Range("b2").Value = monthInput & "月"  '数据表b2单元格的月份随输入的月份而变化
 
    Cells(3, lastCol + 1).Value = monthInput & "月"  '因为要再全年累计后面一列写，所以列数加1
    For i = 4 To lastRow  '遍历每一行，计算从1月份到输入月份的数据总和
        result = 0  ' 初始化每行的汇总结果
   ' 遍历列，从第4列到对应月份的列（4+月份-1）,也可以写（月份+3）因为可以发现月份和所在列数相差3
        For j = 4 To 4 + monthInput - 1
            result = result + Cells(i, j).Value
        Next j
        result1 = Format(result, "0.00")  '将得到的结果保留成两位小数
        Cells(i, lastCol + 1).Value = result1  ' 将汇总结果存储在全年累积后面一列
    Next i
    MsgBox "汇总完成！"
End Sub