由于你沒有具體的附件,所以有很多的不定因素,這樣代碼也就只能寫成相對不定的了,使用的時候,希望生成的隨機數寫在哪,就選中哪個單元格,然后點擊一下表里的生成隨機數按鈕,這樣就可以從該單元格開始,填充上生成的隨機數,表里的起始10終止50只是示意,你可以隨便的修改H3和I3里數字,改完后選擇單元格,點擊按鈕,就行了.具體的請看附件,代碼如下:Sub隨機數()Dimar(),a%,b%a=[H3]:b=[I3]'如果要改變起始和終止值存在的單元格,就在這改.ReDimar(aTob,1To1)Fori=aTobar(i,1)=Int((b-a+1)*Rnd)+aNextActiveCell.Resize(UBound(ar)-a,1)=arEndSub