Як підрахувати кількість піків у стовпці даних у Excel?
Припустимо, два стовпці даних розміщуються на вашому аркуші, як показано на лівому скріншоті, як підрахувати кількість піків у стовпці B? Насправді ви можете оцінити значення клітинки (наприклад B3) як пікове, якщо воно одночасно більше, ніж B2 і B4. В іншому випадку це не пік, якщо він не відповідає цим двом критеріям. У цій статті йдеться про перелік та підрахунок усіх піків у стовпці даних у програмі 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 клавіша для запуску коду. Тоді всі піки позначені на діаграмі розсіювання, як показано на знімку екрана:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
