IDごとに行数が異なる生データから、平均値、最大値、最小値を出力したいのです

Question

すいません、エクセル初心者です。マクロで解決したい事がございます。

IDごとに異なる数（行数が異なる）のデータがインプットされるのですが、各IDごとに、データの最大値、平均値、最小値を自動的に抽出するマクロを作りたいのです。IDはスペースで区切られています。
インプットされる行数が同じならば、パターン化すればいいと思ったのですが、IDによっては、3行、5行とランダムなのでパターン化できないのです。。。悲
最初の行と最後の行間でそれぞれ関数をつくればいいのかな、、、？と思ったのですが、コードが書けません。。
プログラマーの方、教えて頂けませんか？どんな関数を使ってVBAでコードを書けばよろしいでしょうか？

やりたい事は、添付の図で示しました。一個目の絵がインプットデータ、2個目の絵が出力したい結果です。全部手でやっているので、日が暮れています。。。（TT）　助けて頂けませんか？

Answer 1

たとえばこんな感じでどうですか。

Sub sample()
   Dim ws As Worksheet, c As Range
    Set ws = Sheets(1)
    For Each c In ws.Cells.Resize(, 1).Cells.SpecialCells(xlCellTypeConstants)
        With c.CurrentRegion
            c.Offset(0, 5).Value = "Max."
            c.Offset(1, 5).Value = "Ave."
            c.Offset(2, 5).Value = "Min."
            
            c.Offset(0, 6).Value = WorksheetFunction.Max(.Columns(2))
            c.Offset(1, 6).Value = WorksheetFunction.Average(.Columns(2))
            c.Offset(2, 6).Value = WorksheetFunction.Min(.Columns(2))
            
            c.Offset(0, 7).Value = WorksheetFunction.Max(.Columns(3))
            c.Offset(1, 7).Value = WorksheetFunction.Average(.Columns(3))
            c.Offset(2, 7).Value = WorksheetFunction.Min(.Columns(3))
        End With
    Next
End Sub

Comments

[Masarukun]

早速のご回答ありがとうございます。コードを拝見させていただきました。columns(2),columns(3)ということは、列単位で計算されているということですね。　
ID毎にMax,Ave.Minを出そうとすると、範囲指定をしないといけないのでしょうか？例えばID:1ならば、B4:C7、ID:2ならばB9:C14みたいな感じですかね？この場合はjinojiさんならばどのようなコードになりますか？　私の説明が下手ですいません。。。

[jinoji]

まず、With c.CurrentRegion としたうえで、.Columns(2)としているので、
そこの部分は、 c.CurrentRegion.Columns(2) という意味になります。

c というのは、
ws.Cells.Resize(, 1).Cells.SpecialCells(xlCellTypeConstants) をForEach している、
つまり、ワークシートの1列目の中で値が入っているセルを順番に取り出してきてcにセットされます。
最初はID:1のセル、次にID:2のセル、という感じです。
で、CurrentRegionというのは、そのセルの付近の値が入った範囲を取ってきますので、
結果として、IDごとの範囲指定が実現しています。