Como contar o número de picos em uma coluna de dados no Excel?
Supondo que duas colunas de dados se localizem em sua planilha conforme a imagem à esquerda mostrada, como contar o número de picos na coluna B? Na verdade, você pode julgar um valor de célula (como B3) como um pico se for simultaneamente maior que B2 e B4. Caso contrário, não é um pico se não atender a esses dois critérios. Este artigo fala sobre listar e contar todos os picos em uma coluna de dados no Excel.
Contar o número de picos em uma coluna de dados no Excel
A fórmula a seguir pode ajudá-lo a contar vários picos em uma coluna de dados diretamente no Excel.
1. Selecione uma célula em branco para colocar o resultado, insira a fórmula =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) no Barra de Fórmula, em seguida, pressione o botão Entrar chave. Veja a imagem:
Note: Na fórmula, B3: B17 é o intervalo da terceira célula (incluindo a célula do cabeçalho) até a penúltima da lista, B2: B16 é o intervalo da segunda célula (incluindo a célula do cabeçalho) até o antepenúltimo dos lista e, finalmente, B4: B18 é o escopo do intervalo da quarta célula (incluindo a célula de cabeçalho) até a última da lista. Altere-os conforme necessário.
Marque todos os picos em um gráfico de dispersão
Além disso, você pode descobrir facilmente os picos de uma coluna criando um gráfico de dispersão e marcando todos os picos no gráfico. Faça o seguinte.
1. Selecione a célula - C3 que é adjacente à célula B3 (o segundo valor da célula de sua lista excluindo o cabeçalho), insira a fórmula = SE (E (B3> B2, B3> B4), "Pico", "") no Barra de Fórmula e pressione o botão Entrar chave. Em seguida, arraste a alça de preenchimento para baixo para marcar todos os picos conforme a imagem mostrada abaixo.
2. Selecione a coluna xey e clique em inserção > Inserir dispersão (X, Y) ou gráfico de bolhas > Espalhe com linhas retas e marcadores para inserir um gráfico de dispersão na planilha. Veja a imagem:
3. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
4. No Microsoft Visual Basic para Aplicações janela, por favor clique inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Código.
Código VBA: marque todos os picos em um gráfico de dispersão
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: No código, o Gráfico 1 é o nome do gráfico de dispersão criado e “C1” é a primeira célula da coluna de ajuda que contém os resultados da fórmula que você aplicou na etapa 1. Altere-os de acordo com suas necessidades.
5. aperte o F5 chave para executar o código. Em seguida, todos os picos são marcados no gráfico de dispersão conforme a captura de tela abaixo:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!