Hur räknar man antalet toppar i en datakolumn i Excel?

---

Räkna antalet toppar i en datakolumn i Excel

Följande formel kan hjälpa dig att räkna ett antal toppar i en datakolumn direkt i Excel.

1. Välj en tom cell för att placera resultatet, ange formel =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) i Formula Bar, tryck sedan på ange nyckel. Se skärmdump:

Anmärkningar: I formeln är B3: B17 intervallet från den tredje cellen (inklusive rubrikcell) till den näst sista i listan, B2: B16 är intervallet från den andra cellen (inklusive rubrikcell) till den näst sista av de lista och slutligen B4: B18 är intervallområdet från den fjärde cellen (inklusive rubrikcell) till den sista i listan. Ändra dem efter behov.

---

Markera alla toppar i ett spridningsdiagram

Dessutom kan du enkelt räkna ut toppar i en kolumn genom att skapa ett spridningsdiagram och markera alla toppar i diagrammet. Gör så här.

1. Välj cellen - C3 som ligger intill cell B3 (det andra cellvärdet i din lista exklusive rubriken), ange formel = IF (AND (B3> B2, B3> B4), "Peak", "") i Formula Bar och tryck på ange nyckel. Dra sedan ner Fill Handle för att markera alla toppar som visas nedan.

2. Markera kolumnen x och y och klicka Insert > Infoga Scatter (X, Y) eller Bubble Chart > Scatter med raka linjer och markörer för att infoga ett spridningsdiagram i kalkylbladet. Se skärmdump:

3. tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

4. I Microsoft Visual Basic för applikationer klicka på fönstret Insert > Modulerna. Kopiera och klistra sedan in under VBA-koden i kodfönstret.

VBA-kod: Markera alla toppar i ett spridningsdiagram

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

Anmärkningar: I koden är Diagram 1 namnet på det skapade spridningsdiagrammet, och "C1" är den första cellen i hjälpkolumnen som innehåller de formelresultat du använde i steg 1. Ändra dem baserat på dina behov.

5. tryck på F5 för att köra koden. Sedan markeras alla toppar på spridningsdiagrammet enligt nedanstående skärmdump: