VBA中Range区域求和失败求助：需通过VBA实现而非单元格公式

哦，我一眼就看出问题所在了！你犯了VBA里一个超常见的新手错误——用Set关键字去赋值数值类型的求和结果，但Set是专门用来给对象（比如Range、Workbook这类）绑定引用的，而Sum函数返回的是一个普通的数字，根本不需要用Set！这就是你所有写法都失败的核心原因。

正确的实现步骤 #

1. 声明正确类型的变量：求和结果是数值，所以要把变量声明为Double、Long或者Single这类数值类型，而非对象类型。
2. 去掉Set关键字直接赋值：直接把Sum的结果赋值给数值变量即可。

完整示例代码 #

下面给你两种常用的求和写法，附带注释说明：

Sub GetRangeSum()
    ' 声明变量：工作表对象、目标区域对象、求和结果（数值类型）
    Dim targetSheet As Worksheet
    Dim sumRange As Range
    Dim totalSum As Double
    
    ' 优先直接指定工作表，避免依赖ActiveWorkbook的不确定性
    Set targetSheet = ThisWorkbook.Worksheets("SheetName") ' 替换成你的工作表名
    ' 把要求和的区域赋值给变量，代码更易读也更易维护
    Set sumRange = targetSheet.Range("A1:C10") ' 替换成你的实际区域
    
    ' 方法1：使用Application.Sum
    ' 优点：遇到非数值内容时会自动忽略，出错时返回错误值（比如#VALUE!），不会中断代码执行
    totalSum = Application.Sum(sumRange)
    
    ' 方法2：使用WorksheetFunction.Sum
    ' 优点：严格校验，遇到无法求和的内容会直接抛出运行时错误，适合需要严格数据检查的场景
    ' totalSum = WorksheetFunction.Sum(sumRange)
    
    ' 输出结果：可以用弹窗展示，也可以写入单元格
    MsgBox "指定区域的总和为：" & totalSum
    ' 写入到单元格的示例：比如写入到D1单元格
    ' targetSheet.Range("D1").Value = totalSum
End Sub

额外注意事项 #

• 尽量避免使用ActiveWorkbook，推荐用ThisWorkbook（指代当前运行VBA代码的工作簿）或者直接指定工作簿名称，防止切换工作簿时出现引用错误。
• 确保你的目标区域引用正确，工作表名称和单元格范围都要存在且有效。
• 如果区域中包含非数值内容，Application.Sum会自动跳过这些内容求和，而WorksheetFunction.Sum会直接报错，你可以根据自己的需求选择合适的方法。

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