15问答网 > 用EXCEL，VBA如何用0——9随机生成数个不重复的五位数？求高手

用EXCEL，VBA如何用0——9随机生成数个不重复的五位数？求高手

2025-04-03 09:41:24

推荐回答（2个）

回答1：

我将结果放在A1单元格：

Sub M_text()
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
Dim m_txt As String
Randomize
a = Int(Rnd * 10)
b = Int(Rnd * 10)
c = Int(Rnd * 10)
d = Int(Rnd * 10)
e = Int(Rnd * 10)
Do While a = b
    b = Int(Rnd * 10)
Loop
Do While a = c Or b = c
    c = Int(Rnd * 10)
Loop
Do While a = d Or b = d Or c = d
    d = Int(Rnd * 10)
Loop
Do While a = e Or b = e Or c = e Or d = e
    e = Int(Rnd * 10)
Loop
m_txt = a & b & c & d & e
Cells(1, 1) = m_txt
Cells(1, 1).NumberFormat = "00000"
End Sub

回答2：

vba 生成不重复数字帮实现