excel 宏命令 VB 批量删除word表格的指定行

不偏不易94

于 2020-12-21 11:14:27 发布

阅读量2.3k

点赞数

分类专栏：数据处理工具文章标签： excel

本文链接：https://blog.csdn.net/yyfjm1994/article/details/111469754

版权

数据处理工具专栏收录该内容

5 篇文章

订阅专栏

Sub 删表格红色行()
    
    '每个表格只能有一个红色的行，有多个只处理第一个
    Dim tb As Table, cl As Cell
    
    For Each tb In ActiveDocument.Tables
        For Each cl In tb.Range.Cells
            If cl.Range.Font.Color = 255 Then
                cl.Row.Delete
                Exit For
            End If
        Next
    Next
    
    MsgBox "处理完毕！"
End Sub

通过swagger.json转换word api文档后，发现有大量的exception行，做批量移除行操作。