Hvordan tælles antallet af toppe i en datakolonne i Excel?
Antag, to kolonner med data lokaliseres i dit regneark som det viste skærmbillede til venstre, hvordan tælles antallet af toppe i kolonne B? Faktisk kan du bedømme en celleværdi (såsom B3) som en top, hvis den samtidig er større end B2 og B4. Ellers er det ikke et højdepunkt, hvis det ikke opfylder disse to kriterier. Denne artikel taler om at liste og tælle alle toppe i en datakolonne i Excel.
Tæl antallet af toppe i en datakolonne i Excel
Den følgende formel kan hjælpe dig med at tælle et antal toppe i en datakolonne direkte i Excel.
1. Vælg en tom celle til placering af resultatet, indtast formlen =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) ind i Formel Bar, og tryk derefter på Indtast nøgle. Se skærmbillede:
Bemærk: I formlen er B3: B17 området fra den tredje celle (inklusive headercelle) til den sidst sidst på listen, B2: B16 er området fra den anden celle (inklusive headercelle) til den næstsidste af de liste og endelig B4: B18 er rækkevidden fra den fjerde celle (inklusive headercelle) til den sidste på listen. Skift dem, som du har brug for.
Marker alle toppe i et spredningsdiagram
Derudover kan du nemt finde ud af toppe i en kolonne ved at oprette et spredningsdiagram og markere alle toppe i diagrammet. Gør som følger.
1. Vælg cellen - C3, der støder op til celle B3 (den anden celleværdi på din liste eksklusive overskriften), indtast formlen = HVIS (OG (B3> B2, B3> B4), "Peak", "") ind i Formel Bar og tryk på Indtast nøgle. Træk derefter Fill Handle ned for at markere alle toppe som vist nedenstående skærmbillede.
2. Vælg kolonnen x og y, og klik indsatte > Indsæt Scatter (X, Y) eller Bubble Chart > Spred med lige linjer og markører for at indsætte et spredningsdiagram i regnearket. Se skærmbillede:
3. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
4. i Microsoft Visual Basic til applikationer vindue, klik venligst indsatte > Moduler. Kopier og indsæt derefter under VBA-kode i vinduet Kode.
VBA-kode: Marker alle toppe i et spredningsdiagram
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
Bemærk: I koden er diagram 1 navnet på det oprettede spredediagram, og "C1" er den første celle i hjælpekolonnen, der indeholder de formelresultater, du anvendte i trin 1. Skift dem ud fra dine behov.
5. Tryk på F5 nøgle for at køre koden. Derefter markeres alle toppe på spredetabellen som nedenstående skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!