如何用vba批量删除word表格中的空白行、空白列？ |
您所在的位置：网站首页 › 怎么在word删除空白行 › 如何用vba批量删除word表格中的空白行、空白列？ |
|
如何用vba批量删除word表格中的空白行、空白列？
2018年8月27日
作者：水星Excel
8,804 次浏览
暂无评论
在word中处理表格与在excel中处理表格是截然不同的。 如果要删除word表格中的行，可以使用Table对象的Rows属性返回具体的行，然后用Delete方法。 同理，如果要删除word表格中的列，可以使用Table对象的Columns属性返回具体的列，然后用Delete方法。 如果要判断是否为空行或者空列，可以遍历要判断的行或者列，统计下空白单元格的数量是否与总行数或者总列数一致，如果一致，表示当前行或者列均为空，然后就可以用上述的方法删除。 以下是批量删除word表格中的空白列的代码： Sub QQ1722187970() Dim oDoc As Document Set oDoc = Word.ActiveDocument Dim oT As Table Dim oRng As Range Dim oCol As Column Dim oRow As Row Dim oCell As Cell With oDoc For Each oT In .Tables With oT iRow = .Rows.Count iCol = .Columns.Count For j = iCol To 1 Step -1 n = 0 For i = iRow To 1 Step -1 Set oCell = .Cell(i, j) '空白单元格含有两个字符Chr(13) & Chr(7) If oCell.Range.Text = Chr(13) & Chr(7) Then n = n + 1 End If Next i If n = iRow Then .Columns(j).Delete End If Next j End With Next End With End Sub以下是批量删除word表格中的空白行的代码： Sub QQ1722187970() Dim oDoc As Document Set oDoc = Word.ActiveDocument Dim oT As Table Dim oRng As Range Dim oCol As Column Dim oRow As Row Dim oCell As Cell With oDoc For Each oT In .Tables With oT iRow = .Rows.Count iCol = .Columns.Count For i = iRow To 1 Step -1 n = 0 For j = iCol To 1 Step -1 Set oCell = .Cell(i, j) '空白单元格含有两个字符Chr(13) & Chr(7) If oCell.Range.Text = Chr(13) & Chr(7) Then n = n + 1 End If Next j If n = iCol Then .Rows(i).Delete End If Next i End With Next End With End Sub 其它相关文章推荐：如何在vba中使用Word Application对象的邮件合并事件？如何用vba处理word表格？如何用vba定位word表格的单元格，并且删除单元格中的特定字符？如何用vba批量修改ppt中表格的文字字体、边框、单元格填充色的格式？如何用vba在word文档的末尾或者开头插入内容？如何用vba遍历含有合并单元格的word表格？ 分类 : VBA , WORD VBA 标签 : word表格 , 删除 , 空白列 , 空白行声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。 |
今日新闻 |
推荐新闻 |
| CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |