写一串vba代码自动求和

下面是一个简单的VBA代码示例，用于自动求和一个指定范围的单元格：

Sub AutoSum()

    Dim sumRange As Range
    Dim sumResult As Double
    
    ' 设置求和范围
    Set sumRange = Range("A1:A10")
    
    ' 初始化求和结果
    sumResult = 0
    
    ' 循环遍历求和范围
    For Each cell In sumRange
        sumResult = sumResult + cell.Value
    Next cell
    
    ' 显示求和结果
    MsgBox "求和结果为: " & sumResult

End Sub

在此示例中，我们使用了一个名为sumRange的范围变量，它代表了我们要进行求和的单元格范围。您可以根据需要修改范围的起始和结束单元格。

然后，我们使用一个sumResult变量来存储求和的结果，并将其初始化为0。

接下来，我们使用一个For Each循环遍历sumRange中的每个单元格，并将其值加到sumResult中。

最后，我们使用MsgBox函数显示求和结果。

您可以将此代码复制粘贴到Excel的VBA编辑器中，并运行它来自动计算指定范围的单元格的和