如果使用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

截圖