Excel中随机填充数字

基础代码 Sub RndNumber() Dim RndNumber, TempArray(4), i, j, k As Integer Randomize (Timer) For i = 0 To 4 TempArray(i) = i Next i For i = 190 To 19 Step -1 For j = 3 To 32 Step 1 RndNumber = Int(i * j * Rnd) k = RndNumber Mod 5 Cells(j, i).Value = TempArray(k) + 1 Next j Next i End Sub

根据实际情况修改TempArray中的填充，为您需要填充的内容，这里为1到5的数字

根据实际情况修改1，j的范围，控制填充的单元格的行列