Wie zählt man die Anzahl der Spitzenwerte in einer Spalte von Daten in Excel?

Angenommen, zwei Spalten mit Daten befinden sich in Ihrem Arbeitsblatt, wie im linken Screenshot gezeigt. Wie kann man die Anzahl der Spitzenwerte in Spalte B zählen? Tatsächlich können Sie einen Zellenwert (z. B. B3) als Spitzenwert beurteilen, wenn er gleichzeitig größer als B2 und B4 ist. Andernfalls ist es kein Spitzenwert, wenn diese beiden Kriterien nicht erfüllt sind. Dieser Artikel behandelt das Auflisten und Zählen aller Spitzenwerte in einer Spalte von Daten in Excel.
Anzahl der Spitzenwerte in einer Spalte von Daten in Excel zählen
Anzahl der Spitzenwerte in einer Spalte von Daten in Excel zählen
Die folgende Formel kann Ihnen helfen, die Anzahl der Spitzenwerte in einer Spalte von Daten direkt in Excel zu zählen.
1. Wählen Sie eine leere Zelle für das Ergebnis aus, geben Sie die Formel =SUMMENPRODUKT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) in die Formel-Leiste ein und drücken Sie dann die Eingabetaste. Siehe Screenshot:
Hinweis: In der Formel ist B3:B17 der Bereich von der dritten Zelle (einschließlich Kopfzeile) bis zur vorletzten Zelle der Liste, B2:B16 ist der Bereich von der zweiten Zelle (einschließlich Kopfzeile) bis zur drittletzten Zelle der Liste, und schließlich ist B4:B18 der Bereich von der vierten Zelle (einschließlich Kopfzeile) bis zur letzten Zelle der Liste. Bitte ändern Sie sie nach Bedarf.

Entfesseln Sie die Magie von Excel mit Kutools AI
- Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
- VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
- Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.
Alle Spitzenwerte in einem Streudiagramm markieren
Darüber hinaus können Sie leicht Spitzenwerte einer Spalte herausfinden, indem Sie ein Streudiagramm erstellen und alle Spitzenwerte im Diagramm markieren. Gehen Sie bitte wie folgt vor.
1. Wählen Sie die Zelle C3, die neben Zelle B3 liegt (der zweite Zellenwert Ihrer Liste ohne die Kopfzeile), geben Sie die Formel =WENN(UND(B3>B2,B3>B4), "Spitze"," ") in die Formel-Leiste ein und drücken Sie die Eingabetaste. Ziehen Sie dann den Ausfüllkursor nach unten, um alle Spitzenwerte wie im folgenden Screenshot zu markieren.
2. Wählen Sie die x- und y-Spalten aus und klicken Sie auf Einfügen > Streudiagramm (X, Y) oder Blasendiagramm > Streudiagramm mit geraden Linien und Markierungen, um ein Streudiagramm in das Arbeitsblatt einzufügen. Siehe Screenshot:
3. Drücken Sie die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
4. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul. Kopieren und fügen Sie dann den folgenden VBA-Code in das Codefenster ein.
VBA-Code: Alle Spitzenwerte in einem Streudiagramm markieren
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 Hilfsspalte, die die Formelergebnisse enthält, die Sie in Schritt 1 angewendet haben. Ändern Sie sie je nach Bedarf.
5. Drücken Sie die Taste F5, um den Code auszuführen. Dann werden alle Spitzenwerte im Streudiagramm wie im folgenden Screenshot markiert:
Beste Büroproduktivitätswerkzeuge
Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!