Hur räknar man antalet toppar i en datakolumn i Excel?
Antag att två kolumner med data lokaliseras i ditt kalkylblad som den vänstra skärmdumpen som visas, hur räknar man antalet toppar i kolumn B? Egentligen kan du bedöma ett cellvärde (som B3) som en topp om det samtidigt är större än B2 och B4. Annars är det inte en topp om den inte uppfyller dessa två kriterier. Den här artikeln talar om att lista och räkna alla toppar i en datakolumn i Excel.
Räkna antalet toppar i en datakolumn i Excel
Följande formel kan hjälpa dig att räkna ett antal toppar i en datakolumn direkt i Excel.
1. Välj en tom cell för att placera resultatet, ange formel =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) i Formula Bar, tryck sedan på ange nyckel. Se skärmdump:
Anmärkningar: I formeln är B3: B17 intervallet från den tredje cellen (inklusive rubrikcell) till den näst sista i listan, B2: B16 är intervallet från den andra cellen (inklusive rubrikcell) till den näst sista av de lista och slutligen B4: B18 är intervallområdet från den fjärde cellen (inklusive rubrikcell) till den sista i listan. Ändra dem efter behov.
Markera alla toppar i ett spridningsdiagram
Dessutom kan du enkelt räkna ut toppar i en kolumn genom att skapa ett spridningsdiagram och markera alla toppar i diagrammet. Gör så här.
1. Välj cellen - C3 som ligger intill cell B3 (det andra cellvärdet i din lista exklusive rubriken), ange formel = IF (AND (B3> B2, B3> B4), "Peak", "") i Formula Bar och tryck på ange nyckel. Dra sedan ner Fill Handle för att markera alla toppar som visas nedan.
2. Markera kolumnen x och y och klicka Insert > Infoga Scatter (X, Y) eller Bubble Chart > Scatter med raka linjer och markörer för att infoga ett spridningsdiagram i kalkylbladet. Se skärmdump:
3. tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
4. I Microsoft Visual Basic för applikationer klicka på fönstret Insert > Modulerna. Kopiera och klistra sedan in under VBA-koden i kodfönstret.
VBA-kod: Markera alla toppar i ett spridningsdiagram
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 SubAnmärkningar: I koden är Diagram 1 namnet på det skapade spridningsdiagrammet, och "C1" är den första cellen i hjälpkolumnen som innehåller de formelresultat du använde i steg 1. Ändra dem baserat på dina behov.
5. tryck på F5 för att köra koden. Sedan markeras alla toppar på spridningsdiagrammet enligt nedanstående skärmdump:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
