作业帮关于EXCEL数组任意排列的问题,给积分啊……就是一组数让他们自由排列,例如12345A1 B1 C1 D1 E1 1 2 3 4 51 2 3 5 41 2 4 5 3……一共120种,望高手们给予指点迷境,
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 12:32:20
关于EXCEL数组任意排列的问题,给积分啊……就是一组数让他们自由排列,例如12345A1 B1 C1 D1 E1 1 2 3 4 51 2 3 5 41 2 4 5 3……一共120种,望高手们给予指点迷境,
关于EXCEL数组任意排列的问题,给积分啊……
就是一组数让他们自由排列,例如12345
A1 B1 C1 D1 E1
1 2 3 4 5
1 2 3 5 4
1 2 4 5 3
……
一共120种,望高手们给予指点迷境,
关于EXCEL数组任意排列的问题,给积分啊……就是一组数让他们自由排列,例如12345A1 B1 C1 D1 E1 1 2 3 4 51 2 3 5 41 2 4 5 3……一共120种,望高手们给予指点迷境,
原始的5个数据放在A1:A5里!
鼠标右击Sheet1的标签,点【查看代码】,在【代码窗口】粘贴下面的VBA代码：
Sub ouyangff()
s = 2
For i = 1 To 5
For j = 1 To 5
For k = 1 To 5
For l = 1 To 5
For m = 1 To 5
If i j And i k And i l And i m And i k And j k And j l And j m And k l And k m And l m Then
Cells(s, 1) = Cells(1, i)
Cells(s, 2) = Cells(1, j)
Cells(s, 3) = Cells(1, k)
Cells(s, 4) = Cells(1, l)
Cells(s, 5) = Cells(1, m)
s = s + 1
End If
Next
Next
Next
Next
Next
End Sub
按F5运行程序,再按Alt + F11,回到Excel表中,去看看120种结果吧!