写一个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按列区分，逐行相除得到的和写到最后一行

这是一个IT类问题。

以下是一个示例代码，可以实现按列区分，逐行相除得到的和写到最后一行的功能：

Sub DivideByColumn()
    Dim lastRow As Long
    Dim numCols As Integer
    Dim i As Integer, j As Integer
    Dim total As Double
    Dim cellValue As Double
    
    '确定最后一行和列数
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    numCols = ActiveSheet.UsedRange.Columns.Count
    
    '逐列进行计算
    For i = 1 To numCols
        total = 0
        '计算当前列的总和
        For j = 1 To lastRow
            cellValue = Cells(j, i).Value
            If IsNumeric(cellValue) Then
                total = total + cellValue
            End If
        Next j
        
        '逐行进行除法运算，并将结果写入当前列的最后一行
        For j = 1 To lastRow
            cellValue = Cells(j, i).Value
            If IsNumeric(cellValue) And total <> 0 Then
                Cells(j, i).Value = cellValue / total
            End If
            
            '将每行的结果累加到最后一行
            If i = numCols Then
                Cells(lastRow + 1, 1).Value = Cells(lastRow + 1, 1).Value + Cells(j, i).Value
            End If
        Next j
    Next i

End Sub

这个宏可以将当前活动工作表中的数据逐列进行计算，并将每行的结果除以当前列的总和，最后将每行的结果累加到最后一行的第一个单元格中。请注意，此代码仅适用于数字数据，如果数据中包含非数字，则需要相应地进行修改。

写一个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类型，以避免在计算过程中出现溢出的问题。