[COLOR="Navy"]Sub[/COLOR] MG25Mar25
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Ray(), n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Wt [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Rw [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] nRay()
[COLOR="Navy"]Dim[/COLOR] c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] nRdn [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
Wt = Range("C1").Value: Rw = Range("B1").Value
ReDim Ray(1 To Rw)
[COLOR="Navy"]For[/COLOR] n = 1 To Rw
Ray(n) = IIf(n <= Wt, 1, 0)
[COLOR="Navy"]Next[/COLOR] n
ReDim nRay(1 To UBound(Ray))
Randomize
[COLOR="Navy"]Do[/COLOR] Until c = 100
nRdn = Int(Rnd * Rw) + 1
[COLOR="Navy"]If[/COLOR] Not Ray(nRdn) = vbNullString [COLOR="Navy"]Then[/COLOR]
c = c + 1
nRay(c) = Ray(nRdn)
Ray(nRdn) = vbNullString
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Loop[/COLOR]
Range("A1").Resize(Rw) = Application.Transpose(nRay)
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]