Як підрахувати кількість піків у стовпці даних у Excel?

---

Підрахуйте кількість піків у стовпці даних у Excel

Наступна формула може допомогти вам підрахувати кількість піків у стовпці даних безпосередньо в Excel.

1. Виберіть порожню комірку для розміщення результату, введіть формулу =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) в Бар Формула, потім натисніть вводити ключ. Дивіться знімок екрана:

примітки: У формулі B3: B17 - діапазон від третьої комірки (включаючи клітинку заголовка) до другої останньої списку, B2: B16 - діапазон від другої комірки (включаючи комірку заголовка) до попередньої останньої і, нарешті, B4: B18 - це діапазон діапазону від четвертої комірки (включаючи комірку заголовка) до останньої в списку. Будь ласка, змініть їх, як вам потрібно.

---

Позначте всі піки на діаграмі розсіювання

Крім того, ви можете легко визначити піки стовпця, створивши діаграму розсіювання та позначивши всі піки на графіку. Будь ласка, виконайте наступне.

1. Виділіть клітинку - C3, яка прилягає до комірки B3 (друге значення комірки у вашому списку без заголовка), введіть формулу = IF (І (B3> B2, B3> B4), "Пік", "") в Бар Формула і натисніть кнопку вводити ключ. Потім перетягніть ручку заповнення вниз, щоб позначити всі піки, як показано на знімку екрана.

2. Виберіть стовпці x і y та натисніть Insert > Вставте розсіяну (X, Y) або бульбашкову діаграму > Розсіяти прямими лініями та маркерами щоб вставити діаграму розсіювання на аркуш. Дивіться знімок екрана:

3 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

4 В Microsoft Visual Basic для додатків вікно, натисніть Insert > Модулі. Потім скопіюйте та вставте нижче код 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

примітки: У коді діаграма 1 - це назва створеної діаграми розсіювання, а “C1” - перша клітинка стовпця довідки, що містить результати формул, які ви застосували на кроці 1. Будь ласка, змініть їх залежно від ваших потреб.

5 Натисніть кнопку F5 клавіша для запуску коду. Тоді всі піки позначені на діаграмі розсіювання, як показано на знімку екрана: