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

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

vba excel

Vba 添加（第二个）条件以从表中删除空行,vba,excel,Vba,Excel,在AnalysisTabs上的PNRAO代码的帮助下，我发现了如何删除表中的空行（ListObject；下面的代码）。但是，表中有一列保留默认值0,00（这是一个计算数字字段），我希望删除空行，即使该行的列包含值（即0,00）因此，我的代码现在只在清除该列（@Totaal）中的值时删除行。如何添加条件 Dim iCntr As Long Dim rng As Range Set rng = ActiveSheet.ListObjects("DeclaratieSpecificatie").R

在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

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

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

你能把

CountA

改成

Sum

吗？这将标识空白单元格和0.00为0的单元格以进行删除。小心，因为它也会将基于文本的值识别为0。嗨，Jeeped，谢谢！它实际上做了我需要它做的事情。现在，出现的唯一问题是我得到一个错误（运行时错误1004-Range类的Delete方法失败），调试器指向行（iCntr）.EntireRow.Delete。有什么线索吗？在Set rng=ActiveSheet.ListObjects（“DeclaratiesSpecificatie”）.DataBodyRange中将.Range设置为.DataBodyRange时，问题已解决