¿Cómo contar el número de picos en una columna de datos en Excel?

---

Cuente el número de picos en una columna de datos en Excel

La siguiente fórmula puede ayudarlo a contar una cantidad de picos en una columna de datos directamente en Excel.

1. Seleccione una celda en blanco para colocar el resultado, ingrese la fórmula =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) en el Barra de formulas, luego presione el Enviar llave. Ver captura de pantalla:

Nota:: En la fórmula, B3: B17 es el rango desde la tercera celda (incluida la celda de encabezado) hasta la penúltima de la lista, B2: B16 es el rango desde la segunda celda (incluida la celda de encabezado) hasta la antepenúltima de las list, y finalmente B4: B18 es el alcance del rango desde la cuarta celda (incluida la celda de encabezado) hasta la última de la lista. Cámbielos según sea necesario.

---

Marque todos los picos en un gráfico de dispersión

Además, puede calcular fácilmente los picos de una columna creando un gráfico de dispersión y marcando todos los picos en el gráfico. Haz lo siguiente.

1. Seleccione la celda - C3 que está adyacente a la celda B3 (el segundo valor de celda de su lista excluyendo el encabezado), ingrese la fórmula = SI (Y (B3> B2, B3> B4), "Pico", "") en el Barra de formulas Y pulse el botón Enviar llave. Luego arrastre el controlador de relleno hacia abajo para marcar todos los picos como se muestra a continuación.

2. Seleccione la columna xey y haga clic en recuadro > Insertar gráfico de dispersión (X, Y) o de burbujas > Dispersión con líneas rectas y marcadores para insertar un gráfico de dispersión en la hoja de trabajo. Ver captura de pantalla:

3. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

4. En el Microsoft Visual Basic para aplicaciones ventana, haga clic en recuadro > Módulo. Luego copie y pegue el código VBA debajo en la ventana Código.

Código de VBA: marque todos los picos en un gráfico de dispersión

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

Nota:: En el código, el gráfico 1 es el nombre del gráfico de dispersión creado y "C1" es la primera celda de la columna de ayuda que contiene los resultados de la fórmula que aplicó en el paso 1. Cámbielos según sus necesidades.

5. presione el F5 clave para ejecutar el código. Luego, todos los picos están marcados en el gráfico de dispersión como se muestra a continuación: