如何通过VBA代码删除Word表格中第2列为空的整行？

这段代码专门处理Word文档里的表格，针对第2个表格，从最后一行往上挨个检查，只要某行第2列是空的，就直接删掉整行。

完整代码 #

Sub DeleteRowsIfEmpty()
    Dim myTbl As Word.Table
    Dim rowCount As Long
    Dim r As Long
    
    ' 指定要操作的表格（这里是文档中的第2个表格）
    Set myTbl = ActiveDocument.Tables(2) ' 需要操作其他表格的话，修改括号里的数字
    
    ' 获取表格总行数
    rowCount = myTbl.Rows.Count
    
    ' 从最后一行往上遍历（避免删行后索引错乱）
    For r = rowCount To 2 Step -1
        ' 检查第2列单元格是否为空（Trim去除空格/换行等无效字符）
        If Trim(myTbl.cell(r, 2).Range.Text) = "" Then
            ' 删除该行
            myTbl.Rows(r).Delete
        End If
    Next r
End Sub

关键细节说明 #

• 从后往前遍历：如果从第一行开始删，删掉一行后后面的行索引会往前挪，容易出现漏删或者索引越界报错，倒着遍历就不会有这个问题
• Trim函数：Word表格单元格里可能藏着空格、段落标记这类看不见的字符，用Trim可以把这些无效字符清掉，确保判断的是真正的空单元格
• 指定表格：如果要操作文档里的其他表格，把Tables(2)里的数字改成对应表格的序号就行（第一个表格是Tables(1)）
• 跳过第一行：代码默认从第2行开始检查，要是不需要保留表头，把To 2改成To 1即可

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