13问答网 > excel一段vba过程代码，实现在选取的单元格中随机生成0-10之间的数，生成的可重复。求高手指点，在线急等

excel一段vba过程代码，实现在选取的单元格中随机生成0-10之间的数，生成的可重复。求高手指点，在线急等

2025-03-01 05:55:49

推荐回答（2个）

回答1：

private sub selection_change(byval as range)
dim cur as range
cur=selection
for each rg in the cur
if rg<>"" then
rg.value=Int((10 * Rnd) +0)

else
end if
next
end sub

回答2：

代码如下：
sub m()
selection.value=int(rnd*10)+1
end sub