555.jpg

如題，在31個(gè)單元格中，隨機(jī)生成指定次數(shù)的1

思路：

傳統(tǒng)思路是將生成0-31之間的隨機(jī)數(shù)，然后將生成隨機(jī)數(shù)對(duì)應(yīng)的單元格值修改為1。但歸根到此問(wèn)題上，該問(wèn)題是一個(gè)考勤表隨機(jī)生成，所以大部分的隨機(jī)數(shù)應(yīng)該是1，換句話話說(shuō)1的總次數(shù)在0和31之間，大都接近31，畢竟正常人都需要經(jīng)常上班哈。因此，帶來(lái)一個(gè)執(zhí)行效率的問(wèn)題，即如果考勤天數(shù)是25天以上，則在每次生成隨機(jī)數(shù)0-25的概率要大于25-31的概率，所以，此題需要反思路解決，即首先將31個(gè)單元格全部填1，然后執(zhí)行（31-考勤天數(shù)）次隨機(jī)數(shù)循環(huán)代碼，并將對(duì)其對(duì)應(yīng)的單元格清空，最后達(dá)到傳統(tǒng)思路同樣的效果，且代碼執(zhí)行效率較高。

細(xì)節(jié)：

沒(méi)有細(xì)節(jié)，擼就完了！

代碼：

Sub t1()
Dim i, n, x
i = [a66356].End(xlUp).Row
Range("b4:af" & i) = 1
For x = 4 To i
    Do While Application.CountA(Range(Cells(x, 2), Cells(x, 32))) <> Cells(x, 1).Value
        n = Int(31 * Rnd + 2)
        Cells(x, n).ClearContents
    Loop
Next
End Sub

效果：

444.jpg