微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

在Word中使用VBA选择空单元格并在表格中删除

如何解决在Word中使用VBA选择空单元格并在表格中删除

我有一个从 Staff Shout Out 调查中收集的大型数据集。我在Word表格中的行中有很多空单元格(我尝试过Excel但无法让格式配合)。

无论如何,我想在 Word 中使用 VBA 做的是按单个行查找并选择所有空单元格,选择单元格,然后将内容向左移动。所以我希望代码搜索空单元格,删除它们,然后循环检查下一行。当它结束时,我需要一个结束循环的语句。

我可以创建宏,但无法编辑它们,因为我不知道语法(我以前从未编写过代码)。如果没有宏,我需要花费数小时才能点击每个空白单元格,将其删除并将行中的列向左移动。

以下是我所拥有的:

Sub SelectEmptyCells()

'SelectEmptyCells Macro

'For Each oRow In Selection.Tables(1).Rows
For Each oCell In oRow.Cells
If Selection.Text = Chr(13) & Chr(7) Then
oCell.Select
MsgBox oCell.RowIndex & " " & oCell.ColumnIndex & " is empty."
Selection.Cells.Delete ShiftCells:=wdDeleteCellsShiftLeft
Exit For
End If

Do
Loop

Next
End Sub

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。