EXCEL2010のAVERAGE関数について

質問

こんばんは。

EXCEL2010ですが、同じデーターを使ってワークシートでAVERAGE関数を使って求めた平均値とVBAでApplication.Averageで求めた平均値が違います。
扱っているデーターは少数点以下桁数が20桁数の数値です。
小数点第8位まではあっているのですが、その後は違います。

例
0.00000138786111098443
0.00000137878257235606
0.00000138192909756498

普通にセルにAVERAGE関数を使って平均値を出すと
0.00000138285759363516

VBAでApplication.Avarageを使って平均値を出すと
0.00000138489510427471
（変数のデーター型はDoubleを使用）

これは誤差範囲になるのでしょうか？
またそれが誤差であれば、どちらが真の値になるのでしょうか？

ご教授頂きたくよろしくお願いします。

＜追伸＞
なぜVBAで平均値を求めるかというと、
平均する数の値が固定ではなくCASE毎に変動するVBAを作っています。
上記のVBAを完成し答え合わせした所、違う結果になってしまいました。
いろいろ変数のデータ型を変えたりしたのですが、解決しませんでした。

回答No.2

tsubuyuki · ベストアンサー

誤差でもバグでもなく、人為的なミスでしょう。

例えば
　Ａ１：0.00000138786111098443
　Ａ２：0.00000137878257235606
　Ａ３：0.00000138192909756498
とデータがあるとして、これらの平均を「Application.Average」で求めるなら
　　Range("B1") = Application.Average(Range("A1:A3"))
　　Range("B1") = Application.Average(Range("A1", "A3"))
と書くか、もしくは
　　Range("B1") = Application.Average(Range("A1"), Range("A2"), Range("A3"))
くらいで書いてやるのが通例です。
ちなみに、上記３通りのどれでもＢ１セルに「0.00000138285759363516」が返ってきます。

＃１さんのご指摘通り、上記の例で言うとＡ１セルとＡ３セルの平均は
「0.00000138489510427470」が返ってきますから、
　　Range("B2") = Application.Average(Range("A1"), Range("A3"))
のような書き方をしているんじゃないかなぁと「推測」できます。

と言うことで。
ご自身で書いたコードを冷静に読み返してみてくださいませ。

お礼

tsubuyuki様

ご回答ありがとうございます。
ご指摘の通り、私のミスでした。（恥ずかしいです。。。）

おっしゃる通り、
Range("B2") = Application.Average(Range("A1"), Range("A3"))
で、作っていました。
ご教授頂いた通り、
Range("B1") = Application.Average(Range("A1", "A3"))
で、同じ結果になりました。

ご指摘ありがとうございました！

回答No.1

ny123456789

VBA側のなんらかのバグではないでしょうか？
0.00000138786111098443
0.00000137878257235606
0.00000138192909756498

上記の平均値は、セル上、VBA上共に、
0.00000138285759363516
になります。

ちなみに、最初と最後の値の平均値は
0.00000138489510427470
になりました。

質問にあるVBAで出した答え
0.00000138489510427471
とほぼ同じ値です。

お礼

ny123456789様

ご回答ありがとうございます。
ご指摘の通りVBAでAVERAGE関数を使う際に構文の使い方が間違っていました。
修正したところ、同じ結果になりました。
何とも恥ずかしいミスでした。
ご指摘ありがとうございました！