跳到主要內容

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

假設有兩列數據位於工作表中(如左圖所示),如何計算B列中的峰數? 實際上,如果同時大於B3和B2,則可以將某個單元格值(例如B4)判斷為峰值。 否則,如果不滿足這兩個條件,則不是峰值。 本文討論的是列出和計算Excel中數據列中的所有峰。

計算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 鍵來運行代碼。 然後在散點圖上將所有峰標記為以下屏幕截圖:

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations