Wie zähle ich die Anzahl der Peaks in einer Datenspalte in Excel?

---

Zählen Sie die Anzahl der Peaks in einer Datenspalte in Excel

Die folgende Formel kann Ihnen helfen, eine Anzahl von Peaks in einer Datenspalte direkt in Excel zu zählen.

1. Wählen Sie eine leere Zelle zum Platzieren des Ergebnisses aus und geben Sie die Formel ein =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) in die Formel-Bar, dann drücken Sie die Taste Weiter Schlüssel. Siehe Screenshot:

Hinweis: In der Formel ist B3: B17 der Bereich von der dritten Zelle (einschließlich der Kopfzelle) bis zur vorletzten der Liste, B2: B16 ist der Bereich von der zweiten Zelle (einschließlich der Kopfzelle) bis zur vorletzten der Liste und schließlich B4: B18 ist der Bereichsbereich von der vierten Zelle (einschließlich der Kopfzelle) bis zur letzten der Liste. Bitte ändern Sie sie nach Bedarf.

---

Markieren Sie alle Peaks in einem Streudiagramm

Außerdem können Sie Peaks einer Spalte leicht herausfinden, indem Sie ein Streudiagramm erstellen und alle Peaks im Diagramm markieren. Bitte gehen Sie wie folgt vor.

1. Wählen Sie die Zelle C3 aus, die an Zelle B3 angrenzt (der zweite Zellenwert Ihrer Liste ohne Kopfzeile), und geben Sie die Formel ein = IF (UND (B3> B2, B3> B4), "Peak", "") in die Formel-Bar und drücke die Weiter Schlüssel. Ziehen Sie dann den Füllgriff nach unten, um alle Spitzen wie im folgenden Screenshot zu markieren.

2. Wählen Sie die Spalten x und y aus und klicken Sie auf Insert > Fügen Sie Streuung (X, Y) oder Blasendiagramm ein > Mit geraden Linien und Markern streuen um ein Streudiagramm in das Arbeitsblatt einzufügen. Siehe Screenshot:

3. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

4. In dem Microsoft Visual Basic für Applikationen Fenster, bitte klicken Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Markieren Sie alle Peaks in einem Streudiagramm

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

Hinweis: Im Code ist Diagramm 1 der Name des erstellten Streudiagramms, und „C1“ ist die erste Zelle der Hilfespalte, die die in Schritt 1 angewendeten Formelergebnisse enthält. Bitte ändern Sie sie entsprechend Ihren Anforderungen.

5. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Dann werden alle Peaks auf dem Streudiagramm wie im folgenden Screenshot markiert: