Количество ячеек

[Sasha K]

Подскажите, надо посчитать кол-во ячеек:

ColCell = Application.WorksheetFunction.Count A(Range("A:A"))

Это работает превосходно, но я поставил автофильтр и количество отображаемых ячеек соответственно уменьшилось, но это выражение считает вместе со скрытыми строками. Как быть?

[pashulka]

Стандартная функция рабочего листа =СЧЁТЗ() возвращает количество заполненных ячеек в указанном диапазоне, а наличие фильтра не имеет к этой функции никакого отношения. Однако, в MS Excel есть функция, которая учитывает наличие фильтра, а именно =ПРОМЕЖУТОЧНЫЕ.ИТОГИ()

iCountCells = Application.Subtotal(3, Range("A:A"))
iCountCells = WorksheetFunction.Subtotal(3, Range("A:A"))
iCountCells = Application.WorksheetFunction.Subtotal(3, Range("A:A"))

P.S. Если есть время и желание, то можно 'поиграться' ещё и непосредственно с об'ектом AutoFilter

[Sasha K]

у меня английский офис, как функция =СЧЁТЗ() =ПРОМЕЖУТОЧНЫЕ.ИТОГИ()
будет в английском варианте?

[pashulka]

Это шутка ? Названия этих функций уже присутствуют в английском варианте в этом топике.

[Sasha K]

Ooops, sorry

[eda]

Скажите, пожалуйста, как в цикле for сделать обращение только к фильтрованным ячейкам?

[SAS888]

как в цикле for сделать обращение только к фильтрованным ячейкам?

Не оговорено, цикл по всем ячейкам, или по ячейкам, например, какого-то конкретного столбца?
Например, для столбца:

Sub Main()
    Dim x As Range, c As Long, Cell
    c = 1 'Номер столбца
    Set x = Range(Cells(1, c), Cells(Rows.Count, c).End(xlUp)).SpecialCells(xlCellTypeVisible)
    For Each Cell In x
        'Ваш код для каждой видимой ячейки столбца
    Next
End Sub