Come contare il numero di picchi in una colonna di dati in Excel?

---

Contare il numero di picchi in una colonna di dati in Excel

La seguente formula può aiutarti a contare un numero di picchi in una colonna di dati direttamente in Excel.

1. Selezionare una cella vuota per inserire il risultato, immettere la formula =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) nella Barra della formula, quindi premere il tasto Entra chiave. Vedi screenshot:

Note:: Nella formula, B3: B17 è l'intervallo dalla terza cella (inclusa la cella di intestazione) alla penultima dell'elenco, B2: B16 è l'intervallo dalla seconda cella (inclusa la cella di intestazione) alla terzultima della list, e infine B4: B18 è l'ambito dell'intervallo dalla quarta cella (inclusa la cella di intestazione) all'ultima dell'elenco. Si prega di cambiarli come necessario.

---

Segna tutti i picchi in un grafico a dispersione

Inoltre, puoi facilmente calcolare i picchi di una colonna creando un grafico a dispersione e contrassegnando tutti i picchi nel grafico. Si prega di fare quanto segue.

1. Seleziona la cella - C3 adiacente alla cella B3 (il valore della seconda cella dell'elenco esclusa l'intestazione), inserisci la formula = SE (AND (B3> B2, B3> B4), "Picco", "") nella Barra della formula e premere il Entra chiave. Quindi trascina la maniglia di riempimento verso il basso per contrassegnare tutti i picchi come mostrato nell'immagine sottostante.

2. Selezionare la colonna x e y e fare clic inserire > Inserisci grafico a dispersione (X, Y) o grafico a bolle > Scatter con linee rette e pennarelli per inserire un grafico a dispersione nel foglio di lavoro. Vedi screenshot:

3. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

4. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo. Quindi copia e incolla sotto il codice VBA nella finestra del codice.

Codice VBA: contrassegna tutti i picchi in un grafico a dispersione

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:: Nel codice, Grafico 1 è il nome del grafico a dispersione creato e "C1" è la prima cella della colonna della guida che contiene i risultati della formula applicati nel passaggio 1. Modificali in base alle tue esigenze.

5. premi il F5 chiave per eseguire il codice. Quindi tutti i picchi sono contrassegnati sul grafico a dispersione come nell'immagine sottostante: