如何修改VBA宏实现删除Word表格首单元格为空的行（含合并单元格）

原宏的逻辑是判断整行所有单元格是否为空，要改成仅检查每行首单元格为空就删除，核心是把“判断整行空”的逻辑替换为“判断该行第一个单元格是否为空”。以下是修改后的完整代码：

Sub ClearRowsWithEmptyFirstCell() ' 删除首单元格为空的表格行
    Dim tb As Table
    Dim i As Integer
    Dim currentRow As Row
    Dim firstCellText As String
    
    ' 遍历文档中所有表格
    For Each tb In ActiveDocument.Tables
        ' 从最后一行往前遍历（避免删除行后索引混乱）
        For i = tb.Rows.Count To 1 Step -1
            Set currentRow = tb.Rows(i)
            ' 获取首单元格的文本（Word中空单元格的内容是Chr(13)+Chr(7)）
            firstCellText = currentRow.Cells(1).Range.Text
            ' 判断首单元格是否为空
            If firstCellText = Chr(13) & Chr(7) Then
                currentRow.Delete ' 删除该行
            End If
        Next i
    Next tb
End Sub

关键修改说明： #

• 简化逻辑：不再逐个遍历单元格判断整行状态，直接定位每行的第一个单元格做检查
• 遍历方向保持从后往前：避免删除行后，后续行的索引发生偏移导致漏判或误判
• 明确判断条件：仅对比首单元格的文本是否为Word空单元格的默认标识Chr(13) & Chr(7)

注意事项： #

• 如果表格存在合并单元格，currentRow.Cells(1)仍能正确指向该行的第一个单元格（哪怕该单元格是合并后的）
• 执行宏前建议先保存文档，避免意外修改无法恢复

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