Selection.SpecialCells(xlCellTypeVisible).Count 在过滤器产生单行结果时给出溢出错误

Question

When using Selection.SpecialCells(xlCellTypeVisible).Count to count a single column of filtered data, it works great for multiple row results. But when ever there is only 1 row displayed, it gives me an overflow error or I get count = 107564 (I forget the actual number).

Answer 1

.Count is of type Long but newer Excel versions have more cells per worksheet ( 17,179,869,184 Cells) than Long can handle (maximum 2,147,483,647 ). So if you select a huge amount ouf cells they exceed Long and therefore you get an overflow error.

To solve this you need to use the Range.CountLarge property instead of the Range.Count property which is of type LongLong and can handle this amount of cells.

Data type	Storage size	Range
Long (Long integer)	4 bytes	-2,147,483,648 to 2,147,483,647
LongLong (LongLong integer)	8 bytes	-9,223,372,036,854,775,808 to 9,223,372,036,854,775,807 (Valid on 64-bit platforms only.)

^{Table source: Office VBA Reference - Data type summary .}

This should not throw an overflow error:

Selection.SpecialCells(xlCellTypeVisible).CountLarge

There is a simple rule: When it comes to counting rows or columns .Count is fine but everytime you are counting cells (in multiple rows or columns) you need to ensure to use .CountLarge to be safe.

Answer 2

It seems that if you select only 1 cell then excel works out all visible cells in the sheet. Selecting one cell and running this line:

Debug.Print Selection.SpecialCells(xlCellTypeVisible).Address

gave me $1:$13,$15:$17,$19:$19,$28:$37,$39:$39,$41:$52,$54:$81,$83:$1048576 . Counting the number of cells in this range using .Count results in an overflow error

This is obviously not the behaviour you want. As a workaround try something like this:

Function CountVisibleCells() As Long
    Dim rngSelection As Range
    Set rngSelection = Selection
    CountVisibleCells = 0
    If rngSelection.Cells.CountLarge > 1 Then
        CountVisibleCells = rngSelection.SpecialCells(xlCellTypeVisible).Cells.CountLarge
    ElseIf Not rngSelection.EntireRow.Hidden And _
           Not rngSelection.EntireColumn.Hidden Then
        CountVisibleCells = 1
    End If
End Function