如何解决在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 举报,一经查实,本站将立刻删除。