車番毎の計量値の平均を出す方法を教えて下さい

質問

エクセルの表です。
A B C
1 車番 計量値
2 2008 1200
3 2008 1300
4 2008 1250
5 1008 1250
6 1008 1250
7 1008 1300
8 2112 1300
9 2112 1350
10 2008 1450

この表の車番毎の積載量の平均を連続で求めて別のシートに表示したいのです。この場合車番2008はA2からA4で平均値をもとめ、A10は別に求めA列の車番順に表示して積載量の平均値を一覧にしたいのです。
欲張りな質問ですがどなたか教えて下さい。

回答No.2

fujillin

マクロでの例です
不明部分は適当に作成していますので、適宜修正を…

Sub test()
Dim st As Worksheet, code As String, rslt
Dim rw As Long, rmx As Long, rOut As Long, rCnt As Long

Set st = ActiveSheet
rmx = Cells(Rows.Count, 1).End(xlUp).Row
Worksheets.Add Before:=ActiveSheet
rOut = 1
rw = 1

While rw <= rmx
　rw = rw + 1
　code = st.Cells(rw, 1).Value
　If code <> "" Then
　　rCnt = 1: rslt = 0
　　If IsNumeric(st.Cells(rw, 2).Value) Then rslt = st.Cells(rw, 2).Value
　　While st.Cells(rw + 1, 1).Value = code
　　　rw = rw + 1: rCnt = rCnt + 1
　　　If IsNumeric(st.Cells(rw, 2).Value) Then rslt = rslt + st.Cells(rw, 2).Value
　　Wend
　　Cells(rOut, 1).Value = code
　　Cells(rOut, 2).Value = rslt / rCnt
　　rOut = rOut + 1
　End If
Wend
End Sub

お礼

ありがとうございました。
この後は自分で勉強して望む形にしたいと思います。

補足

回答ありがとうございます。
マクロはほとんど分かりませんが、取りあえずコピーして実行してみました。
私の希望している結果が得られていると思いますが、A1:B4に上書きされてしまいます。
私のやり方が悪いのかよく分かりません。
もう少し、教えて下さい。