VBA合并Word表格第一列空单元格时报5941错误问题咨询

报错根因 #

• 初始通过Selection.SelectColumn获取的Cells集合是执行选择操作那一刻的第一列单元格静态快照，合并单元格后表格实际单元格总数会减少，原始遍历集合和实际表格结构不匹配
• 正序遍历过程中动态修改单元格总数，导致后续通过累加的count变量索引单元格时，索引值超出了当前表格实际存在的单元格范围，因此触发5941错误

修复方案 #

采用倒序遍历逻辑，从第一列最后一行向上遍历，合并操作不会影响未遍历单元格的索引，可正常处理多段空单元格区间。

Sub MergeFirstColumnEmptyCells()
    Dim tbl As Table
    Dim i As Integer
    ' 绑定当前文档第一个表格，减少重复索引提升稳定性
    Set tbl = ActiveDocument.Tables(1)
    
    ' 倒序遍历第一列所有单元格，从最后一行往第一行走，规避合并导致的索引错位
    For i = tbl.Rows.count To 2 Step -1
        ' 判断单元格是否为空：Word空单元格仅包含段落标记，ASCII值为13
        If Asc(tbl.Cell(i, 1).Range.Text) = 13 Then
            ' 将空单元格与上一行同列单元格合并
            tbl.Cell(i, 1).Merge MergeTo:=tbl.Cell(i - 1, 1)
        End If
    Next i
End Sub

代码说明 #

• 无需手动选中表格或列，后台静默执行无界面跳转，运行效率更高
• 可自动识别所有空单元格区间，统一将空单元格与上方最近的非空单元格合并
• 提前绑定表格对象，避免重复调用表格集合，代码健壮性更强

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