棄却後の平均の求め方（エクセル）

質問

例えば、５つの数字があります。
A1：0.1、A2：0.6、A3：0.2、A4：0.3、A5：0.4
平均「AVERAGE(A1:A5)」は0.32になります。

標準偏差「STDEV(A1:A5)」：0.19を求め（σ：シグマ）
平均±σの範囲内にある値の平均を求めたいと思っています。
つまり「平均－σ：0.13～平均＋σ：0.51」の範囲内にある数字の平均です。

求めたい結果は、A3：0.2,A4：0.3,A5：0.4の平均で0.3となるのですが、
これらを自動的にマクロか何かで計算させる方法はあるのでしょうか？
（「ある範囲内にある数字を平均化」又は「ある範囲外の数字を棄却して平均化」）

ご存じの方教えて下さい。
宜しくお願いします。

回答No.2

imogasi · ベストアンサー

Selectionを使い、一般化してあります。
ワークシート上のデータの入っているセルを範囲指定して
それから実行してください。
（１）データが１列でなくてもできそうです。
飛び飛びセルはテストしてません。
（２）Msgboxは途中確認のために多用しています。
Cells(i,"A")=等と置換えるのも良いと思います。
（３）条件に合うものを、例としてＥ列に書き出しています。ｊ列に書き出すのならCells(n, "E") = clともう一箇所の"E"を"J"に変えてください。
（４）後半について充分テストしてません。なにかあれば
言ってください。
（５）Stdevを使い、Stdevpを使っていません。問題の
例の数値から推定して。
Sub test01()
'a = WorksheetFunction.Average(Range("a1:a5"))
a = WorksheetFunction.Average(Selection)
MsgBox a
's = WorksheetFunction.StDev(Range("a1:a5"))
s = WorksheetFunction.StDev(Selection)
MsgBox s
Dim cl As Range
n = 1
For Each cl In Selection
If cl > a - s And cl < a + s Then
Cells(n, "E") = cl
n = n + 1
End If
Next
avgb = WorksheetFunction.Average(Range(Cells(1, "E"), Cells(n, "e")))
MsgBox avgb
End Sub

お礼

ご回答有り難うございます。

目的のものが大筋で出来ました！
あとは、セルを少し移動したりして
完成させたいと思います。

どうも丁寧に有り難うございました。

回答No.1

keiri2002

sumifでどうでしょう。

お礼

sumifは知っていたのですが、合計ではなくて、
平均を知りたいという質問でした。
有り難うございました。