Word VBA实现1×12表格每3行垂直合并的异常问题排查

问题出在哪 #

你的代码存在两个核心问题：

1. 循环未设置步长：原代码中Step 3被注释，导致循环逐行执行。合并第1-3行后表格总行数减少，后续循环会错误地重复处理相邻行，最终形成4行一组的合并结果。
2. 未适配合并后的行号变化：每次合并3行，表格总行数会减少2行，按原总行数循环会导致逻辑混乱，无法精准分组。

修正后的代码 #

针对12行的固定场景，直接设置循环步长为3即可实现每3行合并一组：

Sub MergeCellsVertically()
    Dim tbl As Table
    Dim i As Integer
    
    Set tbl = ActiveDocument.Tables(1)
    
    ' 每3行处理一次，步长设为3
    For i = 1 To tbl.Rows.Count Step 3
        ' 一次性合并当前行及后续两行的单元格
        tbl.Cell(i, 1).Merge tbl.Cell(i + 2, 1)
    Next i
End Sub

代码说明 #

• Step 3让循环直接定位到第1、4、7、10行，正好对应4组合并的起始位置，避免重复处理。
• 直接合并i行和i+2行的单元格，Word会自动包含中间的i+1行，无需分两次合并。

如果表格行数不一定是3的整数倍，可添加边界判断处理剩余行：

Sub MergeCellsVertically()
    Dim tbl As Table
    Dim i As Integer
    
    Set tbl = ActiveDocument.Tables(1)
    
    For i = 1 To tbl.Rows.Count Step 3
        ' 检查是否有足够行数完成3行合并
        If i + 2 <= tbl.Rows.Count Then
            tbl.Cell(i, 1).Merge tbl.Cell(i + 2, 1)
        Else
            ' 合并剩余的不足3行的单元格
            tbl.Cell(i, 1).Merge tbl.Cell(tbl.Rows.Count, 1)
        End If
    Next i
End Sub

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