Как подсчитать / суммировать зачеркнутые ячейки в Excel?
В Excel мы всегда форматируем зачеркивание некоторых ячеек, которые указывают, что значения ячеек бесполезны или недействительны, чтобы мы могли более точно анализировать данные. В этой статье я расскажу о том, как выполнить некоторые вычисления в диапазоне с этими зачеркнутыми ячейками в Excel.
Подсчет зачеркнутых ячеек в Excel
Подсчет без зачеркивания ячеек в Excel
Сумма исключить зачеркнутые ячейки в Excel
Подсчет зачеркнутых ячеек в Excel
Если вы хотите узнать, сколько ячеек с зачеркнутым форматом в диапазоне, вы можете создать функцию, определяемую пользователем, выполните следующие действия:
1. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.
2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.
Код VBA: подсчет зачеркнутых ячеек
Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountStrike = xOut
End Function
3. Затем сохраните и закройте этот код, вернитесь на рабочий лист и введите эту формулу = Счетчик (A2: B14) в пустую ячейку, см. снимок экрана:
4. Затем нажмите Enter key, и подсчитаны все зачеркнутые ячейки. Смотрите скриншот:
Подсчет без зачеркивания ячеек в Excel
Но иногда вы можете подсчитать количество только нормальных ячеек, исключая зачеркнутые. Следующий код может вам помочь.
1. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.
2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.
Код VBA: подсчет без зачеркивания ячеек
Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountNoStrike = xOut
End Function
3. Затем сохраните и закройте этот код, вернитесь на свой рабочий лист, введите эту формулу = countnostrike (A2: B14) в пустую ячейку и нажмите Enter key, то вы получите нужный результат.
Внимание: В формулах выше A2: B14 - это диапазон, в котором вы хотите применить формулы.
Сумма исключить зачеркнутые ячейки в Excel
Поскольку зачеркнутые ячейки не используются, здесь я хочу суммировать только нормальные числа без зачеркнутых чисел. Для решения этой задачи вам также понадобится функция, определяемая пользователем.
1. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.
2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.
Код VBA: Сумма исключить зачеркнутые ячейки
Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + pRng.Value
End If
Next
ExcStrike = xOut
End Function
3. Затем сохраните и закройте этот код, вернитесь на свой рабочий лист, введите эту формулу = excstrike (B2: B14) в пустую ячейку и нажмите Enter нажмите клавишу, и вы получите суммирование всех чисел без зачеркнутых ячеек. Смотрите скриншот:
Внимание: В формулах выше B2: B14 - это диапазон, в котором вы хотите суммировать ячейки без зачеркивания.
Статьи по теме:
Как суммировать / подсчитывать жирные числа в диапазоне ячеек в Excel?
Как подсчитать и суммировать ячейки на основе цвета фона в Excel?
Как подсчитать / суммировать ячейки на основе цветов шрифта в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
