求一个类似于抛硬币的代码

15821860382

两种结果，A或者B，概率都是50%，请问代码该怎么写呢

YZC51

=IF(RAND()<0.5,"A","B")

15821860382

Sub 三()
Application.EnableEvents = False
    Dim str, s$, i%, c As Byte, r As Byte
        str = Split("A,B", ",")
    Do Until Len(s) = 1
RE: i = Int(Rnd * 2)
    If InStr(s, str(i)) = 0 Then
        s = s & str(i)
    Else: GoTo RE:
    End If
Loop

    For c = 17 To 76
        r = 3
    If Cells(r, c).Value = "" Then
        Cells(r, c).Value = s
GoTo oT04
    End If
    Next
oT04:
Application.EnableEvents = True
End Sub

请问老师，这个随机代码到底能不能做到50%，有没有更好的代码？

一把小刀闯天下

'接近1:1

Option Explicit

Const NUM As Long = 10 ^ 7

Sub test()
  Dim sum(1) As Long, i As Long
  Randomize
  For i = 1 To NUM
    If Rnd < 0.5 Then sum(0) = sum(0) + 1 Else sum(1) = sum(1) + 1
  Next
  MsgBox "A/B=" & Format(sum(0) / sum(1), "0.0000")
End Sub

Chip_Kenny

=RANDBETWEEN(0,1)

15821860382

麻烦老师们再看看这个代码
[B2:K7]这60个单元格对应[R3:BY3]这60个单元格
当B2:K7的数据变化时，对应单元格得到一个随机数
当B2:K7数据清除时，对应单元格的随机数也清除
对应关系B2—R3，……，K7—BY3
现在问题是：这个变量S为固定值，R3：BY3得到的随机数都会变成相同的，
怎么修改这个代码呢，困扰我好久了，想不出解决办法。。。代码如下。

Sub 三()
Application.EnableEvents = False
    Dim str, s$, i%, c As Byte, r As Byte
RE: str = Split("A,B", ",")
    Do Until Len(s) = 1
        i = Int(Rnd * 2)
    If InStr(s, str(i)) = 0 Then
        s = s & str(i)
    Else: GoTo RE:
    End If
Loop
    Dim arr, brr(1 To 60), k As Byte
        arr = [B2:K7]
        k = 1
    For c = 1 To UBound(arr, 2)
    For r = 1 To UBound(arr)
    If arr(r, c) <> "" Then
    If brr(k) = "" Then
        brr(k) = s
    End If
    End If
        k = k + 1
    Next
    Next
        [R3:BX3] = brr
Application.EnableEvents = True
End Sub