Excel生成不重复的数字

    选择打赏方式

如何生成不重复的数字呢?

给大家推荐一种简单的方法,用VBA

完整代码如下:

Sub 生成不重复数字()
Dim myrng As Range, rng As Range
Set myrng = Application.InputBox(prompt:="请选择一个区域", Type:=8)
    If myrng Is Nothing Then Exit Sub
Randomize
    For Each rng In myrng
        Do
            rng.Value = Rnd() * 100 \ 1 + 1
        Loop Until Application.CountIf(myrng, rng) = 1
    Next
End Sub


收录状态:[百度已收录]
版权声明:若无特殊注明,本文皆为《 铜山小皇帝 》原创,转载请保留文章出处。
bet365体育投注188 本文链接:Excel生成不重复的数字 http://www.excelbiji.com/vba/25.html
正文到此结束

热门推荐

发表吐槽

你肿么看?

你还可以输入 250 / 250 个字

?嘻嘻 大笑 可怜 吃惊 害羞 调皮 鄙视 示爱 大哭 开心 偷笑 嘘 奸笑 委屈 抱抱 愤怒 思考 日了狗 胜利 不高兴 阴险 乖 酷 滑稽

评论信息框

吃奶的力气提交吐槽中...


既然没有吐槽,那就赶紧抢沙发吧!