Question

求EXCEL的VBA代码，用“1、2、3、4”四个字符，随机生成排列组合

Answer 1

1、排列组合需要多少位数字

2、这四个数字是否可以重复？

可以重复的，可以使用=RANDBETWEEN(1,4)

如果还有具体要求，请进一步明确

Answer 2

Sub suiji()
    s = Array(1, 2, 3, 4)
    For i = 0 To 3
        r = Int(Rnd() * 4)
        t = s(i)
        s(i) = s(r)
        s(r) = t
    Next
    shuchu = ""
    For i = 0 To 3
        shuchu = shuchu & s(i) & ","
    Next
    shuchu = Left(shuchu, Len(shuchu) - 1)
    Range("A" & Range("A65536").End(xlUp).Row + 1) = shuchu
End Sub