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

No2です。

＞私の希望している結果が得られていると思いますが、A1:B4に
＞上書きされてしまいます。
一部シート名を省略した書き方でマクロを作成していますが、元のご質問文のほうに

＞別のシートに表示したいのです。
とありましたので、別シートに集計が出ているはずですが？
（画像は同じシートになっていますが）
元のシートはそのままのはずなので、上書きではないはずなんですが…

Ｄ列に集計を出すのなら、No7様がヒントを書いてくださっていますが、記入する列の指定をNo7の回答のようにして、かつ、新規シートを作成する以下の1行を削除すれば、同じシートのD列に記入されます。
　Worksheets.Add Before:=ActiveSheet　'←この行を削除

また、集計の記入開始を2行目からにしたければ、rOutが記入する行を示す変数になっていますので、その初期値を2に変えれば、2行目から表示されます。
　rOut = 1　’←　これを　rOut = 2　に変更

＞＞列方向もデータの最後まで計算させる方法を教えてください。
各列について、同じように平均値を求めるということでしょうか？
列方向にも集計のループをいれれば可能ですが、現状は集計対象が1列だけだったので、車番のチェック（同じ番号かどうか）と集計を同時並行で行っています。
列が多数の場合は、別々に行った方が混乱が少なくなりますね。

やるとすればこんな手順。（集計部分の手順のみ）
1）同じ車番の範囲を先にチェック。
　　同時にその範囲の列数の最大値を求めておく
　　　（↑行によって列数が変わる場合）
2）上で求めた範囲（＝行の範囲）で各列を集計するループ
　（2列目から最大列まで）
　1つの列について、対象行の数値（ブランクは除くなどして）の合計と、
　セル数をカウントしておいて、平均値を求める。

計算もマクロで行うなら↑のような手順になりますが、これだと少々面倒なので、1）で同じ車番の範囲を調べたら、集計表にはその範囲を利用して
　=AVERAGE(範囲)
みたいな式を定義してしまう方が、簡単そうですね。

式を定義する方法だと、こんな感じになります。
1行目（タイトル行？）は、もとのシートのものをコピーします。
また、タイトル行の最大列までを対象として、式を代入します。
（集計は、新しいシートに行われます）
Sub test()
Dim st As Worksheet, dst As Worksheet, code As String
Dim rw1 As Long, rw2 As Long, rmx As Long, rOut As Long
Dim col As Long, colmx As Long

Set st = ActiveSheet
rmx = Cells(Rows.Count, 1).End(xlUp).Row
colmx = Cells(1, Columns.Count).End(xlToLeft).Column
Worksheets.Add Before:=ActiveSheet
Set dst = ActiveSheet
st.Rows(1).Copy dst.Rows(1)

rOut = 2
rw1 = 2
While rw1 <= rmx
　rw2 = rw1
　code = st.Cells(rw1, 1).Value
　If code <> "" Then
　　While st.Cells(rw2 + 1, 1).Value = code
　　　rw2 = rw2 + 1
　　Wend
　　dst.Cells(rOut, 1).Value = code
　　For col = 2 To colmx
　　　dst.Cells(rOut, col).Formula = "=AVERAGE(" & st.Name & "!" _
　　　　& Cells(rw1, col).Address & ":" & Cells(rw2, col).Address & ")"
　　Next col
　　rOut = rOut + 1
　End If
　rw1 = rw2 + 1
Wend
End Sub

[回答番号：No.5この回答への補足]へのコメント、

》 車番はＡ列の順番通りに出てきて欲しいのです。

それはピボテでは不可能です。精々次のように手動で行なうぐらいですね。

平均 / 計量値
車番　　　　　 計測回　合計
2008　　　　　　　　1　1250
　　　　　　　　　　2　1450
1008　　　　　　　　1　1250
　　　　　　　　　　2　1250
2112　　　　　　　　1　1325
　　　　　　　　　　2　1300


》 後で時間順にソートするなどは可能でしょうか。

♪こういう具合にしやしゃんせ♪と具体例を表で示したらどうです？

えっと　つづけて＃２さんのマクロについて

>マクロはほとんど分かりませんが、取りあえずコピーして実行してみました。
>私の希望している結果が得られていると思いますが、A1:B4に上書きされてしまいます。

ならば

>Cells(rOut, 1).Value = code
>Cells(rOut, 2).Value = rslt / rCnt

を
Cells(rOut, 4).Value = code
Cells(rOut, 5).Value = rslt / rCnt

にしてみたらいかがかな？

※コードの意味がわからないでも実行できるってのはびっくりだけどね

＃１です。

回答時の環境では画像が見えなかったので　D列に補助値　と書きましたが、C列にするのが適切なようですね。

補助値があなたの希望する同一車番でも別平均とするキーにするものです。手入力してください。
提示された例では
1～9行目：１
10～１５行目：２

数値を例にしましたが補助値はABCなどでもかまいません。
ピボットの行で
車番/補助値の順とし、それぞれ小計をなしにすれば見やすいでしょう

　　 A　　　B　　　 C　　

1　 車番　計測回　計量値
2　 2008　　　 1　　1200
3　 2008　　　 1　　1300
4　 2008　　　 1　　1250
5　 1008　　　 1　　1250
6　 1008　　　 1　　1250
7　 1008　　　 1　　1250
8　 2112　　　 1　　1300
9　 2112　　　 1　　1350
10　2008　　　 2　　1450
11　1008　　　 2　　1200
12　1008　　　 2　　1300
13　2112　　　 2　　1250
14　2112　　　 2　　1300
15　2112　　　 2　　1350

上に示すように手入力による「計測回」を設けたら如何ですか？
下のようにピボットテーブルで簡単に求まりますよ。
（「合計」欄は平均値を示しています）

平均 / 計量値
車番　　　　　 計測回　合計
1008　　　　　　　　1　1250
　　　　　　　　　　2　1250
2008　　　　　　　　1　1250
　　　　　　　　　　2　1450
2112　　　　　　　　1　1325
　　　　　　　　　　2　1300

初心者は初心者らしく・・・

　　　A　　 B　　　C　　 D　　 E　　　 F
1　　　　　　　　 1008　2008　2112　←車番
2　 車番　計量値　1267　1300　1325　←平均値
3　 2008　　1200　　　　1200
4　 2008　　1300　　　　1300
5　 2008　　1250　　　　1250
6　 1008　　1250　1250
7　 1008　　1250　1250
8　 1008　　1300　1300
9　 2112　　1300　　　　　　　1300
10　2112　　1350　　　　　　　1350
11　2008　　1450　　　　1450

C2: =ROUND(AVERAGE(C3:C11),0)
C3: =IF($A3=C$1,$B3,"")

こんばんは！

すでに回答は出ていますが・・・
他の方法の一例です。

＞A10は別に求め・・・と書いてあるので、10行目を除いた平均です。

↓の画像で
E2セルを　=SUMIF($A$2:$B$9,D2,$B$2:$B$9)/COUNTIF($A$2:$A$9,D2)
としてオートフィルでコピーします。

以上、参考になれば幸いです。m(__)m

マクロでの例です

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

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

D列に補助値を入力し、ピボットテーブルで平均にすればよいと思います。

>車番2008はA2からA4で平均値をもとめ、A10は別に求めA列の車番順に表示して積載量の平均値を一覧にしたいのです

ピボットの行で車番を優先すれば希望の形になります。