用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

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

相关问题

写一个VBA按列区分，逐行相加得到的和写到最后一行

你可以使用以下的VBA代码实现你的需求：

Sub SumByColumn()
    Dim lastRow As Long
    Dim lastCol As Long
    Dim row As Long
    Dim col As Long
    Dim sum As Double
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row '获取最后一行的行号
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column '获取最后一列的列号
    
    For col = 2 To lastCol '从第2列开始遍历每一列
        sum = 0 '初始化每一列的和为0
        For row = 1 To lastRow '遍历当前列的每一行
            sum = sum + Cells(row, col).Value '累加当前行的值
        Next row
        Cells(lastRow + 1, col).Value = sum '将当前列的和写入最后一行
    Next col
End Sub

上述代码会按列区分，逐行相加得到的和，并将结果写入最后一行。你只需要将代码复制到VBA编辑器中，然后运行即可。请注意，你需要在Excel表格中打开VBA编辑器才能运行这段代码。

写一个VBA按列区分，逐行相乘得到的结果写到最后一行

可以参考下面的VBA代码实现：

Sub MultiplyByColumn()
    Dim lastRow As Long
    Dim lastCol As Long
    Dim i As Long
    Dim j As Long
    Dim product As Double
    
    '获取最后一行和最后一列
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    
    '按列区分，逐行相乘
    For j = 1 To lastCol
        product = 1 '初始化乘积为1
        For i = 1 To lastRow
            product = product * Cells(i, j).Value '计算乘积
        Next i
        Cells(lastRow + 1, j).Value = product '将乘积写入最后一行
    Next j
End Sub

这段代码中，我们首先获取了最后一行和最后一列的行号和列号，然后按列区分，逐行相乘，将结果写入最后一行。需要注意的是，这里的乘积定义为Double类型，以避免在计算过程中出现溢出的问题。