Как да преброя броя на пиковете в колона с данни в 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 (втората стойност на клетка от вашия списък, с изключение на заглавката), въведете формула =АКО(И(B3>B2,B3>B4), "Връх","") в Формула Бар и натиснете бутона Въведете ключ. След това плъзнете манипулатора за запълване надолу, за да маркирате всички пикове, както е показано на екранната снимка по-долу.
2. Изберете колоната x и y и щракнете Поставете > Вмъкване на точкова (X, Y) или балонна диаграма > Скатер с прави линии и маркери за вмъкване на точкова диаграма в работния лист. Вижте екранна снимка:
3. Натисни Друг + 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Забележка: В кода Диаграма 1 е името на създадената точкова диаграма, а „C1“ е първата клетка от помощната колона, която съдържа резултатите от формулата, които сте приложили в стъпка 1. Моля, променете ги въз основа на вашите нужди.
5. Натисни F5 ключ за изпълнение на кода. След това всички пикове са маркирани на диаграмата на разсейване, както е показано на екранната снимка по-долу:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
