Hoe telt u het aantal pieken in een kolom met gegevens in Excel?
Stel dat uw werkblad twee kolommen met gegevens bevat, zoals weergegeven in de linker screenshot. Hoe telt u het aantal pieken in kolom B? Een celwaarde (bijvoorbeeld B3) geldt als piek wanneer deze tegelijkertijd groter is dan zowel B2 als B4. Voldoet de waarde niet aan deze twee criteria, dan is het geen piek. In dit artikel leest u hoe u alle pieken in een gegevenskolom in Excel kunt identificeren en tellen.
Aantal pieken tellen in een kolom met gegevens in Excel
De volgende formule helpt u direct het aantal pieken in een gegevenskolom in Excel te tellen.
1. Selecteer een lege cel voor het resultaat, typ de formule =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) in de formulebalk en druk op Enter. Zie screenshot:
Opmerking: In de formule is B3:B17 het bereik vanaf de derde cel (inclusief de koptekstcel) tot de voorlaatste cel van de lijst, B2:B16 is het bereik vanaf de tweede cel (inclusief de koptekstcel) tot de een-na-laatste cel van de lijst, en tenslotte is B4:B18 het bereik vanaf de vierde cel (inclusief de koptekstcel) tot de laatste cel van de lijst. Pas deze bereiken desgewenst aan.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Markeer alle pieken in een Spreidingsgrafiek
Daarnaast kunt u pieken in een kolom eenvoudig identificeren door een spreidingsgrafiek te maken en alle pieken direct in de grafiek te markeren. Volg hiervoor de onderstaande stappen.
1. Selecteer cel C3, direct naast cel B3 (de tweede waarde in uw lijst, exclusief de koptekst), voer de formule =IF(AND(B3>B2,B3>B4), "Peak",„") in de formulebalk in en druk op de Enter-toets. Sleep vervolgens de vulgreep omlaag om alle pieken te markeren, zoals op de onderstaande screenshot wordt weergegeven.
2. Selecteer de kolommen x en y en klik op Invoegen > Spreidingsdiagram (X, Y) of Bubbelgrafiek > Spreidingsdiagram met horizontale lijnen en markeringen om een spreidingsgrafiek in het werkblad in te voegen. Zie screenshot:
3. Druk op de Alt+F11-toetsen om het venster Microsoft Visual Basic for Applications te openen.
4. Ga in het venster Microsoft Visual Basic for Applications naar Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het codovenster.
VBA-code: Markeer alle pieken in een Spreidingsgrafiek
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 SubOpmerking: In de code is Grafiek 1 de naam van de aangemaakte spreidingsgrafiek en is „C1” de eerste cel van de hulpkolom met de formuleresultaten die u in stap 1 hebt toegepast. Pas deze waarden desgewenst aan.
5. Druk op de F5-toets om de code uit te voeren. Vervolgens worden alle pieken gemarkeerd in de spreidingsgrafiek, zoals te zien is op de onderstaande screenshot:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins