VBA中求和值赋给变量返回0，赋给Range正常的问题排查

你的代码出现变量值为0但单元格赋值正常的情况，大概率是以下原因之一：

1. 命名区域与变量名冲突 #

如果工作表中存在名为total的命名区域，VBA会优先将total解析为这个区域对象，而非你声明的Long类型变量。此时赋值操作实际是对命名区域赋值，而非变量，导致你看到的变量值始终为0。

解决办法：

• 重命名变量，比如改为totalSum：

  Sub test()
      Dim totalSum As Long
      totalSum = Application.WorksheetFunction.Sum(Cells(2, 3), Cells(3, 8))
      Range("D50") = totalSum
  End Sub
  

• 或者通过【公式】选项卡的【名称管理器】删除工作表中名为total的命名区域。

2. 工作表引用不明确 #

如果目标数据不在当前激活的工作表中，Cells(2,3)和Cells(3,8)会默认引用当前激活表的单元格，而Range("D50")可能恰好指向目标表的单元格（比如代码写在目标工作表的模块中），导致结果不一致。

解决办法：
明确指定工作表，比如数据在Sheet1中：

Sub test()
    Dim total As Long
    With ThisWorkbook.Worksheets("Sheet1")
        total = Application.WorksheetFunction.Sum(.Cells(2, 3), .Cells(3, 8))
        .Range("D50") = total
    End With
End Sub

注意.的使用，确保所有单元格引用都指向目标工作表。

3. 直接使用单元格值相加替代WorksheetFunction.Sum #

避免依赖工作表函数，直接取单元格的值相加，减少潜在的解析问题：

Sub test()
    Dim total As Long
    total = Cells(2, 3).Value + Cells(3, 8).Value
    Range("D50") = total
End Sub

这种方式更直接，也能规避WorksheetFunction可能出现的隐性错误。

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