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

Supongamos que dos columnas de datos están en tu hoja de cálculo como se muestra en la captura de pantalla de la izquierda, ¿cómo contar el número de picos en la columna B? En realidad, puedes juzgar un valor de celda (como B3) como un pico si es simultáneamente mayor que B2 y B4. De lo contrario, no es un pico si no cumple con estos dos criterios. Este artículo trata sobre listar y contar todos los picos en una columna de datos en Excel.
Contar el número de picos en una columna de datos en Excel
La siguiente fórmula puede ayudarte a contar el número de picos en una columna de datos directamente en Excel.
1. Selecciona una celda en blanco para colocar el resultado, introduce la fórmula =SUMAPRODUCTO(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) en la Barra de fórmulas, luego presiona la tecla Enter. Ver captura de pantalla:
Nota: En la fórmula, B3:B17 es el rango desde la tercera celda (incluyendo la celda de encabezado) hasta la penúltima de la lista, B2:B16 es el rango desde la segunda celda (incluyendo la celda de encabezado) hasta la antepenúltima de la lista, y finalmente B4:B18 es el ámbito del rango desde la cuarta celda (incluyendo la celda de encabezado) hasta la última de la lista. Por favor, cámbialos según sea necesario.

Descubre la Magia de Excel con Kutools AI
- Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
- Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
- Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
- Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
- Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.
Marcar todos los picos en un gráfico de dispersión
Además, puedes identificar fácilmente los picos de una columna creando un gráfico de dispersión y marcando todos los picos en el gráfico. Por favor, sigue los siguientes pasos.
1. Selecciona la celda C3, que está adyacente a la celda B3 (el segundo valor de celda de tu lista excluyendo el encabezado), introduce la fórmula =SI(Y(B3>B2,B3>B4), "Pico","") en la Barra de fórmulas y presiona la tecla Enter. Luego arrastra el controlador de relleno hacia abajo para marcar todos los picos como se muestra en la siguiente captura de pantalla.
2. Selecciona las columnas x e y, y haz clic en Insertar > Insertar Gráfico de Dispersión (X, Y) o Gráfico 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. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
4. En la ventana de Microsoft Visual Basic para Aplicaciones, por favor, haz clic en Insertar > Módulo. Luego copia y pega el siguiente código VBA en la ventana de Código.
Código VBA: Marcar 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, Gráfico 1 es el nombre del gráfico de dispersión creado, y “C1” es la primera celda de la columna auxiliar que contiene los resultados de la fórmula que aplicaste en el paso 1. Por favor, cámbialos según tus necesidades.
5. Presiona la tecla F5 para ejecutar el código. Luego todos los picos están marcados en el gráfico de dispersión como se muestra en la siguiente captura de pantalla:
Las mejores herramientas de productividad para Office
Potencia tus habilidades en Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab lleva la interfaz de pestañas a Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de nuevas ventanas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!