Excelでデータの列のピークの数を数える方法は？

---

Excelのデータ列のピーク数をカウントします

次の数式は、Excelで直接データの列のピークの数を数えるのに役立ちます。

1.結果を配置するための空白のセルを選択し、数式を入力します =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) に 数式バー次に、 入力します キー。 スクリーンショットを参照してください：

注意：式では、B3：B17はリストの2番目のセル（ヘッダーセルを含む）から最後から16番目のセルまでの範囲です。B4：B18はXNUMX番目のセル（ヘッダーセルを含む）から最後からXNUMX番目のセルまでの範囲です。リスト、最後にBXNUMX：BXNUMXは、XNUMX番目のセル（ヘッダーセルを含む）からリストの最後のセルまでの範囲スコープです。 必要に応じて変更してください。

---

散布図のすべてのピークをマークします

さらに、散布図を作成し、チャート上のすべてのピークにマークを付けることで、列のピークを簡単に把握できます。 次のようにしてください。

1.セルB3（ヘッダーを除くリストの3番目のセル値）に隣接するセルCXNUMXを選択し、数式を入力します = IF（AND（B3> B2、B3> B4）、 "ピーク"、 ""） に 数式バー を押して 入力します キー。 次に、フィルハンドルを下にドラッグして、下のスクリーンショットに示すようにすべてのピークをマークします。

2.列xとyを選択し、をクリックします インセット > 散布図（X、Y）またはバブルチャートを挿入します > 直線とマーカーの散布図 散布図をワークシートに挿入します。 スクリーンショットを参照してください：

3。 プレス 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

4。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウをクリックしてください インセット > モジュール。 次に、以下の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 コードを実行するためのキー。 次に、すべてのピークが下のスクリーンショットのように散布図にマークされます。