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

你說'總和'在你的標題，但在你的vba中使用'counta'。 'counta（）'爲't'行返回0嗎？ – JNevill

啊，我以爲'CountA會返回0在一個單元格是0我的不好，把它改爲和，它的作品:) – Dullspark

太棒了！我很高興這是一個簡單的解決方案，而不是那些整天把頭髮拉出頭部類型的問題:) – JNevill

將CountA替換爲Sum。 CountA計算單元格是否有值。顯然0是一個值，這是我的錯誤

來源

2017-09-25 13:33:15 Dullspark

Excel VBA - 如果一個範圍的總和爲0 - 刪除行

回答

相關問題