怪事，发现word 表格的单元格居然不能倒序循环

weiyingde

怪事，发现word 表格的单元格居然不能倒序循环，不知是什么原因。

剑指E

怎么可能？

weiyingde

我是在删除文档中word表格空单元格时发现的。我尝试了三种删除方案：
Sub 顺序选定空单元格删除()
On Error Resume Next
With ActiveDocument.Tables(1)
   rw = .Rows.Count
   cl = .Columns.Count
   For i = 1 To rw
     For j = 1 To cl
         If .Cell(i, j).Range.Text = Chr(13) & Chr(7) Then
            .Cell(i, j).Select
            Selection.Cells.Delete ShiftCells:=wdDeleteCellsShiftLeft
         End If
    Next
  Next
End With
End Sub

效果：可以一次性删除所有空单元格。
局限：只能删除表格中最后面的连续空单元格，如果在非空单元格中夹杂有空单元格，在删除空单元格的同时，也误删了其他非空单元格。
原因：因为采用顺序方式，在进行循环过程中，对剩下单元定位不准，这跟Excel表格原理相同。

weiyingde

2、采用非选择的方式删除，只能一个一个的删除。代码如下：
Sub 顺序不选定空单元格删除()
On Error Resume Next
With ActiveDocument.Tables(1)
   rw = .Rows.Count
   cl = .Columns.Count
   For i = 1 To rw
     For j = 1 To cl
         If .Cell(i, j).Range.Text = Chr(13) & Chr(7) Then
            .Cell(i, j).Delete ShiftCells:=wdDeleteCellsShiftLeft
         End If
    Next
  Next
End With
End Sub
效果：能删除，但每次只能删除一个。
弊病：显然不利自动化。

weiyingde

3.借鉴Excel删除康单元格的方式，居然发现，没有反应，真是莫名其妙。
代码如下，应该实际每与语法错误，也没有逻辑错误，为什么就没有反应呢？
Sub 倒叙删除空单元格()
On Error Resume Next
With ActiveDocument.Tables(1)
   rw = .Rows.Count
   cl = .Columns.Count
   For i = rw To 1
     For j = cl To 1
         If .Cell(i, j).Range.Text = Chr(13) & Chr(7) Then
            .Cell(i, j).Delete ShiftCells:=wdDeleteCellsShiftLeft
         End If
    Next
  Next
End With
End Sub

weiyingde

选择题答题卡

3．C

5．B

6．DBCA

9．A

10．C

11．B

14．C

15．A

16．C

20．C

34．B

38．C

39．B

40．D

45.B

47.D

48.B

53.D

54.B

58.D

59.B

61.C

64.C

weiyingde

NIBABASHIWO 发表于 2022-7-15 18:44
怎么可能？

你可以看看附件中的内容

剑指E

weiyingde 发表于 2022-7-15 19:20
你可以看看附件中的内容

for 循环缺省步序默认为1，而倒序需要指定Step -1

For i = rw To 1 Step -1
     For j = cl To 1 Step -1

weiyingde

NIBABASHIWO 发表于 2022-7-15 19:25
for 循环缺省步序默认为1，而倒序需要指定Step -1

For i = rw To 1 Step -1

是的，犯了一个低级错误，居然没有发现。谢谢