返回指定范围内的随机整数：
1 Sub main() 2 Debug.Print 随机整数(1, 2) 3 End Sub 4 Function 随机整数(a As Integer, b As Integer) As Integer 5 随机整数 = Int((b * Rnd) + a) 6 End Function
【VBA】返回指定范围内的随机整数
原文：https://www.cnblogs.com/KMould/p/12059826.html
