如何用excel隨機生成壹個數字組合

自定義壹個函數好了。

Function?abc()

Dim?i?As?Integer,?j?As?Integer,?A(1?To?6)?As?Integer

For?i?=?1?To?6

Randomize?'更改產生隨機數的種子

A(i)?=?Int(10?*?Rnd)

For?j?=?1?To?i?-?1

If?A(j)?=?A(i)?Then

i?=?i?-?1

Exit?For

End?If

Next?j

Next?i

abc?=?A(1)?&?A(2)?&?A(3)?&?A(4)?&?A(5)?&?A(6)

End?Function