Excel VBA - 範囲の合計が0の場合 - 行の削除

B：H = 0からの値の合計がある場合、行を削除するコードを記述しようとしています。または、B： Hは0）Excel VBA - 範囲の合計が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

をしようとしています。エラーはなく、確かに行は削除されません。何か案は？

出典

2017-09-25 Dullspark

あなたのタイトルに 'sum'と言うが、あなたのvbaでは' counta'を使う。行 't'に対して' counta（） 'は0を返しますか？ – JNevill

ああ、私は 'CountAは0のセルに0を返すと思った。私の悪いことに、それをSumに変更して動作させる。 – Dullspark

素晴らしい！私はそれが簡単な修正であり、終日のあなたの頭のタイプの問題からあなたの髪を引っ張っていないことがうれしいです:) – JNevill

CountAをSumに置き換えます。 CountAは、セルに値があるかどうかをカウントします。明らかに0は値であり、それは私の間違いだった

出典

2017-09-25 13:33:15 Dullspark

Excel VBA - 範囲の合計が0の場合 - 行の削除

答えて

関連する問題