Excelグラフでの山の数え方について(VBA)

Question

###前提・実現したいこと
ExcelのA列で、a1セルから数百～数千個、データが並んでいます。
小数点を含む数字で、だいたい-20から+30までの間の値です。
折れ線グラフを作成すると山のようなものが何個か確認できます。
これをマクロで数えたいのです。どうすれば良いですか？

また、山の先端はギザギザになっています。
例えば、1,5,10,15,20,18,22,15,10,5,1と
いうように並んでいたとすると、20と22の部分で
『山が2つある』と数えることは出来そうなのですが
私はこれを1つの山として数えたいのです。

伝わりますでしょうか。
拙い文章ですが、回答よろしくお願いします。

###ソースコード

Sub test()

Worksheets("Sheet1").Select

Dim flag As Integer
Dim p_row_value As Integer
Dim n_row_value As Integer
Dim count As Long

p_row_value = 0
n_row_value = 0
falg = 0
MsgBox Cells(Rows.Count, 1).End(xlUp).Row

Dim i As Long
For Row = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    p_row_value = Cells(Row - 1, 1).Value
    n_row_value = Cells(Row, 1).Value
    If n_row_value > p_row_value And flag = 0 Then
        flag = 1
    Else
        flag = 0
        count = count + 1
    End If
    If n_row_value < p_row_value And flag = 0 Then
        flag = 1
    Else
        flag = 0
        count = count + 1
    End If
Next

MsgBox (count)


End Sub

###補足情報(言語/FW/ツール等のバージョンなど)

PCはwindows7、Excelは2010です。

Answer 1

二区間移動平均とってみました。どうでしょ

Answer 2

もし、VBAではなくてもよいのであれば、B2に「=IF(A1-A2<0,B1+1,B1)」という計算式を入れてA列のデータ分B列にコピーしてB列の最終行の値が山の数というやり方もできます。
C1に「=MAX(B:B)」という計算式を入れて、C1をRangeで読み取ることもできます。

Answer 3

山の定義をはっきりさせてから、考えるとよいと思います

１）移動平均を計算してなだらかにしてからピーク判定する
２）ピーク値に対して一定の範囲から逸脱したかで判定する
３）ピーク値からの変化方向の連続性で判定する

全ての値が同じだったら、全て前回＜今回だったら、全て前回＞今回だったら、などのイリーガルケースも考慮が必要でしょうかね

Answer 4

3点を見れば判断できるんではないかと。
例えば、A1・A2・A3を配列に入れて、A1A2は上昇しA2A3に下降した場合は山と判断できます。
次にA234、次にA345、次にA456...

もっとスマートなやり方がありそうな感じはしますが、アルゴリズム得意な方の回答に期待したいです笑