excel一列求和vba代码

Sub SumColumn()
Dim lastRow As Long
Dim sum As Double

lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取最后一行的行号
sum = Application.WorksheetFunction.Sum(Range("A1:A" & lastRow)) '求和

MsgBox "A列的和为：" & sum '弹出消息框显示结果

End Sub

以上代码是一个简单的VBA代码，用于在Excel中求一列数据的和。具体的实现步骤如下：

首先，需要声明两个变量，一个用于存储最后一行的行号，另一个用于存储求和的结果。

然后，使用Cells(Rows.Count, “A”).End(xlUp).Row语句获取最后一行的行号。这个语句的作用是从最后一行开始向上查找，直到找到第一个非空单元格的行号。

接下来，使用Application.WorksheetFunction.Sum(Range(“A1:A” & lastRow))语句求和。这个语句的作用是对A列中从第1行到最后一行的数据进行求和。

最后，使用MsgBox语句弹出一个消息框，显示求和的结果。

需要注意的是，以上代码中的A1:A是指要求和的列范围，可以根据实际情况进行修改。同时，如果要对多列数据进行求和，可以将Range(“A1:A” & lastRow)修改为Range(“A1:C” & lastRow)，其中C是要求和的最后一列。