Note: The other languages of the website are Google-translated. Back to English

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

左のスクリーンショットに示すように、3列のデータがワークシートにあるとすると、列Bのピークの数を数える方法はありますか? 実際には、セル値(B2など)がB4とBXNUMXと同時に大きい場合、それをピークと判断できます。 それ以外の場合は、これらXNUMXつの基準を満たさない場合はピークではありません。 この記事では、Excelのデータ列のすべてのピークを一覧表示してカウントする方法について説明します。

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 コードを実行するためのキー。 次に、すべてのピークが下のスクリーンショットのように散布図にマークされます。


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (0)
まだ評価はありません。 最初に評価してください!
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護