vba - 在 Excel VBA 中计算非空白单元格结果而不循环 - 例如，使用 Specialcells

Question

这是我尝试在 VBA 中计数的代码，希望返回来自“FormulaResultCount”的计数返回变量“3”。为什么我不能计算每个单元格内的公式明显返回的内容；从灰色框中(见下图)？

 Sub countNonBlanks()

        Worksheets("Sheet1").Select
        Range("C:C").Select


        FormulaResultCount = Selection.SpecialCells(xlCellTypeFormulas).Count


            'SpecialCells options from MSFT            
            '        xlCellTypeAllFormatConditions. Cells of any format -4172
            '        xlCellTypeAllValidation. Cells having validation criteria -4174
            '        xlCellTypeBlanks. Empty cells 4
            '        xlCellTypeComments. Cells containing notes -4144
            '        xlCellTypeConstants. Cells containing constants 2
            '        xlCellTypeFormulas. Cells containing formulas -4123
            '        xlCellTypeLastCell. The last cell in the used range 11
            '        xlCellTypeSameFormatConditions. Cells having the same format -4173
            '        xlCellTypeSameValidation. Cells having the same validation -4175
            '        xlCellTypeVisible. All visible cells
            '

    End Sub

引用公式:

注意:由于动态工作时我会有更多的单元，循环可能会减慢进程速度。另外，我尝试使用 CountA 但没有结果。

Answer 1

也许是这样:

FormulaResultCount = WorksheetFunction.CountIf(Range("C:C"), "?*")

因此计算范围内以任何字符开头的所有单元格？