如果使用Excel VBA存在特定值，删除单词表格的行

Question

因此，我有一个关于word文档的表格，并且想知道如何重写这个表格以删除整个表格行（所有文本该行中的细胞以及该行本身）如果第一列中的值是一个空细胞的存在：

Set wdTable = wdDoc.Tables(1) 
With wdTable.Cells(i,1) 
    For i = 2 To wdTable.Rows.Count 
     If .Value = "" Then 
      .EntireRow.Delete 
     End If 
    Next i 
End With 

Answer 1

你的意思是这样吗？

Set wdTable = wdDoc.Tables(1) 

For i = wdTable.Rows.Count To 2 Step -1 
    If wdTable.Cell(i, 1).Range.Text = Chr(13) & Chr(7) Then wdTable.Rows(i).Delete 
Next i 

注意：

1. 您可以通过反向
2. 行必须循环即使电池看上去是空的它不是，它有Chr(13) & Chr(7)，因此你不能用=""
3. 您不能使用.Cells。它是.Cell
4. 没有财产.Value。这是.Range.Text

截图