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

Question

我有一个从员工大喊调查中收集的大型数据集。我在 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