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

我想用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窗口上面执行这个代码。