VBA宏技术问询：如何对指定区域求和，示例含Set rango = Range("A7:A7+8")

嘿，我来帮你解决VBA里对选定区域求和的问题！首先得指出你代码里的一个小错误——Range("A7:A7+8")这种写法是无效的，VBA没法解析字符串里的表达式，得换正确的方式定义目标区域。接下来给你几种实用的实现方法：

第一步：修正区域定义 #

要表示从A7开始往下8行（总共9个单元格：A7到A15），可以用这两种正确的写法：

• 直接指定明确范围：Set rango = Range("A7:A15")
• 用Resize动态调整（适合需要灵活修改行数的场景）：Set rango = Range("A7").Resize(9) （参数是总行数，包含A7本身，所以是9）
• 如果要处理用户当前手动选定的任意区域，直接写：Set rango = Selection

方法1：调用Excel内置SUM函数（最简便高效） #

直接借助WorksheetFunction调用Excel的SUM功能，代码简洁速度快：

Sub SumTargetRange()
    Dim rango As Range
    ' 替换成你需要的区域，比如用户选定区域就用Set rango = Selection
    Set rango = Range("A7:A15")
    
    Dim total As Double
    ' 计算求和结果
    total = WorksheetFunction.Sum(rango)
    
    ' 输出结果的两种方式，选一个就行
    MsgBox "区域总和为：" & total ' 弹窗显示
    ' Range("B7").Value = total ' 把结果写入B7单元格
End Sub

方法2：遍历单元格逐个累加（适合需要额外判断的场景） #

如果要在求和时跳过空值、负数或者做其他自定义判断，就用循环遍历每个单元格：

Sub SumByLoop()
    Dim rango As Range, celda As Range
    Set rango = Range("A7:A15") ' 或者 Set rango = Selection
    
    Dim total As Double
    total = 0
    
    For Each celda In rango
        ' 可选：只累加数值型非空单元格
        If IsNumeric(celda.Value) And Not IsEmpty(celda.Value) Then
            total = total + celda.Value
        End If
    Next celda
    
    MsgBox "累加后的总和是：" & total
End Sub

额外提示：添加错误处理 #

如果区域里全是文本或者没有可求和内容，WorksheetFunction.Sum会报错，建议加上简单的错误处理：

Sub SumWithErrorHandle()
    Dim rango As Range
    Set rango = Selection
    
    Dim total As Double
    On Error Resume Next ' 开启错误捕获
    total = WorksheetFunction.Sum(rango)
    If Err.Number <> 0 Then
        MsgBox "所选区域中没有可求和的数值！"
        Exit Sub
    End If
    On Error GoTo 0 ' 关闭错误捕获
    
    MsgBox "区域总和为：" & total
End Sub

内容的提问来源于stack exchange，提问作者Chris David