SpecialCells (xlCellTypeVisible) также включает скрытые/отфильтрованные ячейки

Question

У меня есть набор данных, в котором я использую фильтр. Я просто хочу рассчитать общие значения в столбце N, которые видны. Данные начинаются в строке 2 и заканчиваются в строке 2047.

Я видел this thread, но это дает мне тот же тип проблемы, который у меня есть.

Вот моя функция:

Function sumVisible() As String 
Dim rng As Range 
Set rng = Range("N2:N2047").SpecialCells(xlCellTypeVisible) 
' Debug.Print "Range: " & rng.Address & ", Sum: " & WorksheetFunction.Sum(rng) 
sumVisible = Format(WorksheetFunction.Sum(rng), "$#,###.##") 
End Function 

С моим текущим фильтром, моя строка заголовка (1) видно, как и строки 901 до 937 Итак, я хочу подвести N901: N937.

Однако rng продолжает устанавливаться в $N$2:$N$2047. Я ожидал, что это будет $N$901:$N$937.

Используя функцию, которая дается нить я связан выше, я получаю диапазон $N$2:$N$937 ... так, по крайней мере, я правильно получать конец строки, но не начальную строку.

Но!, если я нахожу Range("N2:N2047").SpecialCells(xlCellTypeVisible).Select в окне Immediate, вне макроса, он правильно выбирает только видимые ячейки. И еще один шаг, делая ?Range("N2:N2047").SpecialCells(xlCellTypeVisible).address правильно возвращает $N$901:$N$937.

Что может быть неправильным?

Редактировать: Я только что нашел, что выполнение =SUBTOTAL(9,N1:N2047) будет просто суммировать видимые ячейки, поэтому я использую это. Но мой вопрос все еще стоит - почему не SpecialCells(xlCellTypeVisible) работает правильно в макросе?

Answer 1

Попробуйте установить ваш rng с ниже линии:

Set rng = Range("N2:N" & Cells(Rows.Count, "N").End(xlUp).Row).SpecialCells(xlCellTypeVisible) 

Позже с помощью отладки линии Debug.Print rng.Address, я получаю следующий диапазон в немедленном окне:

$N$901:$N$937