VBA实现4位数字各位求和失败：结果为字符串拼接而非数值相加

你遇到的“数字拼接而非相加”的问题，核心是变量声明的语法错误，导致intd1到intd4这些变量的类型根本不是你以为的Integer，而是默认的Variant，且实际存储的是字符串值。

VBA里一行声明多个变量时，必须给每个变量单独指定类型，否则只有最后一个变量会被赋予你指定的类型，前面的全是Variant。看你代码里的这行：

Dim intd1, intd2, intd3, intd4, main, intm As Integer

只有intm是Integer，其他所有变量都是Variant类型。而Left、Mid、Right这些函数返回的是字符串，赋值给Variant变量后会保持字符串类型。当你用+运算符处理字符串时，VBA就会执行拼接操作，而不是数字加法——这就是为什么你得到的是1234而不是预期的1+2+3+4=10。

你可以任选一种方式解决：

方案1：修正变量声明，明确所有变量类型 #

把每个变量的类型都单独声明，确保它们都是Integer：

Dim intd1 As Integer, intd2 As Integer, intd3 As Integer, intd4 As Integer, main As Integer, intm As Integer

这样Left等函数返回的字符串会被自动转换为整数，+运算符就会执行加法操作。

方案2：显式转换字符串为数字 #

如果不想改变量声明，可以在赋值时用CInt()函数把字符串强制转成整数：

intd1 = CInt(Left(main, 1))
intd2 = CInt(Mid(main, 2, 1))
intd3 = CInt(Mid(main, 3, 1))
intd4 = CInt(Right(main, 1))

这样哪怕变量是Variant，存储的也是数字类型，相加时就会得到正确的和。

这里用方案1的修复，完整代码如下：

Sub AddDigits()
' Add individual digits of number together
Dim intd1 As Integer, intd2 As Integer, intd3 As Integer, intd4 As Integer, main As Integer, intm As Integer
main = 1234
intd1 = Left(main, 1)
MsgBox (intd1)
intd2 = Mid(main, 2, 1)
MsgBox (intd2)
intd3 = Mid(main, 3, 1)
MsgBox (intd3)
intd4 = Right(main, 1)
MsgBox (intd4)
intm = intd1 + intd2 + intd3 + intd4
MsgBox ("intm = " & intm & Chr(13) & _
"intd1 = " & intd1 & Chr(13) & _
"intd2 = " & intd2 & Chr(13) & _
"intd3 = " & intd3 & Chr(13) & _
"intd4 = " & intd4 & Chr(13))

' 把结果输出到工作表A1单元格（可根据需求修改位置）
Range("A1").Value = intm
End Sub

运行这段代码，你会得到intm = 10的正确结果，同时结果会写入到工作表的A1单元格中。

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