要求：生成30个随机数，要么为1，要么为2；且1的数量为7个，2的数量为23个。

diagnose

要求：生成30个随机数，要么为1，要么为2；且1的数量为7个，2的数量为23个。


怎么弄啊？我是小白，求助大神~~~

沈默00

沈默00

Sub simoy()
Dim ar(1 To 30, 1 To 1)
Set d = CreateObject("scripting.dictionary")
For i = 1 To 30
    d(i) = ""
Next
    For x = 1 To 30
        n = Int(d.Count * Rnd + 1)
        m = Application.Index(d.keys, n)
        y = y + 1
        If y <= 7 Then
            ar(m, 1) = 1
        Else
            ar(m, 1) = 2
        End If
        d.Remove (m)
    Next
    With Sheet1
        .[a:a] = Empty
        .[a1].Resize(y, 1) = ar
    End With
End Sub

沈默00

不同的结果可以多运行几次

一剑惊心

=SORTBY(1+(ROW(1:30)>7),RANDARRAY(30))

yes_cn

hcm19522

E6=E4-E5

B2:B23 區域數組公式 {=IF(ROW(1:99)>E4,"",RIGHT(SMALL(2^(ROW(INDIRECT("1:"&E4))>E5)+RANDBETWEEN(ROW(INDIRECT("1:"&E4))^0,99)/1%,ROW(INDIRECT("1:"&E4)))))

gwjkkkkk

Option Explicit
Sub test1()
    Dim ar, i&
   
    ReDim ar(1 To 30, 0)
    For i = 1 To UBound(ar)
        If i > 7 Then ar(i, 0) = 2 Else ar(i, 0) = 1
    Next i
    arrGetRnd1 ar
    [A1].Resize(30) = ar
    Beep
End Sub

Function arrGetRnd1(ByRef ar)
    Dim xNum&, i&, n&, vTemp
    Randomize
    n = UBound(ar)
    For i = 1 To UBound(ar)
        xNum = Int((n - i + 1) * Rnd() + i)
        vTemp = ar(xNum, 0): ar(xNum, 0) = ar(i, 0): ar(i, 0) = vTemp
    Next
End Function

gwjkkkkk

。。。。。。。。。

kevinchengcw

=MOD(SMALL(RANDBETWEEN(ROW($1:$30)^0,99999)*10+1+(ROW($1:$30)>7),ROW($1:$30)),10)
区域数组