如何計算Excel數據列中的峰數？

---

計算Excel中數據列中的峰數

以下公式可以幫助您直接在Excel中計算一列數據中的峰數。

1.選擇一個空白單元格放置結果，輸入公式 =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) 到 配方欄，然後按 Enter 鍵。 看截圖：

備註：在公式中，B3：B17是從第三個單元格（包括標頭單元格）到列表的倒數第二個單元格的範圍，B2：B16是從第二個單元格（包括標頭單元格）到列表的倒數第二個單元格的範圍列表，最後B4：B18是從第四個單元格（包括標題單元格）到列表的最後一個單元格的範圍範圍。 請根據需要更改它們。

---

在散點圖中標記所有峰值

此外，您可以通過創建散點圖並標記圖表中的所有峰來輕鬆找出色譜柱的峰。 請執行以下操作。

1.選擇與單元格B3相鄰的單元格-C3（列表的第二個單元格值，不包括標題），輸入公式 = IF（AND（B3> B2，B3> B4），“ Peak”，“”） 到 配方欄 並按下 Enter 鍵。 然後向下拖動填充手柄以標記所有峰，如下圖所示。

2.選擇x和y列，然後單擊 插入 > 插入散點圖（X，Y）或氣泡圖 > 用直線和標記分散 在工作表中插入散點圖。 看截圖：

3。 按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

4。 在裡面 Microsoft Visual Basic for Applications 窗口，請點擊 插入 > 模塊。 然後將下面的VBA代碼複製並粘貼到“代碼”窗口中。

VBA代碼：在散點圖中標記所有峰

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

備註：在代碼中，“圖表1”是創建的散點圖的名稱，“ C1”是幫助列的第一個單元格，其中包含您在步驟1中應用的公式結果。請根據需要進行更改。

5。 按 F5 鍵來運行代碼。 然後在散點圖上將所有峰標記為以下屏幕截圖：