Word表格自动求和功能异常：VBA代码运行结果不符预期

问题根源 #

1. 直接读取Word单元格Range.Text时，会包含单元格自带的隐藏结束标记（Chr(13) & Chr(7)），导致字符串无法正确转换为数值，相加时会变成字符串拼接而非数值运算。
2. 变量未显式声明类型，容易引发类型不匹配错误。
3. 使用Selection操作单元格效率低且易出错，直接操作单元格Range更可靠。

修正后的代码 #

Sub totalFlight()
    Dim theTable As Table
    Dim currentSum As Double ' 存储累加值
    Dim rowNum As Integer
    
    Set theTable = ActiveDocument.Tables(2)
    ' 初始化第一行累加值（第3行第8列）
    currentSum = Val(Replace(theTable.Cell(3, 7).Range.Text, Chr(13) & Chr(7), ""))
    theTable.Cell(3, 8).Range.Text = CStr(currentSum)
    
    ' 从第4行开始循环累加
    For rowNum = 4 To theTable.Rows.Count
        ' 获取当前第7列的数值，去掉单元格结束标记
        Dim currentVal As Double
        currentVal = Val(Replace(theTable.Cell(rowNum, 7).Range.Text, Chr(13) & Chr(7), ""))
        ' 执行累加计算
        currentSum = currentSum + currentVal
        ' 将结果写入第8列
        theTable.Cell(rowNum, 8).Range.Text = CStr(currentSum)
    Next rowNum
End Sub

关键修正点说明 #

• 用Replace(theCell.Range.Text, Chr(13) & Chr(7), "")去除单元格文本末尾的隐藏标记，确保能正确转换为数值。
• 通过Val()函数将处理后的文本转为数值类型，保证是数值运算而非字符串拼接。
• 引入currentSum变量存储累加值，避免重复读取上一行单元格内容，减少错误概率。
• 移除Selection操作，直接通过Cell.Range.Text赋值，代码更高效稳定。
• 所有变量显式声明类型，符合VBA最佳实践，避免隐式类型转换错误。

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