Excel VBA求和出现字符串拼接而非数值相加问题求助

嘿，刚接触VBA踩这种坑太正常了，我来帮你拆解两个核心问题：

1. 工作表引用完全搞反了！ #

你原本的需求是把「tableau」工作表的J3和M3相加，结果存入「Company」的H4，但你的代码写反了工作表对象：

worksheet("tableau").Range("h4").Value = worksheet("Company").Range("J3").Value + worksheet("Company").Range("M3").Value

这段代码实际是把「Company」里的两个单元格值处理后，放到「tableau」的H4里，完全和你的需求背道而驰！

2. 文本格式数字导致字符串拼接 #

出现1500.60700.20这种拼接结果，说明你「tableau」里的J3和M3是文本格式的数字。VBA里的+运算符逻辑有点特殊：只要其中一个操作数是字符串类型，它就会优先执行字符串拼接，而不是算术加法。

修正后的完整代码 #

先把工作表引用改对，同时强制将单元格值转换为数值类型（用CDbl()转换为双精度浮点数，适合带小数的场景）：

' 按你的需求：tableau的J3+M3 → 存入Company的H4
Worksheets("Company").Range("H4").Value = CDbl(Worksheets("tableau").Range("J3").Value) + CDbl(Worksheets("tableau").Range("M3").Value)

额外小提醒 #

• VBA里工作表对象的规范写法是Worksheets（复数形式），虽然部分版本兼容单数worksheet，但建议用复数避免潜在问题。
• 如果单元格可能为空，可以加个空值判断，避免转换时报错：

Dim valJ3 As Double, valM3 As Double
' 空单元格默认按0计算
valJ3 = IIf(IsEmpty(Worksheets("tableau").Range("J3").Value), 0, CDbl(Worksheets("tableau").Range("J3").Value))
valM3 = IIf(IsEmpty(Worksheets("tableau").Range("M3").Value), 0, CDbl(Worksheets("tableau").Range("M3").Value))
Worksheets("Company").Range("H4").Value = valJ3 + valM3

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