表中五格隨機數範圍相同，但不能重復。

下面的代碼實現了在單元格A1-A5中生成五個不重復的隨機數。

副總管()

Dim d作為對象

Set d = CreateObject("腳本。字典》)

字典初始化

對於i=1到5

使不規則化

rd = Int((20 * Rnd) + 10)

如果不存在，則單元格(I，1)=rd

研發)= " "

然後

末端接頭