Cum se numără numărul de vârfuri dintr-o coloană de date în Excel?
Să presupunem că două coloane de date se localizează în foaia dvs. de lucru ca pe ecranul din stânga arătat, cum să numărăm numărul de vârfuri din coloana B? De fapt, puteți evalua valoarea unei celule (cum ar fi B3) ca un vârf dacă este simultan mai mare decât B2 și B4. În caz contrar, nu este un vârf dacă nu îndeplinește aceste două criterii. Acest articol vorbește despre listarea și numărarea tuturor vârfurilor dintr-o coloană de date în Excel.
Numărați numărul de vârfuri dintr-o coloană de date în Excel
Numărați numărul de vârfuri dintr-o coloană de date în Excel
Următoarea formulă vă poate ajuta să numărați un număr de vârfuri într-o coloană de date direct în Excel.
1. Selectați o celulă goală pentru plasarea rezultatului, introduceți formula =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) în Formula Barului, apoi apăsați pe Intrați cheie. Vedeți captura de ecran:
notițe: În formulă, B3: B17 este intervalul de la a treia celulă (inclusiv celula antet) până la a doua ultimă din listă, B2: B16 este intervalul de la a doua celulă (inclusiv celula antet) la cea antepenultimă a listă și, în cele din urmă, B4: B18 este domeniul de aplicare de la a patra celulă (inclusiv celula antet) până la ultima din listă. Vă rugăm să le schimbați după cum aveți nevoie.
Marcați toate vârfurile într-o diagramă scatter
În plus, vă puteți da seama cu ușurință de vârfurile unei coloane, creând o diagramă scatter și marcând toate vârfurile în diagramă. Vă rugăm să faceți următoarele.
1. Selectați celula - C3 care este adiacentă celulei B3 (a doua valoare a celulei din lista dvs., cu excepția antetului), introduceți formula = IF (ȘI (B3> B2, B3> B4), "Vârf", "") în Formula Barului și apăsați tasta Intrați cheie. Apoi trageți mânerul de umplere în jos pentru a marca toate vârfurile așa cum este prezentat mai jos.
2. Selectați coloana x și y și faceți clic Insera > Introduceți Scatter (X, Y) sau Bubble Chart > Scatter cu linii drepte și markere pentru a insera o diagramă scatter în foaia de lucru. Vedeți captura de ecran:
3. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
4. În Microsoft Visual Basic pentru aplicații fereastra, faceți clic pe Insera > Module. Apoi copiați și lipiți mai jos codul VBA în fereastra Cod.
Cod VBA: marcați toate vârfurile într-o diagramă scatter
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 Subnotițe: În cod, Graficul 1 este numele graficului de dispersie creat, iar „C1” este prima celulă a coloanei de ajutor care conține rezultatele formulei pe care le-ați aplicat la pasul 1. Vă rugăm să le modificați în funcție de nevoile dvs.
5. apasă pe F5 tasta pentru a rula codul. Apoi, toate vârfurile sunt marcate pe diagrama de împrăștiere, după cum urmează:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
