提取表格最后一列数值并在倒数第二列求和，遇垂直合并单元格报错求助

问题分析 #

原代码因硬编码行列索引、未适配垂直合并单元格的结构，导致引用不存在的单元格报错；同时存在变量声明不规范、仅固定处理两行数据、无数值容错等问题。

修正后的VBA代码 #

以下代码可正确处理带垂直合并单元格的表格，提取最后一列数值并求和，将结果写入倒数第二列的最后一行：

Sub SumLastColumnWithMergedCells()
    Dim tbl As Table
    Dim lastCol As Integer, secondLastCol As Integer
    Dim total As Double
    Dim iRow As Integer
    Dim cell As Cell
    Dim cellText As String
    Dim cellValue As Double
    Dim mergedRowCount As Integer
    
    ' 定位目标表格（此处为文档中第一个表格）
    Set tbl = ActiveDocument.Tables(1)
    lastCol = tbl.Columns.Count
    secondLastCol = lastCol - 1
    total = 0
    iRow = 1
    
    ' 遍历表格行，处理合并单元格
    Do While iRow <= tbl.Rows.Count
        Set cell = tbl.Cell(iRow, lastCol)
        ' 移除Word单元格末尾的隐藏特殊字符（Chr(13)+Chr(7)）
        cellText = Left(cell.Range.Text, Len(cell.Range.Text) - 2)
        
        ' 仅处理数值型文本，避免报错
        If IsNumeric(cellText) Then
            cellValue = CDbl(cellText)
            total = total + cellValue
            
            ' 获取合并单元格覆盖的行数，跳过已处理的合并行
            mergedRowCount = cell.MergeArea.Rows.Count
            iRow = iRow + mergedRowCount
        Else
            iRow = iRow + 1
        End If
    Loop
    
    ' 将求和结果写入倒数第二列的最后一行（可根据需求调整目标位置）
    tbl.Cell(tbl.Rows.Count, secondLastCol).Range.Text = total
End Sub

关键优化点 #

• 适配合并单元格：通过MergeArea.Rows.Count获取垂直合并的行数，跳过重复行，避免重复计算或引用不存在的单元格
• 动态行列索引：用tbl.Columns.Count获取最后一列索引，无需硬编码，适配不同结构的表格
• 变量规范：明确声明变量类型，改用Double支持小数求和，避免整数溢出
• 容错处理：用IsNumeric判断文本是否为数值，防止非数值内容导致运行报错
• 遍历所有行：通过循环处理表格全部行，而非仅固定两行

原代码的核心问题 #

1. 硬编码行列索引（Rows(1)、Cells(2)），无法适配合并单元格结构，导致引用不存在的单元格报错
2. 变量声明错误：Dim value1, value2 As Integer 仅value2为Integer类型，value1为默认Variant类型
3. 未处理非数值文本，若单元格内容不是整数会直接报错
4. 仅处理两行数据，未实现全表格求和

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