作者：乔山办公网日期：
返回目录：excel表格制作
我将结果放在A1单元格e69da5e887aa7a686964616f330：
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
VBA生成随机数的函数是百rnd，生成的是0到1之间的随机数。如果想生成50到100之间的随机数，可以用以下公式：
Sub Button1_Click()
Dim a
a = Int(Rnd * 50) + 50
End Sub
注解：
rnd*50可生度成0到50之间的随机数，用int取整数（根据题主的回表述，我认为你是只需要整数的），然后再加上50，就是50到100之间的随机整数了答。