|
以下のマクロを用いて、標準偏差を求めようとしたのですが、
sumifの所で、「エラー404 オブジェクトが必要です」と出ます。
色々ネットで検索したのですが、どう修正すれば良いのか分からない為、
ここで質問させていただきます。
基本的な知識が欠如しているのは重々承知でございます。
どなたか知恵をお貸しください。
使用しているシートには
F列:割振番号(1〜30)
G列:計算したいデータ(1行目はラベル、データ数255〜280程度、たまに抜け有)
Q列:averageifで出した割振番号毎のデータの平均値
Sub 標準偏差
Dim a
Dim b
For a = 1 To 30
For b = 2 To 280
If Cells(b, 6) = a Then 'F列の割振番号がaの時
Cells(b, 8) = (Cells(b, 7) - Cells(a + 1, 17)) ^ 2 'G列の値を用いて、H列にデータの分散を計算する
End If
Next b
Next a
Dim f
Dim g
For g = 1 To 30
Set f = Worksheet.Function.SumIf(Range("F2:F280"), g, Range("H2:H280")) '割振番号がgの時のデータの合計をfとする
Cells(g + 1, 18) = "= (""f""/ Cells(g + 1, 13)) ^ 0.5" '出力先に割振番号gの時の標準偏差を表す
Next g
End Sub
|
|