作业帮 > 综合 > 作业

我想用excel算四个数字的排列组合 四个数字放在A2 B2 C2 D2 里 如1234 有多少种具体是哪些!

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/11/06 09:38:43
我想用excel算四个数字的排列组合 四个数字放在A2 B2 C2 D2 里 如1234 有多少种具体是哪些!
试试下面这个代码吧,会在E列显示所有的排列组合
Sub plzh()
Dim a(1 To 4)
a(1) = [a2]: a(2) = [b2]: a(3) = [c2]: a(4) = [d2]
s = 1
For i = 1 To 4
For j = 1 To 4
For k = 1 To 4
For l = 1 To 4
Cells(s, 5) = a(i) & a(j) & a(k) & a(l)
s = s + 1
Next
Next
Next
Next
MsgBox "共有" & s - 1 & "个"
End Sub
再问: 这个具体如何使用啊
再答: 在当前工作表下方标签名上点鼠标右键,从快捷菜单中选“查看代码”,出现窗口后将代码粘贴进去,然后在VBA窗口上面执行这个代码。