用VBA写一个逐行相加到最后一行

以下是一个简单的VBA代码，用于逐行相加到最后一行。请将代码复制到Excel的VBA编辑器中，并按下F5运行即可。

Sub SumRows()
    Dim lastRow As Long
    Dim i As Long
    Dim sum As Double
    
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row '获取数据的最后一行
    
    For i = 1 To lastRow '逐行相加
        sum = sum + Cells(i, 1).Value
    Next i
    
    MsgBox "总和为：" & sum '输出结果
End Sub

请注意，此代码假定您的数据位于第一列中，并且第一行包含标题。如果您的数据位于其他列或行中，请相应地更改代码。