回帰分析の繰り返し→結果出力VBA

今、1つのブックに複数のワークシートがあります。
ワークシートには、それぞれ日本、アメリカ、カナダ・・・というふうな形で名前がついています。
それぞれのワークシートには、次のようなデータが入っています。

年月　　　　消費　　　　所得
198001　　　10　　　　　100
198002　　　12　　　　　130
・
・
・

それぞれのワークシートごとにサンプル数が
異なります。やりたいことは、ワークシートごとに
単回帰を行い、次のような形で、新たなワークシートに回帰係数bだけ出力できるようにしたいです。

国名　　　回帰係数b
日本　　　　5
アメリカ　　3
・
・

本やインターネットで色々探してみましたが、
どうしても解答に行き着くことができません。
ご存知の方がいらっしゃれば、ご教示願います。

No.1 ベストアンサー 回答者： Zero_0 回答日時： 2005/05/21 16:32

VBAの組み方・・・・すいません分析ツールが入れてないものですから

標準モジュールに
sub　回帰分析をする()
sheet("日本").select

　b=　回帰分析の式で変数に係数を計算させ代入する

sheet("新たなシート").select
　cells(行,列)=b

sheet("アメリカ").select

　b=　回帰分析の式で変数に係数を計算させ代入する

sheet("新たなシート").select
　cells(行,列)=b

End sub
というようにそれぞれのシートに切り替え、係数を計算させる。
集計シート（新たなシート）をSelectし行、列で示されるセルに書き込むを繰り返します。
これを国数すべてについて行えがよいかと。