Как быстро просуммировать значения, исключая скрытые столбцы в Excel?
Чтобы суммировать значения, исключая скрытые строки, можно воспользоваться формулой =SUBTOTAL(), но что делать, если нужно игнорировать скрытые столбцы? В этой статье представлены эффективные приёмы для быстрого суммирования значений только в видимых столбцах.
Суммирование значений с исключением скрытых столбцов с помощью VBA
Суммирование/усреднение/подсчёт с исключением скрытых столбцов с помощью Kutools для Excel 
Суммирование значений с исключением скрытых столбцов с помощью VBA
Ниже приведён код VBA, который позволяет быстро просуммировать значения только в видимых столбцах.
1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Выберите пункт Вставка > Модуль и вставьте приведённый ниже код в новое окно Модуля.
VBA: Суммирование только значений видимых столбцов
Public Function SumVisible(Rg As Range) As Double
'UpdatebyExtendOffice20160302
Dim xCell As Range
Dim xRg As Range
Dim xOutRg As Range
On Error Resume Next
Application.Volatile
Set xRg = Application.Intersect(Rg, Rg.Worksheet.UsedRange)
If Not (xRg Is Nothing) Then
For Each xCell In xRg
If (xCell.EntireRow.Hidden = False) And _
(xCell.EntireColumn.Hidden = False) Then
If xOutRg Is Nothing Then
Set xOutRg = xCell
Else
Set xOutRg = Application.Union(xCell, xOutRg)
End If
End If
Next
End If
If Not xOutRg Is Nothing Then
SumVisible = Application.Evaluate("SUM(" & xOutRg.Address & ")")
Else
SumVisible = 0
End If
End Function3. Сохраните код и закройте это окно, затем вернитесь к листу, выберите пустую ячейку для размещения результата вычисления и введите формулу =SumVisible(A1:C9), после чего нажмите клавишу Enter — и в ячейке появится корректная сумма.
Совет: В формуле A1:C9 — это диапазон ячеек, значения которых требуется просуммировать.
Суммирование/усреднение/подсчёт с исключением скрытых столбцов с помощью Kutools для Excel
Возможно, вы не знакомы с кодом VBA, но с установленным Kutools для Excelвы легко и быстро справитесь с этой задачей.
1. Выберите пустую ячейку для размещения результата суммирования (например, E1) и последовательно нажмите: Kutools > Расширенные функции > Статистика и математика > SUMVISIBLE. См. снимок экрана:
2. В диалоговом окне Аргументы функции щёлкните, чтобы выбрать ячейки, которые необходимо просуммировать, в поле Ссылка, и вы сразу увидите предварительный результат вычисления внизу. См. снимок экрана:
3. Нажмите кнопку ОК, и будут просуммированы только видимые столбцы.
С помощью Kutools для Excel вы также можете подсчитать количество элементов или вычислить среднее значение в видимых ячейках, строках и столбцах. См. снимок экрана:
Совет: После установки =SUMVISIBLE(A1:C9), =COUNTVISIBLE(A1:C9) или =AVERAGEVISIBLE(A1:C9) вы также можете напрямую ввести любую из этих формул в ячейку, чтобы получить результат. Kutools для Excel.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек