Wie zähle ich die Anzahl der Peaks in einer Datenspalte in Excel?
Angenommen, in Ihrem Arbeitsblatt befinden sich zwei Datenspalten, wie im linken Screenshot gezeigt. Wie wird die Anzahl der Peaks in Spalte B gezählt? Tatsächlich können Sie einen Zellenwert (z. B. B3) als Peak beurteilen, wenn er gleichzeitig größer als B2 und B4 ist. Andernfalls ist es kein Peak, wenn diese beiden Kriterien nicht erfüllt werden. In diesem Artikel wird das Auflisten und Zählen aller Peaks in einer Datenspalte in Excel behandelt.
Zählen Sie 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 Enter Schlüssel. Siehe Screenshot:
Note: 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 Enter 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
Note: 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:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!