Word VBA技术：判断表格中的单元格是否为空
标签：Word VBA
可以使用VBA代码来判断文档中表格内的单元格是否为空。下面的代码检查所选文档内容中表格内的单元格，并给出空单元格的信息。
方法1
基于空单元格由Chr(7)跟随的段落标记组成，可以使用Range对象检测空单元格，代码如下：
Sub CheckTableCells()
Dim rngCell As Cell
Dim rngRow As Row
For Each rngRow In Selection.Tables(1).Rows
For Each rngCell In rngRow.Cells
If rngCell.Range.Text = Chr(13) & Chr(7) Then
MsgBox "第" & rngCell.RowIndex & "行,第" & rngCell.ColumnIndex & "列为空."
End If
Next rngCell
Next rngRow
End Sub方法2
使用Range变量，将其设置为标记每个单元格的区域，移动到区域的末端，使单元格末端标记和段落标记不包含在区域中（要执行此操作，只需将其移动一个字符），并获取区域内的文本。如果单元格为空，则区域内没有文本。代码如下：
Sub CheckTableCells1()
Dim rngCell As Cell
Dim rngRow As Row
Dim rngRange As Range
For Each rngRow In Selection.Tables(1).Rows
For Each rngCell In rngRow.Cells
Set rngRange = rngCell.Range
rngRange.End = rngRange.End - 1
If Len(rngRange.Text) = 0 Then
MsgBox "第" & rngCell.RowIndex & "行,第" & rngCell.ColumnIndex & "列为空."
End If
Next rngCell
Next rngRow
End Sub方法3
下面的代码与方法1类似，只是在给出空单元格信息之前先选择该单元格。
Sub CheckTableCells2()
Dim rngCell As Cell
Dim rngRow As Row
Dim rngRange As Range
For Each rngRow In Selection.Tables(1).Rows
For Each rngCell In rngRow.Cells
If rngCell.Range.Text = Chr(13) & Chr(7) Then
rngCell.Select
MsgBox "第" & rngCell.RowIndex & "行,第" & rngCell.ColumnIndex & "列为空."
End If
Next rngCell
Next rngRow
End Sub这些代码很简单，辑录于此，待后续使用时查阅。
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2022-11-28，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
腾讯云开发者
