excel肿么把1到12分为5个数排列出来?

Sub Macro1()Dim Arr1(1 To 5), Arr2(1 To 120, 1 To 5)Randomize

For i = 1 To 5Arr1(i) = Int(Rnd * 11 + 1)Next

a = 1For i = 1 To 5For j = 1 To 5If j = i ThenElseFor k = 1 To 5If k = i Or k = j ThenElseFor l = 1 To 5If l = i Or l = k Or l = j ThenElseFor m = 1 To 5If m = i Or m = j Or m = k Or m = l ThenElseArr2(a, 1) = Arr1(i)Arr2(a, 2) = Arr1(j)Arr2(a, 3) = Arr1(k)Arr2(a, 4) = Arr1(l)Arr2(a, 5) = Arr1(m)a = a + 1End IfNextEnd IfNextEnd IfNextEnd IfNextNext

Range(Cells(1, "A"), Cells(120, "E")) = Arr2

End Sub