Как подсчитать количество пиков в столбце данных Excel?
Предположим, что два столбца данных расположены на листе, как показано на скриншоте слева. Как подсчитать количество пиков в столбце B? На самом деле ячейка (например, B3) считается пиком, если её значение одновременно больше значений в соседних ячейках — B2 и B4. Если это условие не выполняется, такая ячейка пиком не считается. В этой статье рассказывается, как найти и подсчитать все пики в столбце данных Excel.
Подсчёт количества пиков в столбце данных в Excel
Следующая формула позволит вам напрямую подсчитать количество пиков в столбце данных Excel.
1. Выберите пустую ячейку для размещения результата, введите формулу =SUMPRODUCT(--(B3:B17>,B2:B16),--(B3:B17>,B4:B18)) в строку формул, затем нажмите клавишу Enter. См. скриншот:
Примечание: В формуле диапазон B3:B17 охватывает ячейки от третьей (включая заголовок) до предпоследней — последней ячейки списка; B2:B16 — от второй (включая заголовок) до третьей с конца; а B4:B18 — от четвёртой (включая заголовок) до самой последней ячейки списка. При необходимости скорректируйте эти диапазоны.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Выделение всех пиков в Диаграмма рассеяния
Кроме того, вы можете легко выявить пики в столбце, построив диаграмму рассеяния и отметив на ней все пики. Выполните следующие действия.
1. Выберите ячейку C3, расположенную рядом с ячейкой B3 (второе значение в вашем списке без учёта заголовка), введите формулу =IF(AND(B3>,B2,B3>,B4), «Peak»,«») в строку формул и нажмите клавишу Enter. Затем перетащите маркер заполнения вниз, чтобы отметить все пики, как показано на скриншоте ниже.
2. Выделите столбцы X и Y и щёлкните Вставка > Точечная (X, Y) или пузырьковая диаграмма > Точечная с гладкими линиями и маркерами, чтобы вставить диаграмму рассеяния на лист. См. скриншот:
3. Нажмите сочетание клавиш Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
4. В окне Microsoft Visual Basic для приложений выберите пункт меню Вставка > Модуль. Затем скопируйте и вставьте приведённый ниже код VBA в окно кода.
Код VBA: Выделение всех пиков в Диаграмма рассеяния
Sub CustomLabels()
Dim xCount As Long, I As Long
Dim xRg As Range, xCell As Range
Dim xChar As ChartObject
Dim xCharPoint As Point
On Error Resume Next
Set xRg = Range("C1")
Set xChar = ActiveSheet.ChartObjects("Chart 1")
If xChar Is Nothing Then Exit Sub
xChar.Activate
xCount = ActiveChart.SeriesCollection(1).Points.Count
For I = 1 To xCount
Set xCell = xRg(1).Offset(I, 0)
If xCell.Value <> "" Then
Set xCharPoint = ActiveChart.SeriesCollection(1).Points(I)
xCharPoint.ApplyDataLabels
xCharPoint.DataLabel.Text = xCell.Value
xCharPoint.DataLabel.Left = xCharPoint.DataLabel.Left - 15
xCharPoint.DataLabel.Top = xCharPoint.DataLabel.Top - 7
End If
Next
End SubПримечание: «Chart 1» — это имя созданной диаграммы рассеяния, а «C1» — первая ячейка вспомогательного столбца с результатами формул, применённых на шаге 1. При необходимости замените их.
5. Нажмите клавишу F5, чтобы выполнить код. После этого все пики будут отмечены на диаграмме рассеяния, как показано на скриншоте ниже:
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек