對象'_global'的方法'范圍'失敗VBA訪問

Question

正確陳述的問題

Application.WorksheetFunction.CountIf(Range("B:B-B5"), a) 

我想選擇整個列減去VBA中的單元格。 我怎樣才能做到這一點？

Answer 1

您可以為此編寫一個輔助函數：

Function CountIfExcept(from As range, except As range, criteria As String)
    CountIfExcept = Application.WorksheetFunction.CountIf(from, criteria) - Application.WorksheetFunction.CountIf(except, criteria)
End Function

用法：

totalCount = CountIfExcept(Range("B:B"), RANGE("B5"), "some condition")