数字が何回出て、その確率は何%なのか計算したい

質問

エクセルで以下のような条件で値を求めたいのですが、どうすれば可能でしょうか？

2個のサイコロを振って出た数字の合計（2〜12）のデータが100件あるとして、各数字が出た後に出現した数字と出現した回数、出現する確率を自動で求めたいのですが、やり方を教えて頂けないでしょうか？

例えば７が出た後に、２〜１２の数字がそれぞれ何回出て、その確率はそれぞれ何パーセントなのか、データから抽出したいです。

宜しくお願いします。

回答No.3

kkkkkm · ベストアンサー

マクロですが

A列にA2からデータがあるとして
C列　2 -> 8 ←2の後に8の場合
D列 回数
E列 割合

を出しますので試してみてください。

Sub Test()
Dim i As Long, j As Long, k As Long
Dim LastRow As Long
Dim buf(2 To 12, 2 To 12) As Variant

Range("C:E").Clear 'C:E列データ削除

k = 1
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
'データ取得
For i = 2 To LastRow - 1
buf(Cells(i, "A").Value, Cells(i + 1, "A").Value) = buf(Cells(i, "A").Value, Cells(i + 1, "A").Value) + 1
Next
'データ書き出し
For i = 2 To 12
For j = 2 To 12
If buf(i, j) <> "" Then
Cells(k, "C").Value = i & " -> " & j
Cells(k, "D").Value = buf(i, j)
k = k + 1
End If
Next
Next
LastRow = Cells(Rows.Count, "D").End(xlUp).Row
With Range(Cells(1, "E"), Cells(LastRow, "E"))
.Formula = "=D1/SUM(D:D)"
.Style = "Percent"
End With
End Sub

お礼

回答ありがとうございます。
何とかマクロを設定することができました。
教えていただいた内容を元にいろいろ試してみたいと思います。

回答No.2

HohoPapa

添付画像のように、2列目に2回目の値を転記し
ピボットテーブルで集計するというのはいかがでしょうか。
なお、提示した資料は回数の羅列ですので、
確率は別途計算式を埋め込む必要があります。

また、
200回のデータのうち、最終回には2回目がありませんので
母数は199個になります。

お礼

回答ありがとうございます。
早速試してみたいと思います。

回答No.1

NuboChan

以下は、そのものずばりの内容です。
シートをクリックでDL可能です。

https://www3.cuc.ac.jp/~nagaoka/2014/shori/13/dice/index.html

お礼

回答ありがとうございます。
セキュリティの警告が出てしまいファイルが開けませんでした。
作りたいものにかなり近い感じなので、参考にさせていただきます。