vba写一个excel求和程序

以下是一个简单的 VBA 程序，用于在 Excel 中对指定的单元格范围执行求和操作：

Sub SumCells()
    Dim total As Double
    Dim rangeToSum As Range
    
    Set rangeToSum = Range("A1:C10") ' 修改此处以设置要求和的单元格范围
    
    total = Application.WorksheetFunction.Sum(rangeToSum)
    
    MsgBox "总和为：" & total ' 显示总和
    
End Sub

请将代码复制并粘贴到 VBA 编辑器中，然后修改 `rangeToSum` 变量以设置要求和的单元格范围。您还可以使用 `InputBox` 函数让用户在程序运行时输入要求和的单元格范围。

如果您需要在 Excel 中运行此程序，请按 `Alt + F8` 打开宏对话框，然后选择要运行的宏并单击“运行”按钮。