Перейти к основному содержанию

Как быстро подсчитать видимые или отфильтрованные ячейки только в Excel?

Как правило, в Excel обычная формула = COUNT (B3: B16) подсчитывает количество всех невидимых и скрытых ячеек. Но в этом уроке я представлю несколько быстрых способов помочь вам подсчитать видимые или отфильтрованные ячейки только в Excel.

количество видимых документов 1

Подсчет видимых ячеек только с помощью функции, определяемой пользователем

Подсчет видимых ячеек только с помощью Kutools for Excel хорошая идея3


стрелка синий правый пузырь Подсчет видимых ячеек только с помощью функции, определяемой пользователем

Использовать Функция, определяемая пользователем для подсчета только видимых ячеек.

1. Нажмите Alt + F11 одновременно клавиши, Microsoft Visual Basic для приложений окно выскакивает.

2. Нажмите Вставить > Модули, и вставьте под кодом VBA во всплывающий Модули окно.

VBA: подсчитывать только видимые ячейки.

Function COUNTVISIBLE(Rg)
'UpdatebyKutoolsforExcel20151208
    Dim xCount As Long
    Dim xCell As Range
    Application.Volatile
    For Each xCell In Rg
        If (Not xCell.EntireRow.Hidden) And (Not xCell.EntireColumn.Hidden) Then
            xCount = xCount + 1
        End If
    Next
    COUNTVISIBLE = xCount
End Function

3. Затем сохраните код и закройте Модули окно, а затем выберите ячейку, которая выводит результат, и введите эту формулу = СОВМЕСТНЫЙ (B3: B16), и нажмите Enter ключ для получения результата. Смотрите скриншоты:

количество видимых документов 2
стрелка документа
>количество видимых документов 3

стрелка синий правый пузырь Подсчет видимых ячеек только с помощью Kutools for Excel

Чтобы подсчитать только видимые ячейки, вы также можете использовать Kutools for ExcelАвтора СОВМЕСТНЫЙ функция, чтобы быстро решить эту проблему.

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Выберите ячейку, в которую будет помещен результат подсчета, и нажмите Кутулс > Kutools Функции > Статистические и математические > СОВМЕСТНЫЙ. Смотрите скриншот:

количество видимых документов 4

2. Затем в Аргументы функций диалоговом окне выберите отфильтрованные ячейки, которые вы хотите подсчитать в Справка текстовое поле, и вы можете предварительно просмотреть результат подсчета в диалоговом окне. Смотрите скриншот:

количество видимых документов 5

3. Затем щелкните OK поместить результат подсчета в выбранную ячейку.

количество видимых документов 6

Kutools for Excel's функции включая некоторые полезные формулы, такие как количество / сумма / среднее количество видимых ячеек, количество / сумма по цвету ячеек. подсчитывать / суммировать по цвету шрифта и так далее.Чтобы получить бесплатную пробную версию прямо сейчас!

количество видимых документов 6


Относительные статьи:


Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,

I would suggest the add in the code if the person doesn't want to select the range, and it is fixe.

Set xCell = Range("F:F") ' range exemplo in the sheet

And (Not xCell.Value = 0)


The entire code will be like:


Function COUNTVISIBLE(Rg)
'UpdatebyKutoolsforExcel20151208
Dim xCount As Long
Dim xCell As Range
Application.Volatile

Set xCell = Range("F:F") ' range exemplo in the sheet




For Each xCell In Rg
If (Not xCell.EntireRow.Hidden) And (Not xCell.EntireColumn.Hidden) And (Not xCell.Value = 0) Then
xCount = xCount + 1
End If
Next
COUNTVISIBLE = xCount



End Function
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations