如何實現VBA中的單個條件計數？

在VBA中，可以使用WorksheetFunction.CountIf函數來實現單個條件計數。該函數的語法如下：

WorksheetFunction.CountIf(Range, Criteria)

其中，Range參數是要統計的單元格範圍，Criteria參數是要統計的條件。例如，要統計A1:A10中值等於“Apple”的單元格，可以使用以下語句：

WorksheetFunction.CountIf(Range("A1:A10"), "Apple")