引く確率を力技で求める

4枚あるカードが少なくとも1枚初手にある確率は、”1-1枚も引けない確率"で求められます。数学が得意であればそれ以外についても厳密な確率が出せるのでしょうが、ざんねんながら私はそれはど数学が得意ではありませんでした。そこで、力技で確率を出すことにしました。

実装内容

LibreOffice Calcのマクロを使用しました。（Excelじゃないのは、単に持っていないからです。)

Excelに移植等するのでマクロだけほしい

Application.ScreenUpdating = False
For i=1 to 65 Step 1
	If Worksheets("入力").Cells(2,i).Value = "" Then
		Deckmaisuu = i-1
		GoTo SHUFFLING
	End if
Next i
SHUFFLING:
Worksheets("入力").Range("10:10").Value = Worksheets("入力").Range("2:2").Value
For i=1 To 1000 Step 1
	Worksheets("入力").Range(Worksheets("入力").Cells(10,1), Worksheets("入力").Cells(11,Deckmaisuu)).Sort Key1:=Range("A11"), Orientation:=xlSortRows
	Worksheets("出力").Range(Worksheets("出力").Cells(i+1,5), Worksheets("出力").Cells(i+1, 4+Deckmaisuu)).Value = Worksheets("入力").Range(Worksheets("入力").Cells(10,1), Worksheets("入力").Cells(10,Deckmaisuu)).Value
Next i
Application.ScreenUpdating=True