添加（第二个）条件以从表中删除空行

Question

在AnalysisTabs的PNRAO代码的帮助下，我找到了如何删除表中的空行（ListObject;下面的代码）。但是，我在表中有一列保留默认值0,00作为值（它是一个计算的数字字段），我想删除空行，即使该行的列保存一个值（即0,00）。

因此，我的代码现在只在清除该列中的值（@Totaal）时才删除行。如何添加条件？

Dim iCntr As Long
Dim rng As Range

Set rng = ActiveSheet.ListObjects("DeclaratieSpecificatie").Range

For iCntr = rng.Row + rng.Rows.Count - 1 To rng.Row Step -1
If Application.WorksheetFunction.CountA(Rows(iCntr)) = 0 Then Rows(iCntr).EntireRow.Delete
Next

Answer 1

在

中将.Range设置为.DataBodyRange时已解决

Set rng = ActiveSheet.ListObjects("DeclaratieSpecificatie").DataBodyRange