どのようなＶＢＡを書けばよいでしょうか

質問

以下のような表があります。
(sheet1)
Ａ列　　　　Ｂ列　　　　続く…
タイトル1　タイトル2　　…　　　　　（←一行目にタイトル）
１３　　　　　５　　　　　　　　　　（←二行目から数字がランダムに）　
１８　　　　１４
４４　　　　３３
３６　　　　８７
２２　　　　１１
１４　　　　１４
２７　　　　２４
２１　　　　３９
３２　　　　６２
３５　　　　　５
４４　　　　　４
１２　　　　　３
（以下続く。各列が何行で終わるかもランダム）

「各列の数列の平均と分散」「列全体を含めての平均と分散」
を、新たなシートに書き出したいのです。
上の例からすると、
(sheet2)
Ａ列　　　　Ｂ列　　　Ｃ列
　　　　　　平均　　　分散　　　　（←一列目）
タイトル1　　？？　　　？？　　　 （←二列目から結果を）
タイトル2　　？？　　　？？
　…
全体　　 　　？？　　　？？
のような感じです。
データの量が多いので、手作業で関数を使っていては、莫大な時間を要してしまいます。
どのようなVBAを書けばいいのでしょうか。
分かる方、よろしくお願いします。

回答No.1

zap35 · ベストアンサー

＞どのようなVBAを書けばいいのでしょうか
書き方だけ説明して分かりますか？ｗ　ちょっとずるい書き方ですねｗｗ
こんな感じでしょうか。シートは実行毎に追加するようにしました。

マクロはALT＋F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はALT＋F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。

Sub MacroA()
Dim idxR, idxC, LastR As Long
Dim ws As Worksheet
　Set ws = ActiveSheet
　Worksheets.Add after:=ActiveSheet
　With ActiveSheet　
　　.Cells(1, "B").Value = "平均"
　　.Cells(1, "C").Value = "分散"
　　For idxC = 1 To ws.Range("IV1").End(xlToLeft).Column
　　　LastR = ws.Cells(65536, idxC).End(xlUp).Row
　　　.Cells(idxC + 1, "A").Value = ws.Cells(1, idxC).Value
　　　.Cells(idxC + 1, "B").FormulaR1C1 _
　　　　　= "=AVERAGE(Sheet1!R2C" & idxC & ":R" & LastR & "C" & idxC & " )"
　　　.Cells(idxC + 1, "C").FormulaR1C1 _
　　　　　= "=VARP(Sheet1!R2C" & idxC & ":R" & LastR & "C" & idxC & " )"
　　Next idxC
　End With
End Sub

お礼

素晴らしいプログラムありがとうございます！
ＶＢＡはまだまだ初心者なので、このプログラムからも勉強したいと思います。
困っていたので、助かりました！