Excel VBA - 如果范围的总和为0 - 删除行

Question

如果B：H = 0的值之和（或者如果B：H中的所有值都为0），我正在尝试编写一些删除行的代码。

目前正在尝试

Dim t
For t = (9 + UBound(Champ) + UBound(Champ)) To (9 + UBound(Champ)) Step -1
    If WorksheetFunction.CountA(Range(Cells(t, 2), Cells(t, 8))) = 0 Then
        Rows(t).EntireRow.Delete
    End If
Next t

然而，当我在我的代码中运行它时没有任何反应。没有错误，当然也没有删除行。有什么想法吗？

Answer 1

用Sum替换CountA。 CountA计算单元格中是否有值。显然0是一个值，这是我的错误