¿Cómo contar el número de picos en una columna de datos en Excel?
Supongamos que dos columnas de datos se ubican en su hoja de trabajo 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, puede 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 habla de enumerar y contar todos los 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 Participar llave. Ver captura de pantalla:
Note: 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 Participar 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
Note: 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:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!